| | |
loading non delimited text file into access database using VB.net
Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site
![]() |
•
•
Join Date: May 2008
Posts: 5
Reputation:
Solved Threads: 0
I have a text file contains non delimited data
(Each row consists from 16 fields and has a 131 byte)
I used this code to load it's data into datagrid(I have visual basic 2005)
The program work fine
Now I want load this datagrid into access database
I try to define a table adaptor define at the same dataset contains the access table with the same definition of the column of the datagrid of the textfile
and I try to bind the data loading from text file to this new datatable but my problem this file never show to me anydata
Can anybody help me please?
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.AutoGenerateColumns = True
Dim TextFieldParse As New FileIO.TextFieldParser("C:\txtFilesFolder\tsticd9.txt") tfp.TextFieldType = FileIO.FieldType.FixedWidth
tfp.FieldWidths = New Integer() {6, 7, 29, 1, 10, 6, 7, 9, 9, 13, 15, 3, 4, 9, 2, -1}
TextFieldParser.HasFieldsEnclosedInQuotes = False
While Not TextFieldParse.EndOfData
Dim valstring() As String = TextFieldParse.ReadFields
Dim datarow1 As DataSet1.DataTable1Row
datarow1 = DataSet11.DataTable1.NewDataTable1Row
For i As Integer = 0 To valstring.Length - 1
If valstring (i).Trim.Length > 0 Then
dr.Item(i) = valstring (i)
End If
Next
DataSet11.DataTable1.AddDataTable1Row(dr)
End While
BindingSource1.DataSource = DataSet11
BindingSource1.DataMember = "DataTable1"
End Sub
End Class
(Each row consists from 16 fields and has a 131 byte)
I used this code to load it's data into datagrid(I have visual basic 2005)
The program work fine
Now I want load this datagrid into access database
I try to define a table adaptor define at the same dataset contains the access table with the same definition of the column of the datagrid of the textfile
and I try to bind the data loading from text file to this new datatable but my problem this file never show to me anydata
Can anybody help me please?
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.AutoGenerateColumns = True
Dim TextFieldParse As New FileIO.TextFieldParser("C:\txtFilesFolder\tsticd9.txt") tfp.TextFieldType = FileIO.FieldType.FixedWidth
tfp.FieldWidths = New Integer() {6, 7, 29, 1, 10, 6, 7, 9, 9, 13, 15, 3, 4, 9, 2, -1}
TextFieldParser.HasFieldsEnclosedInQuotes = False
While Not TextFieldParse.EndOfData
Dim valstring() As String = TextFieldParse.ReadFields
Dim datarow1 As DataSet1.DataTable1Row
datarow1 = DataSet11.DataTable1.NewDataTable1Row
For i As Integer = 0 To valstring.Length - 1
If valstring (i).Trim.Length > 0 Then
dr.Item(i) = valstring (i)
End If
Next
DataSet11.DataTable1.AddDataTable1Row(dr)
End While
BindingSource1.DataSource = DataSet11
BindingSource1.DataMember = "DataTable1"
End Sub
End Class
![]() |
Other Threads in the Visual Basic 4 / 5 / 6 Forum
- Previous Thread: New Here
- Next Thread: query len of string... POSSIBLE ?
| Thread Tools | Search this Thread |
* 6 429 2007 access activex add age append application basic beginner birth bmp calculator cd cells.find click client code college column component connection connectionproblemusingvb6usingoledb copy creat ctrl+f data database datareport date delete dissertations dissertationthesis dissertationtopic edit error excel excelmacro file filename form hardware header iamthwee image inboxinvb internetfiledownload keypress label listbox listview liveperson login looping machine microsoft movingranges number objectinsert open oracle password prime program prompt range-objects readfile reading record refresh remotesqlserverdatabase report retrieve save search sendbyte sites sort sql sql2008 sqlserver subroutine table tags textbox time urldownloadtofile vb vb6 vb6.0 vba visual visualbasic visualbasic6 web window windows





