Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
OLE with Access
- 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.
Count Access Records
Keywords: Count Access Records
Question:
I can open an access database but how can I count the records?
AccessDB = ObjectOpen("Access.Application")
ADB = AccessDB.Application
ADB.OpenCurrentDatabase("c:\1.mdb")
ADB.Visible = @TRUE
ADB.UserControl = @TRUE
ADBCmd = ADB.docmd
ADBCmd.OpenTable("Table1")
Answer:
Try the RecordCount() method.Make sure DAO.DBEngine.35 exists on those computers. Maybe try searching the registry for that application object. Search under HKEY_Classes_Root for DAO.DBEngine....
And make sure that version 3.5 (35 above) is installed. Open up the registry editor on the PC and do a search for:
DAO.DBEngine
If it's installed it will show up as: DAO.DBEngine.35
dao = objectopen("DAO.DBEngine.35")
ws = dao.CreateWorkspace("JetWorkspace", "admin", "")
db = ws.OpenDatabase("c:\wbdemo\blank.mdb")
RS= db.OpenRecordSet("RAO")
nCnt = RS.RecordCount()
message("Records in Table",nCnt)
RS.Close()
db.Close()
ObjectClose(RS)
ObjectClose(db)
ObjectClose(ws)
ObjectClose(Dao)
exit
Article ID: W14687
Filename: Count Access Records.txt
File Created: 2003:02:03:15:43:18
Last Updated: 2003:02:03:15:43:18