如何判断数据库里面是否有某个表

Question

如题1、数据库中有temp表，如何判断该表是否存在。2、如何判断文件夹中是否有某数据库。

Answer 1

Set CN = New ADODB.Connection
    CN.Open str
    
    Set RS = CN.OpenSchema(adSchemaTables)
    cobTable.Clear
    Do Until RS.EOF
        If RS("TABLE_TYPE") = "TABLE" Then
            cobTable.AddItem RS("TABLE_NAME") & ""
            'RS("TABLE_NAME") 就是所有的表名。
        End If
        RS.MoveNext
    Loop
    RS.Close

Answer 2

///1、到系统表中就可以查到select * from sysobjects  where  name='你的表名'
///2、如何判断文件夹中是否有某数据库。
不知你所说的文件夹指什么

Answer 3

我说的文件夹就是:
比如说:d:\a.mdb
我要重新生成a.mdb时,要先判断一下,D盘是否已有a.mdb,如果有的话,则先删除,否则就直接生成a.mdb

Answer 4

If Dir("d:\a.mdb", vbNormal) <>"" Then
        KILL "d:\a.mdb"
        生成
    End If