Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Opening a Text File with ADO

Sub Open_TextFile()    Dim conn As ADODB.Connection    Dim rst As ADODB.Recordset    Dim fld As ADODB.Field    Set conn = New ADODB.Connection    Debug.Print conn.ConnectionString    conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _    "DBQ=" & CurrentProject.Path & "\"        Set rst = New ADODB.Recordset    rst.Open "select * from [Employees.txt]", conn, adOpenStatic, _        adLockReadOnly, adCmdText    Do Until rst.EOF        For Each fld In rst.Fields           Debug.Print fld.Name & "=" & fld.Value        Next fld        rst.MoveNext    Loop    rst.Close    Set rst = Nothing    conn.Close    Set conn = Nothing End Sub