VB读取ACCESS数据库中所有表名及指定表的字段名.doc

1.VB 如何获取ACCESS数据库中的所有表名。 2.VB 如何获得指定表的所有字段名称？Sub getTableName() Dim RS As ADODB.Recordset Dim CN As ADODB.Connection Set CN = New ADODB.Connection CN.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Access数据库名.mdb;Persist Security Info=False Set RS = CN.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, Empty)) Do Until RS.EOF If Left(RS!table_name, 4) MSys Then List1.AddItem RS!table_name End If RS.MoveNext Loop RS.Close Set RS = Nothing CN.Close Set CN = Nothing End Sub Sub getFieldName() Dim RS As ADODB.Recordset Dim CN As ADODB.Connection Dim FN As ADODB.Field Set CN = New ADODB.Connection Set RS = New ADODB.Recordset CN.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=access.mdb;Persist Security Info=False RS.Open 表名, CN For Each FN In RS.Fields List2.AddItem FN.Name Next RS.Close Set RS = Nothing CN.Close Set CN = Nothing End Sub VB 读取ACCESS数据库中所有表名 conn 是ADODB.Connection RS 是ADODB.RecordSet 以上两个变量,只要写个数据库的人都知道 set rs=conn.OpenSchema(20) do until rs.eof if ucase(rs(TABLE_TYPE)) =TABLE then msgbox 表: rs(TABLE_NAME) end if rs.movenext loop