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.
Open Access DB with DAO
Keywords: Open Access DB with DAO
Question:
THe Access window keeps popping up with this code, how do I prevent it from poppin up? Thanks for your time.
:startAccess
dbname = "C:\temp\StorageTest.mdb"
accessDB = objectopen("Access.Application")
ADB = accessDB.Application
ADB.OpenCurrentDatabase(dbname)
ADB.Visible = @false
ADB.UserControl = @false
db = accessDB.currentdb
return
Answer:
Use DAO (Data Access Objects) or ADO (Active Data Objects).These allow you to query a MS Access database without the Access Application.
Or, if you like alot of coding, use the ODBC extender :(
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:\data\access\survey template.mdb")
;sqlstr = "delete * from Eaprint;"
;db.execute(sqlstr)
rs = db.openrecordset("User Information")
uname = rs.fields("user_id")
message("User", uname.value)
objectclose(rs)
objectclose(db)
objectclose(ws)
objectclose(dao)
message("Debug", "End of Job")
exit
Article ID: W15619
File Created: 2003:05:13:11:29:16
Last Updated: 2003:05:13:11:29:16