adodb

Question

adodb
我想要用户选择数据库。
然后列出数据库里面都有那些表
然后再列出表里有那些字段。
怎么做。谢了。关键是如何得到表名称及表内字段名称

Answer 1

先确保你正确引用了ado Dim db As Connection
  
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & "你的数据库"Dim Table As Recordset
Dim Tablename
Dim i As Integer
 
 Set Tablename = db.OpenSchema(adSchemaTables)
 Do Until Tablename.EOF '循环所有表
          Set Table = New Recordset
          Table.Open "select * from  " & Tablename!table_name, db, adOpenStatic, adLockReadOnly
          For i = 0 To Table.Fields.Count - 1             '  循环所有字段
          Debug.Print Tablename!table_name, Table
          End If
          Next
 End If
 Tablename.MoveNext
 Loop
 Tablename.Close
 Set Table = Nothing
 Set Tablename = Nothing

Answer 2

楼上说的是access的数据库结构。如果是SQL SERVER的话，就应该打开sysobjects这个系统表，里面xtype值为u的就是用户表，可以将此些列出，打开，就可以查出字段及值了。

Answer 3

感谢二位的帮助。to :abc10你的代码是不是adodc的啊。我说的是adodb....