以下代码我想实现显示前一条记录内容，就是不行，搞得我晕死了！！！说BOF或EOF有一个为真，或当前记录被删除。
Private Sub Command2_Click()
'数据库连接
connStr = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=机动车与驾驶员档案管理"
On Error GoTo errConnect
If conn.State = adStateOpen Then
conn.Close '如果数据库已打开,则关闭
End If
conn.Open connStr '打开数据库


sql = "select * from 信息表"
rs_info.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_info.BOF Then
MsgBox "这是第一条记录!", vbOKOnly + vbInformation, "提示"
rs_info.MoveFirst
Else
rs_info.MovePrevious
Text1.Text = rs_info.Fields(0)
Text2.Text = rs_info.Fields(1)
Text3.Text = rs_info.Fields(2)
Text4.Text = rs_info.Fields(3)
Text5.Text = rs_info.Fields(4)
Text6.Text = rs_info.Fields(5)
Text7.Text = rs_info.Fields(6)
Text8.Text = rs_info.Fields(7)
Text9.Text = rs_info.Fields(8)
Text10.Text = rs_info.Fields(9)
Text11.Text = rs_info.Fields(10)
Text12.Text = rs_info.Fields(11)
End If

GoTo next1

'错误处理

errConnect:
MsgBox Err.Description, vbOKOnly + vbExclamation, "提示"

next1:
End Sub

在rs_info.MoveFirst前面加上rs_info.AddNew试试!

如果不行Recordset.AddNew加在后面rs_info.MoveFirst

上面两种方法都行不通哎。

你把记录集到了末尾了!你加上移一条记录再试试!

BOF到了记录集尾了EOF才是记录集头

BOF 指示当前记录位置位于 Recordset 对象的第一个记录之前。

EOF 指示当前记录位置位于 Recordset 对象的最后一个记录之后。

把 If rs_info.BOF Then
MsgBox "这是第一条记录!", vbOKOnly + vbInformation, "提示"
rs_info.MoveFirst
改成 : If rs_info.Bof=true then
msgbox"没有你要找的记录!",vbokonly+vbInformation,"提示"
看看,行不行!

以下代码我想实现显示前一条记录内容，就是不行，搞得我晕死了！！！说BOF或EOF有一个为真，或当前记录被删除。
Private Sub Command2_Click()
'数据库连接
connStr = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=机动车与驾驶员档案管理"
On Error GoTo errConnect
If conn.State = adStateOpen Then
conn.Close '如果数据库已打开,则关闭
End If
conn.Open connStr '打开数据库


sql = "select * from 信息表"
rs_info.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_info.BOF Then
MsgBox "这是第一条记录!", vbOKOnly + vbInformation, "提示"
rs_info.MoveFirst
Else
rs_info.MovePrevious
if rs_info.bof then
rs.info.movefirst
end if
Text1.Text = rs_info.Fields(0)
Text2.Text = rs_info.Fields(1)
Text3.Text = rs_info.Fields(2)
Text4.Text = rs_info.Fields(3)
Text5.Text = rs_info.Fields(4)
Text6.Text = rs_info.Fields(5)
Text7.Text = rs_info.Fields(6)
Text8.Text = rs_info.Fields(7)
Text9.Text = rs_info.Fields(8)
Text10.Text = rs_info.Fields(9)
Text11.Text = rs_info.Fields(10)
Text12.Text = rs_info.Fields(11)
End If

GoTo next1

'错误处理

errConnect:
MsgBox Err.Description, vbOKOnly + vbExclamation, "提示"

next1:
End Sub

这样试试.....

以上方法都试了,还是不行,真郁闷!!!有谁能提供一段这样的代码的,不胜感激.