• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Recordset2CSV

Recordset2CSV

Create a CSV file (ie. for Excel(???)) based on a parsed ADO-Recordset - very cute :)

Rate Recordset2CSV

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Sub dB_RsToCSVFile(Rs As ADODB.Recordset, FileName As String, Optional Delimiter As String = ",")
 Dim fh As Integer
 Dim FileIsOpen As Boolean, s As Variant
 Dim t As Integer
 Dim Buf As String, TempStr As String
 FileIsOpen = False
 On Error GoTo Err_Out
 fh = FreeFile()
 Open FileName For Output As fh
 FileIsOpen = True
 Buf = ""
 For t = 0 To Rs.Fields.Count - 1
  If Buf = "" Then
   Buf = """" & Rs.Fields(t).Name & """"
  Else
   Buf = Buf & Delimiter & """" & Rs.Fields(t).Name & """"
  End If
 Next t
 Print #fh, Buf
 Do While Not Rs.EOF
  Buf = ""
  For t = 0 To Rs.Fields.Count - 1
   If IsNull(Rs.Fields(t).Value) Then
    TempStr = ""
   Else
    TempStr = Rs.Fields(t).Value
   End If
   If Buf = "" Then
    Buf = """" & TempStr & """"
   Else
    Buf = Buf & Delimiter & """" & TempStr & """"
   End If
  Next t
  Print #fh, Buf
  Rs.MoveNext
 Loop
 Close fh
 Exit Sub
Err_Out:
 If FileIsOpen Then
  Close fh
 End If
 MsgBox "There was an error: " & Error, vbOKOnly, "The file was not created"
End Sub