'引用微软 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
Private Sub List1_Click()
Dim fld
Dim intfield As Integer
List2.Clear
intfield = cat.Tables(List1.List(List1.ListIndex)).Columns.Count
For i = 0 To intfield - 1
Set fld = cat.Tables(List1.List(List1.ListIndex)).Columns(i)
List2.AddItem fld.Name
Next
End Sub
'返回数据库里的所有表名。需要一个Combo控件
Public Sub AllTableName(cmbTableName As ComboBox)
Dim i As Integer
Set rc = New ADODB.Recordset
Set rc = cn.OpenSchema(adSchemaTables)
i = 0
Do While Not rc.EOF
If rc!TABLE_TYPE = "TABLE" Then
If i = 0 Then
cmbTableName.Text = rc!TABLE_NAME
End If
cmbTableName.AddItem rc!TABLE_NAME
i = i + 1
End If
rc.MoveNext
Loop
rc.Close
Dim cat As ADOX.Catalog
Dim cnn As ADODB.Connection
Dim tbl As ADOX.Table
Set cat = New ADOX.Catalog
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Text1.Text
Set cat.ActiveConnection = cnn
Combo1.Clear
On Error Resume Next
For Each tbl In cat.Tables
If Left(tbl.Name, 4) <> "MSys" Then
Combo1.AddItem tbl.Name
End If
Next
Set cat = Nothing
Set Con = Nothing