(100分求修改)vb对access数据库操作时出了点问题

[wyd0395]

在进行记录移动时,和查询起了冲突,查询了以后记录移动就不正常了,求高手帮我改下谢了

这里不方便发代码,能帮忙的+我qq 307930650

[ivy13579]

mark

[chinaboyzyq]

rst.move 5,1

[孤独剑_LPZ]

记录移动?什么意思

[guyehanxinlei]

毕业设计还是自己单独完成比较好,这有助于自身能力的提升.

[wyd0395]

那个解决了,现在又有个新问题,我把代码发出来吧

[wyd0395]

Public stringCmbName As String
Public stringCmbNo As String


Private Sub cmdDelete_Click() '删除按钮
Dim response
response = MsgBox("如果无误,请确认!", vbOKCancel, "删除")
If response = 1 Then
RS.Delete
If RS.EOF Then
RS.MoveLast
Else
RS.MoveNext

End If
txtName = ""
txtNo = ""
CmbSex = ""
CmbPro = ""
CmbDepartment = ""
txtSitu = ""
txtPassword = ""

Else
Exit Sub
End If
End Sub

Private Sub cmdMove_Click(Index As Integer) '记录移动
With RS
Select Case Index
Case 0:
If .BOF Then .MoveFirst
.MovePrevious
Case 1:
If .EOF Then .MoveLast
.MoveNext
Case 2:
.MoveLast
Case 3:
.MoveFirst
End Select
End With


End Sub

Private Sub CmdSerach_Click() '查询按钮
Dim sel As String

stringCmbName = CmbName.Text
stringCmbNo = CmbNo.Text

If stringCmbName = "" Or stringCmbName = "姓名" Then
If stringCmbNo = "" Or stringCmbNo = "编号" Then
MsgBox "没有查询条件,请选择!", , "查询"
Exit Sub
Else
sel = "select * from teachers where 编号='" & stringCmbNo & "'"
End If
Else
sel = "select * from teachers where 姓名='" & stringCmbName & "'"
End If

RS.Close
RS.Open sel, DB, adOpenKeyset, adLockOptimistic
Set txtName.DataSource = RS
Set txtNo.DataSource = RS
Set CmbSex.DataSource = RS
Set CmbPro.DataSource = RS
Set CmbDepartment.DataSource = RS
Set txtSitu.DataSource = RS
Set txtPassword.DataSource = RS


End Sub

Private Sub Form_Load()
Call DataBase
Do While Not RS1.EOF
CmbName.AddItem RS1("姓名")
RS1.MoveNext
Loop
Do While Not RS2.EOF
CmbNo.AddItem RS2("编号")
RS2.MoveNext
Loop
Call SetRs







End Sub

Sub SetRs()
Set RS = New ADODB.Recordset
RS.Open "teachers", DB, adOpenKeyset, adLockOptimistic
Set txtName.DataSource = RS
txtName.DataField = "姓名"
Set txtNo.DataSource = RS
txtNo.DataField = "编号"
Set CmbSex.DataSource = RS
CmbSex.DataField = "性别"
Set CmbPro.DataSource = RS
CmbPro.DataField = "职称"
Set CmbDepartment.DataSource = RS
CmbDepartment.DataField = "所在系"
Set txtSitu.DataSource = RS
txtSitu.DataField = "基本情况"
Set txtPassword.DataSource = RS
txtPassword.DataField = "密码"
End Sub



这个就是,我在删除中间和第一条记录的时候,提示eof 或 bof有一个为真或者当前记录已被删除的错误

[wyd0395]

这期末设计马上就要到交的时间了,我这里还有这些问题没解决,所在再次恳求高手加我qq:307930650,我把全部代码发给你,这样看起来比较方便