下面直接用例子来介绍:VB如何获取ACCESS数据库表中的字段名称
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;DataSource=Access数据库名.mdb;Persist Security Info=False'
Set RS = CN.OpenSchema(adSchemaTables, Array(Empty,Empty, Empty, Empty))
Do Until RS.EOF
IfLeft(RS!table_name, 4) <> 'MSys' Then
List1.AddItem RS!table_name
EndIf
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
CN.Close
Set CN = Nothing
End Sub
Sub getFieldName() 'this sub function can get the field name
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;PersistSecurity 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
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。