ADO import csv line by line

[agibsonsw]

Hello. Access 2003.
Does someone have sample code to import a csv file using ADO, and to
either append (or create a table and then append) row by row?
Basically, I want to append rows one by one but to perform some validation
as this is done.
Thanks, Andy.

[HansV]

Try something like this:

Code: Select all

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};DefaultDir=H:\TextFiles"
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM [Test.csv]", cnn, adOpenForwardOnly, adLockOptimistic, adCmdText
Do While Not rst.EOF
  ' Do something with record here
  ...
  rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Set cnn = Nothing

[agibsonsw]

Perfect, thanks. Andy.