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>