How to Import Text Data into MS access Using VB6?

xwings10 — Sat, 07 Jul 2007 11:15:53 +0800

How to capture text data into ms access using vb6? The list of data in the notepad is like this:

"92221 BBRTWELPR -0014 33 112206 BB=KHI/U 36 Y30"

I wan to capture the data "92221" , "33", "112206", "Y30" and put into database.
I've tried the "MID" function to capture it but its seems didnt capture all the data just part of it.

Here is my Code:
Private Sub Command1_Click()
Dim xFile As TextStream
Dim xFileLog As TextStream
Dim xStrLine As String
Dim xCntVMI As New ADODB.Connection
Dim xRstVMI As New ADODB.Recordset
Dim xRstVMI2 As New ADODB.Recordset
Dim xCntVMI2 As New ADODB.Connection
Dim sq, name As String
Dim count As Double
Dim schedule, size, inseam, colour, total, sku As String <------------- Table Fields

Do While Not xFile.AtEndOfStream
xStrLine = xFile.ReadLine

If Mid(xStrLine, 39, 1) = "/" Then
sku = Mid(xStrLine, 1, 5)
size = Mid(xStrLine, 42, 2)
inseam = Mid(xStrLine, 46, 2)
total = Mid(xStrLine, 23, 3)
schedule = Mid(xStrLine, 26, 6)
End If

sq = "insert into vmi(schedule,size,inseam,total,sku) values("
sq = sq & "'" & schedule & "',"
sq = sq & "'" & size & "',"
sq = sq & "'" & inseam & "',"
sq = sq & "'" & total & "',"
sq = sq & "'" & sku & "');"
xCntVMI.Execute (sq)
Loop
End If

I'm new with vb6, hope all forumers can give me some advise and idea wats going on with my code.

Lowyat.NET: Latest topics by xwings10

How to Import Text Data into MS access Using VB6?