在vb中怎样实现显示一个数据库中的表? 100分

Question

在vb中怎样实现显示一个数据库中的表（所有表）
比如这个数据库是Access类型的
我不用Access打开，在vb中怎样知道该数据库有些什么表？

Answer 1

'引用微软 ADO Ext.2.6 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

单独下这个Ext.2.6 .dll吗？

Answer 3

我看了MicorSoft 的 VISDATA源码，但，菜鸟就是菜鸟，想一步登天，不行