战舰少女r ios魔改:vb问题,vb和acess的连接,我用的代码逐一访问记录,怎么运行时命令按钮不起作用,只显示第一条记录啊?
来源:百度文库 编辑:查人人中国名人网 时间:2024/08/27 01:06:37
我用的代码
命令按钮,为首记录,上一记录,下一记录,尾记录
rivate Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Adodc1.Recordset .MoveFirst
Case 1
Adodc1.Recordset .MovePrevious
If Adodc1.Recordset.BOF = True Then Adodc1.Recordset .MoveFirst
Case 2
Adodc1.Recordset .MoveNext
If Adodc1.Recordset.EOF = True Then Adodc1.Recordset .MoveLast
End Select
End Sub
什么地方错了阿!谢谢阿!
命令按钮,为首记录,上一记录,下一记录,尾记录
rivate Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Adodc1.Recordset .MoveFirst
Case 1
Adodc1.Recordset .MovePrevious
If Adodc1.Recordset.BOF = True Then Adodc1.Recordset .MoveFirst
Case 2
Adodc1.Recordset .MoveNext
If Adodc1.Recordset.EOF = True Then Adodc1.Recordset .MoveLast
End Select
End Sub
什么地方错了阿!谢谢阿!
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Adodc1.Recordset .MoveFirst
Case 1
If Adodc1.Recordset.BOF = True Then Adodc1.Recordset .MoveFirst
else
Adodc1.Recordset .MovePrevious
end if
Case 2
If Adodc1.Recordset.EOF = True Then Adodc1.Recordset .MoveLast
else
Adodc1.Recordset .MoveNext
end if
calse else
Adodc1.Recordset .MoveLast
End Select
请检查数据库中是否有多条记录存在?
再检查是否正确链接数据库,以后访问的表是否正确?
此外:按钮“尾记录”的代码没有写。
郁闷