使用ado访问数据库时怎样判断某一表名是否存在.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 61 行

方 法 1: 
    Dim adoConnectionX As New ADODB.Connection 
    Dim adoSchemaRecordsetX As New ADODB.Recordset 
    'Ms SQL 7: 
    'adoConnectionX.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=yuer;DataBase=NorthwindCS" 
    'Access 2000: 
    adoConnectionX.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\DRptPlus\DRptPlus\Data\NWind2K.mdb;Persist Security Info=False" 
     
    Dim TestTableName As String 
    TestTableName = "产 品 " 
     
    Set adoSchemaRecordsetX = adoConnectionX.OpenSchema(adSchemaTables, Array(Empty, Empty, TestTableName, "Table")) 
     
    If Not adoSchemaRecordsetX.EOF Then 
     MsgBox "[" & TestTableName & "]表 已 存 在 !" 
    End If 
     
    方 法 2(引 用 Microsoft ADO Extensions 2.1 for DDL and Security (ADOX)): 
    （ 主 持 人 注 ： 需 要 升 级 至 VB 6.0SP3） 
    Dim adoConnectionX As New ADODB.Connection 
    'Ms SQL 7: 
    adoConnectionX.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=yuer;DataBase=NorthwindCS" 
    'Access 2000: 
    'adoConnectionX.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\DRptPlus\DRptPlus\Data\NWind2K.mdb;Persist Security Info=False" 
     
    Dim adoxCatalogX As New ADOX.Catalog 
    Set adoxCatalogX.ActiveConnection = adoConnectionX 
     
    Dim TestTableName As String 
    TestTableName = "产 品 " 
     
    Dim adoxTableX As ADOX.Table 
    For Each adoxTableX In adoxCatalogX.Tables 
     If adoxTableX.Name = TestTableName Then 
     MsgBox "[" & TestTableName & "]表 已 存 在 !" 
     Exit For 
     End If 
    Next 
    主 持 人 注 ： 方 法 2也 可 以 这 样 ： 
    Private Sub Command1_Click() 
    Dim cat As ADOX.Catalog 
    Dim tbl As ADOX.Table 
     
    Set cat = New ADOX.Catalog 
    Set cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.3.51;" _ 
    & "Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb" 
    On Error Resume Next 
    Set tbl = cat.Tables("MyTable") 
     
    If tbl Is Nothing Then 
     MsgBox "MyTable doesn't exist" 
    Else 
     MsgBox "MyTable exists" 
     Set tbl = Nothing 
    End If 
     
    Set cat = Nothing 
    Set con = Nothing 
    End Sub 
<END>