vb连接access数据库时movenext怎么只能用一次?

来源:百度知道 编辑:UC知道 时间:2024/06/16 03:08:14
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\保险.mdb"
rs.CursorLocation = adUseClient
rs.Open "select * from 短期健康险", conn, 2, 2
rs.MoveNext
rs.Update
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
...
End Sub
怎么只能移动一次记录呢? 看了网上的介绍后把代码加上if not rs.eof then 语句也不行,短期健康险这个表中有上千条记录,为什么不行呢?

你的conn 和rs都是局部变量,过程运行完了后变量都释放了,数据库也关闭了,第二次按下时有重新开始了,所以只能是这样了.
要把这俩个定义成全局变量才可以

加个按钮Command2,把MoveNext放到Command2_Click事件中

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\保险.mdb"
rs.CursorLocation = adUseClient
rs.Open "select * from 短期健康险", conn, 2, 2

for i=1 to rs.fields.count
Text&i.Text = rs.Fields(i-1)
rs.MoveNext
next
rs.Update