VB 如何读取 access中的数据

运行下面代码前,应保证DATA1已与ACCESS正确连接.

i

=

1

Data1.Recordset.MoveFirst

Do

While

Data1.Recordset.EOF

=

False

If

m(i)

=

Data1.Recordset.Fields("字段1")

+

Data1.Recordset.Fields("字段2")

+

Data1.Recordset.Fields("字段3")

Then

'我不知道什么叫ACCESS的这一行的和

MsgBox

"第"

&

i

&

"行正确!",

vbInformation,

"提示"

Else

MsgBox

"第"

&

i

&

"行错误!",

vbCritical,

"提示"

End

If

i

=

i

+

1

Data1.Recordset.MoveNext

Loop

你写的就是将变量字符写到EXECL里啊。。。

Dim strSQL As String ‘定义一个strSQL变量，类型为字符

strSQL = "SELECT WGYDX.SZ FROM WGYDX WHERE (WGYDX.BZW = 5)" &""

Cn.Execute strSQL ‘为变量设置内容

xlSheet.Cells(5, 3) = strSQL ’将变量放到EXECL指定位置上

---