获取数据库中表的个数以及表名

Question

本帖最后由 yangyangwhl 于 2011-03-15 21:54:21 编辑

Answer 1

Dim cn As New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=123456"
Set rstSchema = cn.OpenSchema(adSchemaTables)Do Until rstSchema.EOF
    If rstSchema!TABLE_TYPE = "TABLE"  Then
        Combo1.AddItem rstSchema!TABLE_NAME
    End If
    rstSchema.MoveNext
Loop
rstSchema.Closecn.Close

Answer 2

窗体上加一个Combo
数据库和程序放在同一个目录里

Answer 3

VB2005是ado.net，要用oledbconnection对象连接数据库...最好找本书看看，或去.net版本提问吧
如果要用1楼的方法用ADO解决，首先你要在项目中添加com中的ado引用....