by Henrik Udsen (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: 
(3 Votes)
Create a CSV file (ie. for Excel(???)) based on a parsed ADO-Recordset - very cute :)
VBcodersSub 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