Import CSV text file to MS Access DB

[MarkTingson]

Hello,

Can anyone here has a code for importing CSV text file to Access table??

thanks in advance..

Sorry Debasis Das for disturbing...

[VBWheaties]

Hello,

Can anyone here has a code for importing CSV text file to Access table??

thanks in advance..

Sorry Debasis Das for disturbing...

Direct from Microsoft:
http://www.microsoft.com/technet/scr...7/hey0206.mspx

[MarkTingson]

Direct from Microsoft:
http://www.microsoft.com/technet/scr...7/hey0206.mspx

Thanks sir. I'll give this a shot!

[MarkTingson]

i have a problem with this

Public Sub ImportToFile(srcRS As String, srcFile As String)

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const ForReading = 1

Con_Open
Dim rsImport As ADODB.Recordset
Dim objFSO
Dim objFile
Dim strFile As String
Dim strArrFile() As String

Set rsImport = New ADODB.Recordset
'rsImport.CursorLocation = adUseClient
rsImport.Open srcRS, con, adOpenStatic, adLockOptimistic

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(srcFile)

Do Until objFile.AtEndofStream
strFile = objFile.ReadLine
strArrFile = Split(strFile, ",")

With rsImport
.AddNew
rsImport("strORnum") = strArrFile(0)
.Fields("strItemCode") = strArrFile(1)
.Fields("strItemName") = strArrFile(2)
.Fields("intqty") = strArrFile(3)
.Fields("intUnitPrice") = strArrFile(4)
.Fields("intAmount") = strArrFile(5)
.Fields("intDiscount") = strArrFile(6)
.Fields("intCharged") = strArrFile(7)
.Fields("intBranchFK") = strArrFile(8)
.Fields("datOrder") = CDate(strArrFile(9))
.Update
End With
Loop



rsImport.Close

End Sub

It says, "Subscript out of Range."

What was that mean? I actually trying to make this a procedure that i can call globally.

Call ImportToFile("SELECT * FROM tblDSR", App.Path & "\RECEivedfiles\MainDSR.txt")

I've already check my database fields and it is correct. Please help guys...

Thank you so much!

[MarkTingson]

Ahmm, guys i forgot to tell, the procedure is actually successful but my problem is, what does the "Subscript out of range" error means? and how can i get id of it.

Thanks again

[VBWheaties]

Ahmm, guys i forgot to tell, the procedure is actually successful but my problem is, what does the "Subscript out of range" error means? and how can i get id of it.

Thanks again

Subscript out of range error means an array index is invalid (there is no subscript index with that number).

From your code, it looks like one of the paranthesed values is the culprit. When you try to reference an array (like MyArray(4)) and the upper bound is 2, then you will get this error.

example:

Dim MyArray(2) As String 
Msgbox MyArray(4) & " would throw Subscript Out of Range because 4 does not exist."