测试使用 ADOX方 便的查询表和字段

领测软件测试网

　　 
　　
　　添加2个列表框，1个按钮
　　
　　'引用微软 ADO Ext.2.X 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
　　
　　'如果是sqlserver数据库，则变成If Left(tbl.Name, 3) <> "sys"
　　
　　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\article.mdb"
　　
　　'cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=northwind;Data Source=yang"
　　
　　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 & " " & fld.Type & " " & fld.DefinedSize
　　
　　Next
　　
　　End Sub

文章来源于领测软件测试网 https://www.ltesting.net/