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.

Check if Access Table Exists

 Keywords:  Access Table Exists

User Sample Code:

;////////////////////////////////////////////////////////////////////////
;//  WINBATCH - Does Table Exist in ACCESS Database                    //
;//           - Stan Littlefield, December 9, 2001                     //
;////////////////////////////////////////////////////////////////////////
#DefineFunction tblE(DB,tbl)
adSchemaTables = 20
RS             = DB.OpenSchema(adSchemaTables)
lExist         = @FALSE
While ! RS.eof()
   t           = RS.Fields("TABLE_NAME")
   If StrUpper(tbl) == StrUpper( t.Value)
      lExist   = @TRUE
      break
   Endif
   RS.MoveNext()
Endwhile
ObjectClose(RS)
Return(lExist)
#EndFunction


cMDB           = AskFileName("Select ACCESS Database",".\","MDB Files|*.mdb|","*.mdb",1)
cTbl           = AskLine("Look in ACCESS Database %cMDB%","Does This Table Exist","")
cConn          = "Provider=MicroSoft.Jet.OLEDB.4.0; Data Source=%cMDB%"
DB             = ObjectOpen("ADODB.Connection")

DB.Open(cConn)

Ret            = tblE(DB,cTbl)

ObjectClose(DB)
Drop(RS,DB)
If ! Ret
   message("Table DOES NOT Exist",cTbl)
Else
   message("Table EXISTS!",cTbl)
Endif

exit

Article ID:   W15247

File Created: 2002:09:05:13:50:48

Last Updated: 2002:09:05:13:50:48