Save Recordset to a file : Recordset to File « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Recordset to File

Save Recordset to a file

 
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

 

Related examples in the same category