UC知道vb连接access数据库时movenext怎么只能用一次？
来源：百度知道 编辑：UC知道 时间：2024/06/16 04:49:22
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 语句也不行，短期健康险这个表中有上千条记录，为什么不行呢？
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