如何做上，下，首，末的按钮？高分求源码！

painus 2003-03-07 11:33:23

正在做一个录入和查询相结合的界面,界面上要求有这样一些按钮,上，下，首，末和增加，删除，修改和保存按钮,我现在被搞的筋疲力尽,经常顾此失彼，就连rs.movelast这样简单的移动它都不被执行，只希望弟兄们能帮我一下了！发个源码给我看一看。我的E-MAIL:public_us@163.com

...全文

48 28 打赏收藏转发到动态举报

写回复

用AI写文章

28 条回复

切换为时间正序

请发表友善的回复…

发表回复

dingyanwei 2003-03-10

打赏
举报

我发了一份，不知道有用没有用？？？

painus 2003-03-09

打赏
举报

to :northwolves(野性的呼唤) ( )
你越改问题越多

FCBFighter 2003-03-09

打赏
举报

ADO的控件ADODC有一个事件:Adodc1_WillMove

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
你直接在这里做出反应就可以了.

northwolves 2003-03-09

打赏
举报

Case 1
If Not myrst.BOF Then
myrst.MovePrevious
else
myrst.movefirst
end if
showit
Case 2
If Not myrst.EOF Then
myrst.MoveNext
else
myrst.movelast
end if
showit

painus 2003-03-09

打赏
举报

上面的人对我有帮助的都会有分，但是现在还不能结贴，因为我问题没有解决....

为了解决问题，我把这些天来整理的东西做成了一个东西，首先声明，我没有地方可以上传，如果要的，请留E-MAIL：解决了我的问题，我另外给100分。绝不会食言的！

我贴上去的是程序主要剩下一个问题：
就是当我添加，删除，更新的时候，如何让记录移动正常，你们看了我的程序就知道了，记住，我上面的每一个按钮都要实现，并且要正常。如过有控件的弟兄，请发给我，我实在是太头痛这个问题了。我的邮箱是public_us@163.com

painus 2003-03-08

打赏
举报

To:： northwolves(野性的呼唤)
你这段代码基本符合我的要求了，但是有一点，就是当我已经指到了第一条时，再按上一条，就会出错，同样我已经指到了最后一条记录时，再按下一条，就会出错。如何解决呢？

zhangwh6882 2003-03-08

打赏
举报

用向导生成一个数据库程序，在上面改一改就可以用了，甚至不用自己修改

northwolves 2003-03-08

打赏
举报

Dim mycnn As New ADODB.Connection
Dim myrst As New ADODB.Recordset
Sub showit()
For i = 0 To 3
Text1(i).Text = myrst.Fields(i).Value
Next
End Sub

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
myrst.MoveFirst
showit
Case 1
If Not myrst.BOF Then myrst.MovePrevious: showit
Case 2
If Not myrst.EOF Then myrst.MoveNext: showit
Case 3
myrst.MoveLast: showit
Case 4
myrst.AddNew
For i = 0 To 3
myrst.Fields(i).Value = Text1(i).Text & " "
Next
myrst.Update
Case 5
For i = 0 To 3
myrst.Fields(i).Value = Text1(i).Text & " "
Next
myrst.Update
Case 6
myrst.Close
myrst.Open "select * from postzip where area='"& trim(text1(0))&"'", mycnn, adOpenKeyset, adLockOptimistic
myrst.MoveFirst
showit
Case 7
End
Set myrst = Nothing
Set mycnn = Nothing
End Select
End Sub

Private Sub Form_Load()
mycnn.Open "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\postzip.mdb"
myrst.Open "select * from postzip ", mycnn, adOpenKeyset, adLockOptimistic
For i = 0 To 7
Command1(i).Caption = Choose(i + 1, "top", "prev", "next", "last", "new", "edit", "serch", "exit")
Next

End Sub

Cooly 2003-03-07

打赏
举报

MoveFirst,MoveLast的判断和上面是一样的。

Cooly 2003-03-07

打赏
举报

if Adodc1.Recordset.AbsolutePosition>1 then
Adodc1.Recordset.MovePrevious
end if

Cooly 2003-03-07

打赏
举报

if Adodc1.Recordset.EOF =false then
Adodc1.Recordset.MoveNext
end if

painus 2003-03-07

打赏
举报

提示：

1。当Adodc1.Recordset.MoveNext时，下一条记录没有时如何办！
2。。。。
哎呀，总之呀我有一大堆问题，给我发一个你们以前做过的FORM过来好吗？

AechoJohn 2003-03-07

打赏
举报

静下心来，画个图表出来，把想法理一下。

syl5005 2003-03-07

打赏
举报

就是用adodc1.Recordset的movefirst,movenext,movelast,moveprevious.把这些句子加入按钮的click事件中。注意在程序开始加入判断是否是eof ,bof数据表的结束，或开始。否则出错。

litsnake1 2003-03-07

打赏
举报

Cooly 2003-03-07

打赏
举报

自己加一些判断就可以了，ADODB道理是一样的。

Cooly 2003-03-07

打赏
举报

这个很容易啊

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Label1.Caption = Adodc1.Recordset.AbsolutePosition
End Sub

Private Sub Command1_Click()
Call Adodc1.Recordset.MoveFirst
End Sub

Private Sub Command2_Click()
Call Adodc1.Recordset.MovePrevious
End Sub

Private Sub Command3_Click()
Call Adodc1.Recordset.MoveNext
End Sub

Private Sub Command4_Click()
Call Adodc1.Recordset.MoveLast
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=SERVER"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from table3"
Adodc1.Refresh
End Sub

enhydraboy 2003-03-07