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

Материал из VB Эксперт

Перейти к: навигация, поиск

Reading a Persisted Recordset

 
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



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