by Trinh Nguyen (4 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 27th July 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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