Set MyRes = Con.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Do Until MyRes.EOF
' If Not MyRes!table_name = "male" And Not MyRes!table_name = "female" Then
CboTable.AddItem (MyRes!table_name)
end if
MyRes.MoveNext
Loop
这是获得库中表名然后添加到combox的例子
以下示例返回数据库中的表的列表。
Public Function GetTables(conn As OleDbConnection) As DataTable
conn.Open()
Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
New Object() {Nothing, Nothing, Nothing, "TABLE"})
conn.Close()
Return schemaTable
End Function