如何用DAO的方法判断数据库中是否存在某个表?
我有如下一段程序,先要判断数据库中是否存在某个表 strTbl ,如果存在则exit sub;否则,执行后面的程序,创建这个表
Dim strDB As String
Dim strTbl As String
Dim dbs As Database
Dim tdf As TableDef
Dim fld As Field
strDB = App.Path & "\" & frm2_1.List1.Text & ".mdb"
strTbl = Trim(Text1.Text)
If FileExist(strDB) = False Then
MsgBox "此幼儿园不存在!", vbOKOnly + 32, "提示"
Exit Sub
End If
Set dbs = OpenDatabase(strDB)
'----------
'在此判断表 strTbl 是否存在,如果存在则exit sub;否则,执行下面的程序,创建这个表
'----------
Set tdf = dbs.CreateTableDef(strTbl)
Set fld = tdf.CreateField("简称", dbText, 30)
tdf.Fields.Append fld
Set fld = tdf.CreateField("全名", dbText, 50)
fld.AllowZeroLength = True
tdf.Fields.Append fld
Set fld = tdf.CreateField("园长", dbText, 50)
tdf.Fields.Append fld
Set fld = tdf.CreateField("联系人", dbText, 30)
fld.AllowZeroLength = True
tdf.Fields.Append fld
Set fld = tdf.CreateField("电话", dbText, 30)
fld.AllowZeroLength = True
tdf.Fields.Append fld
Set fld = tdf.CreateField("备注", dbText, 50)
fld.AllowZeroLength = True
tdf.Fields.Append fld
dbs.TableDefs.Append tdf
dbs.Close
Set dbs = Nothing
判断数据库中是否存在某个表的程序代码该如何写?
不要用错误处理,也不要用ADO的方法。
请高人指点。