Converting the Recordset to a String : Recordset Convert « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Recordset Convert

Converting the Recordset to a String

 
Sub GetRecords_AsString()
   Dim conn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim varRst As Variant
   Dim myFileSystemObject As Object
   Dim myFile As Object

   Set conn = CurrentProject.Connection

   Set rst = New ADODB.Recordset
   rst.Open "SELECT EmployeeId, LastName ,FirstName as FullName FROM Employees", _
      conn, adOpenForwardOnly, adLockReadOnly, adCmdText

   If Not rst.EOF Then
      varRst = rst.GetString(adClipString, , vbTab, vbCrLf)
      Debug.Print varRst
   End If

   Set myFileSystemObject = CreateObject("Scripting.FileSystemObject")
      Set myFile = myFileSystemObject.CreateTextFile(CurrentProject.Path & _
          "\RstString.txt", True)
   myFile.WriteLine varRst
   myFile.Close

   Set myFileSystemObject = Nothing
   rst.Close
   Set rst = Nothing
   conn.Close
   Set conn = Nothing
End Sub

 

Related examples in the same category