在线等待：vb里面怎样用ADO把ACCESS的表中字段的说明信息读出来

Question

在线等待：vb里面怎样用ADO把ACCESS的表中字段的说明信息读出来
比如打开表设计时如下：字段名称 数据类型 说明
Name 文本 姓名
Age 数字 年龄
....就是把“姓名”、“年龄”...信息读出来？
分不够再加。

Answer 1

去SQL Server去问问，
那里肯定有人能回答你

Answer 2

先在ado控件的属性中设置数据库的连接，（在属性中可以测试数据库是否连接成功）recordsource在你的text.text1的属性中设置数据原源及所查询的字段用 数据原.recordsource.seek "=", 字段名或链完数据库用sql语句查询select name as 姓名，age as 年龄 from 表  即可！！

Answer 3

Dim rs As New ADODB.Recordset
Dim cn As New ADODB.ConnectionSet rs = cn.OpenSchema(adSchemaTables)
  
  Do Until rs.EOF
    If Trim(rs!TABLE_TYPE) = "TABLE" Then msgbox Trim(rs!TABLE_NAME)
    rs.MoveNext
  Loop

Answer 4

用这种方法不光是ACCESS,任何的数据库都能读出来~~

Answer 5

你需要再引用一个ActiveXDll，是Microsoft Ado Ext. 2.8 For DDL and security
具体用法如下：
     Dim objCon As New ADODB.Connection
     Dim objADOX As New ADOX.Catalog
     ·
     ·
     ·
      '数据库建立连接后···
      Set objADOX.ActiveConnection = objCon
      
      Msgbox objADOX.Tables(表名).Columns(字段名).Properties("Description").value
      'OK！其它的你自己去举一反三吧！