VBA/Excel/Access/Word/Access/Recordset to File

Reading a Persisted Recordset

   <source lang="vb">

Sub ReadPersistedRecordset()

   Dim strFileName As String
   strFileName = "c:\test.txt"
   If Len(Dir(strFileName)) = 0 Then
       msgBox "File Not Found"
       Exit Sub
   End If
   Dim rst As ADODB.Recordset
   Set rst = New ADODB.Recordset
   rst.ActiveConnection = CurrentProject.Connection
   rst.CursorType = adOpenStatic
   rst.LockType = adLockOptimistic
   rst.Open Source:=strFileName, _
       Options:=adCmdFile
   Do Until rst.EOF
       Debug.Print rst("EmployeeID")
       rst.MoveNext
   Loop
   rst.Close
   Set rst = Nothing

End Sub

</source>
   
  

Save Recordset to a file

   <source lang="vb">

Sub PersistRecordset()

   Dim strFileName As String
   strFileName = "c:\test.txt"
   Dim rst As ADODB.Recordset
   Set rst = New ADODB.Recordset
   rst.ActiveConnection = CurrentProject.Connection
   rst.CursorType = adOpenStatic
   rst.LockType = adLockOptimistic
   rst.Open Source:="Select * from Employees ", _
       Options:=adCmdText
   On Error Resume Next
   Kill strFileName
   rst.Save strFileName, adPersistADTG
   rst.Close
   Set rst = Nothing

End Sub

</source>