神马品牌网广东省公安厅经侦局:vb问题，vb和acess的连接，我用的代码逐一访问记录，怎么运行时命令按钮不起作用，只显示第一条记录啊？
来源：百度文库 编辑：神马品牌网 时间：2024/04/27 14:41:41
我用的代码
命令按钮，为首记录，上一记录，下一记录，尾记录
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
请检查数据库中是否有多条记录存在？
再检查是否正确链接数据库，以后访问的表是否正确？
此外：按钮“尾记录”的代码没有写。
郁闷