其实如果要知道表的字段名要用connection对象的schema方法。例子职下:
-------------
Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset
Dim sConnectionString As String
Dim sCurrentTable As String
Dim sNewTable As StringSet adoConn = New ADODB.Connection
adoConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Book\Database\图书资料.mdb"adoConn.Open sConnectionString
Set adoRS = adoConn.OpenSchema(adSchemaColumns)sCurrentTable = ""
sNewTable = ""Do Until adoRS.EOF
sCurrentTable = adoRS!TABLE_NAME
If (sCurrentTable <> sNewTable) Then
sNewTable = adoRS!TABLE_NAME
Debug.Print "当前数据表:" & adoRS!TABLE_NAME
End If
Debug.Print "字段:" & adoRS!COLUMN_NAME
adoRS.MoveNext
LoopadoRS.Close
Set adoRS = Nothing
adoConn.Close
Set adoConn = Nothing
--------------
你可以根据这个例子来更改你的程序。
-------------
Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset
Dim sConnectionString As String
Dim sCurrentTable As String
Dim sNewTable As StringSet adoConn = New ADODB.Connection
adoConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Book\Database\图书资料.mdb"adoConn.Open sConnectionString
Set adoRS = adoConn.OpenSchema(adSchemaColumns)sCurrentTable = ""
sNewTable = ""Do Until adoRS.EOF
sCurrentTable = adoRS!TABLE_NAME
If (sCurrentTable <> sNewTable) Then
sNewTable = adoRS!TABLE_NAME
Debug.Print "当前数据表:" & adoRS!TABLE_NAME
End If
Debug.Print "字段:" & adoRS!COLUMN_NAME
adoRS.MoveNext
LoopadoRS.Close
Set adoRS = Nothing
adoConn.Close
Set adoConn = Nothing
--------------
你可以根据这个例子来更改你的程序。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货