请问有什么方法可以检索数据库中的表名都有什么？

Question

因为我想输入一个表名
然后检索SQL数据库中是否存在这个表名

Answer 1

'引用微软 ADO Ext.2.7 for dll and Security
Private Sub Command1_Click()Dim cat As ADOX.Catalog
Dim cnn As ADODB.Connection
Dim tbl As ADOX.Table
Set cat = New ADOX.Catalog
Set cnn = New ADODB.Connectioncnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\csdn_vb\查看表名\article.mdb"Set cat.ActiveConnection = cnnOn Error Resume Next'Set tbl = cat.Tables("MyTable")
For Each tbl In cat.Tables
If Left(tbl.Name, 4) <> "MSys" Then
List1.AddItem tbl.Name
End If
NextSet cat = NothingSet con = NothingEnd Sub

Answer 2

MS SQL数据库的话就是：'打开你的数据库：
strSql = "SELECT object_id('"  你的表名字  "')"
Rs.open strSql,...
If Rs.Bof And Rs.EOF Then
    MsgBox "没有!"
Else
    MsgBox "有！"
End If

Answer 3

SQL Server里改成If Left(tbl.Name, 3) <> "Sys" and tbl.name<>dtproperties Then
List1.AddItem tbl.Name

Answer 4

偶记得好像数据库名什么的会存入一个系统表中 systemobject这个表中，可能记错了，你只要 Select * From systemobject Where ??=tabname就可以了