如何查询Access2000数据库中的数据表？
在VB中如何查询Access2000数据库中的包含哪些数据表？
[解决办法]
一条SQL语句 :
SELECT NAME FROM MSysObjects WHERE Flags=0 AND Type=1
[解决办法]
'引用微软 ADO Ext.2.7 for dll and Security
Dim cat As ADOX.Catalog
Dim cnn As ADODB.Connection
Dim tbl As ADOX.Table
Private Sub Command1_Click()
On Error Resume Next
For Each tbl In cat.Tables
If Left(tbl.Name, 4) <> "MSys " Then
List1.AddItem tbl.Name
End If
Next
End Sub
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set cat = New ADOX.Catalog
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\csdn_vb\database\treeview的节点添加\article.mdb "
Set cat.ActiveConnection = cnn
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set cat = Nothing
Set con = Nothing
End Sub
