devxlogo

Open Textfile Data as a Recordset Using ADODB

Open Textfile Data as a Recordset Using ADODB

 '*********************************************************************'Text files Reading'You can use Microsoft Text Driver'*********************************************************************Public Function Read_Text_File() As ADODB.Recordset      Dim rs As ADODB.Recordset      Set rs = New ADODB.Recordset      Dim conn As ADODB.Connection      Set conn = New ADODB.Connection      conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _                  "DBQ=" & App.Path & ";", "", ""      rs.Open "select * from [test#txt]", conn, adOpenStatic, _                  adLockReadOnly, adCmdText      Set Read_Text_File = rs      Set rs = Nothing      Set conn = NothingEnd Function

devx-admin

Share the Post: