怎样使用database,index,tabledef,workespace这样几种变量类型?怎样定义和使用他们?

Question

程序引用DAO。
之后可以用以上几个类型了，详细使用可以查MSDN。

Answer 1

 Dim MyDb As Database, MyTable As Recordset,td As TableDef
'打开数据库
 Set MyDb = DBEngine.Workspaces(0).OpenDatabase(DatabaseName)
'打开表
 Set MyTable = MyDb.OpenRecordset(TableName, dbOpenDynaset)
'表集(即数据库中的所有表)
 For Each td In MyDb.TableDefs
     If td.Name = "temp" Then
         '如果表temp存在则删除它
         msgbox "表temp存在！"
     End If
 Next