| | |
text file contains non delimited data into access database
Please support our VB.NET advertiser: Intel Parallel Studio Home
![]() |
•
•
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
![]() |
Similar Threads
- How to extract data from web databases? (Database Design)
Other Threads in the VB.NET Forum
- Previous Thread: dataset mysteriously clearing for no apparent reason...
- Next Thread: VC++ application Convert to VB.NET
Views: 1129 | Replies: 0
| Thread Tools | Search this Thread |
Tag cloud for VB.NET
.net .net2008 2008 access advanced application array basic beginner browser button buttons center checkbox class client code combo convert cuesent data database datagrid datagridview date datetimepicker design designer dissertation dissertations dissertationtopic eclipse excel fade filter forms generatetags html images input intel internet lib listview map mobile monitor net number objects open panel pdf picturebox picturebox2 port position print printing problem read remove richtextbox save searchvb.net select serial settings shutdown socket sorting sqlserver studio survey temperature textbox timer timespan transparency txttoxmlconverter user usercontol validation vb vb.net vb2008 vba vbnet visual visualbasic visualbasic.net visualstudio.net visualstudio2008 web webbrowser winforms winsock wpf wrapingcode year





