大家好，请问有谁知道，在VB中如何判断一个表是否存在（ACCESS数据库），存在就删除。

可以去打开那个表。。可以打开就删除。。。

好像也可以用错误捕捉，用记录集打开制定表。存在就不会有错误，不存在应该会产生错误。

Dim rst as ADODB.RecordSet
set rst=new ADODB.RecordSet
Dim SQL as String
SQL="select * from 要删除的表"
rst.open sql,con,1,3
if err.number=0 then
    SQL="drop 要删除的表"
    con.execute sql
end if

可以用ADOX，代码片断：

    strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MDBFileName
   
    Set ADOXCat = New ADOX.Catalog
   
    ADOXCat.ActiveConnection = strCn
    For i = 0 To ADOXCat.Tables.Count - 1
        If ADOXCat.Tables(i).Name = TableName Then
            Ret = MsgBox("表名已经存在，是否要替换？", vbOKCancel + vbQuestion, "提示")
            If Ret = vbOK Then
                ADOXCat.Tables.Delete TableName
                Exit For
            Else
                Set ADOXCat = Nothing
                Exit Function
            End If
        End If
    Next

头一次学习到ADOX对象,斑竹能否具体介绍下具体属性?