• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Import data from mdb table into Comma Delimited Text File

Import data from mdb table into Comma Delimited Text File

Import data from mdb table into Comma Delimited Text File

API Declarations


'Create a command button
'must have a table named CRDATA in EXAMPLE.mdb




Rate Import data from mdb table into Comma Delimited Text File

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   Call Crdata2Text

End Sub
________________________________________________

Public Function Crdata2Text() As Boolean

  'Open database using the ODBC Direct method
   Dim DB2TEXT As DataBase
   Dim RS2TEXT As RecordSet
   Set DB2TEXT = DBEngine.Workspaces(0).OpenDtaBase("EXAMPLE.mdb")
   Set RS2TEXT = DB2TEXT.OpenRecordSet("CRDATA")

Dim iTotalRecords As Integer
Dim sFileToExport As String
Dim iFileNum As Integer
Dim iIndx As Integer
Dim iNumberOfFields As Integer

  'Open TEXT file to write, if not found, create one
  sFileToExport = "TEXT.txt"
  iFileNum = FreeFile()
  Open sFileToExport For Output As #iFileNum
  iNumberOfFields = RS2TEXT.Fields.Count - 1

'Start Transferring...
    RS2TEXT.MoveFirst
    Do Until RS2TEXT.EOF
       iTotalRecords = iTotalRecords + 1
       For iIndx = 0 To iNumberOfFields
       If (IsNull(RS2TEXT.Fields(iIndx))) Then
           Print #iFileNum, ",";
       Else
           If indx = iNumberOfFields Then
                Print #iFileNum, Trim$(CStr(RS2TEXT.Fields(iIndx)));
           Else
                Print #iFileNum, Trim$(CStr(RS2TEXT.Fields(iIndx))); ",";
           End If
       End If
   Next
   Print #iFileNum,
   RS2TEXT.MoveNext
   DoEvents
   Loop
   Close #iFileNum
   
   'Delete Data in the CRDATA table
   Do Until RS2TEXT.EOF
      RS2TEXT.MoveFirst
      RS2TEXT.Delete
      RS2TEXT.MoveNext
   Loop

'Don't forget to close the mdb database
 RS2TEXT.Close
 DB2TEXT.Close

End Function