如何在VB中得到一个ACCESS数据库的表的个数及名称？

lieut

RT

vikingleo

6

vikingleo

可以用Ado
myconn2.Open(str2)
            reordset = myconn2.OpenSchema(SchemaEnum.adSchemaTables)
            Do Until reordset.EOF
                If reordset("table_type").Value = "TABLE" Then
                    ComboBox1.Items.Add(reordset("table_name").Value)
                End If
                reordset.MoveNext()
            Loop
            reordset.Close()
            myconn2.Close()