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
显示全部