• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Export sql data to a CSV File

Export sql data to a CSV File

Export sql data to a CSV File

Rate Export sql data to a CSV File

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   ' #VBIDEUtils#************************************************************
   ' * Programmer Name  : Waty Thierry
   ' * Web Site         : www.geocities.com/ResearchTriangle/6311/
   ' * E-Mail           : [email protected]
   ' * Date             : 25/11/98
   ' * Time             : 15:06
   ' * Module Name      : Database_Module
   ' * Module Filename  : Database.bas
   ' * Procedure Name   : CSVExport
   ' * Parameters       :
   ' *                    db As DAO.Database
   ' *                    sSQL As String
   ' *                    sDest As String
   ' **********************************************************************
   ' * Comments         : Export sql data to a CSV File
   ' *
   ' *
   ' **********************************************************************

   Dim record        As Recordset
   Dim nI            As Long
   Dim nJ            As Long
   Dim nFile         As Integer
   Dim sTmp          As String
   
   On Error GoTo Err_Handler
   
   Set record = db.OpenRecordset(sSQL, DAO.dbOpenDynaset, DAO.dbReadOnly)
   
   ' *** Open output file
   nFile = FreeFile
   
   Open sDest For Output As #nFile
   
   ' *** Export fields name
   For nI = 0 To record.Fields.Count - 1
      sTmp = "" & (record.Fields(nI).Name)
      Write #nFile, sTmp;
   Next
   Write #nFile,

   If record.RecordCount > 0 Then
      record.MoveLast
      record.MoveFirst
   
      For nI = 1 To record.RecordCount
         For nJ = 0 To record.Fields.Count - 1
            sTmp = "" & (record.Fields(nJ))
            Write #nFile, sTmp;
         Next
         Write #nFile,
         record.MoveNext
      Next
   End If
   
   Close #nFile
   CSVExport = True
   
   Exit Function
   
Err_Handler:
   MsgBox ("Error: " & Err.Description)

   CSVExport = False
   
End Function