Database Search

TechHome

• Access 2000 Advanced DML Transactions
• Access Recordset to CSV File UDF
• Access RunCommand Constants
• ACCESS Table or Query Exists
• Access to Excel via SQL
• Access Visible Problem
• Adding Fields to an Existing Access Table
• Advanced DML Transactions
• Advanced SQL in the Jet 4.0 Provider Example
• Another OLE with Access Example
• Automating Access Tutorial
• Check if Access Table Exists
• Commit Rollback Begin Trans Updatebatch
• Control Access Forms
• Count Access Records
• Csv to Access
• Dealing with ACCESS 97 Field Types
• execute a macro in Access
• Execute a Public function in Access
• Export Access Report in Choice of Formats
• Export MDB to Flat File
• Find Read and Insert Data in Access
• Gather ACCESS Table and Column Information Into Excel
• Get Access Version That Created MDB File
• Get Column Data From an Access Database
• Get Record Count
• How to Use the OpenTable method
• Launch Access Macro from Commandline
• Loop thru a recordset in Access
• Office 2003 Macro Security Issue
• OLE and Access
• OLE Import a table into Access
• OLE Import Table into Access
• Open Access DB with DAO
• Pack an Access Database
• Query and Export Data from Microsoft Access
• Read Write Delete Tables from Access DB
• Repair MDB
• Retrieve Data in Access
• SQL UPDATE Fails with Access
• UDF to Return Record Count
• Updating Table From Filtered Recordset
• Ways to Get Data from and Access file without Access installed

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Access Recordset to CSV File UDF

#DefineFunction AccessRSToCSV(dbname, sqlstr, hdr)
      listvar = ""
      accessDB = ObjectOpen("Access.Application")
      ADB = accessDB.Application
      ADB.OpenCurrentDatabase(dbname)
      ADB.Visible = @FALSE
      db = accessDB.currentdb
      rs = db.openrecordset(sqlstr)
      flds = rs.fields
      If hdr
         hstr = ""
         For x = 0 To flds.count-1
            thisfld = rs.fields(x)
            hstr    = ItemInsert(thisfld.name, -1, hstr, ",")
            ObjectClose(thisfld)
         Next
         listvar = StrCat(hstr, @CRLF, listvar)
      EndIf
      While !rs.eof
         Yields(200)
         For x = 0 To flds.count-1
            thisfld = rs.fields(x)
            listvar = StrCat(listvar, thisfld.value, ",")
            ObjectClose(thisfld)
         Next
         rs.movenext
         listvar = StrSub(listvar, 1, StrLen(listvar)-1)
         listvar = StrCat(listvar, @CRLF)
      EndWhile
      rs.close
      ObjectClose(rs)
      ObjectClose(flds)
      ObjectClose(db)
      ObjectClose(ADB)
      ObjectClose(accessDB)
      Return(listvar)
   #EndFunction
;
   dbname = "C:\Data\Access\NWIND.MDB"
   sqlstr = "select [FirstName], [LastName], [EmployeeID] from [Employees]"
   csv = AccessRSToCSV(dbname, sqlstr, @TRUE)
   outputfile = "c:\NorthwindEmployees.txt"
   If FileExist(outputfile) Then FileDelete(outputfile)
   FilePut(outputfile, csv)
Return

Article ID:   W16592

File Created: 2005:02:18:12:21:34

Last Updated: 2005:02:18:12:21:34