何实现上一条和下一条

Question

ado+access+datagrid如何实现上一条和下一条，显示在文本框中。连接的代码是放在模块中的。
sql="select * from table"
dim mrc as adodb.recordset
set mrc=exesql(sql)
mrc.movenext
这样做下来好象不行我该如何修改他呢？

Answer 1

把exesql()的代碼貼出來才知道呀

Answer 2

sql = "select A from table"
mrc.CursorLocation = adUseClient
mrc.Open sql,cn
if mrc.RecordCount > 0 Then
   mrc.MoveFirst
   text1.text = mrc("A") '显示表table的A字段内容
else
   MsgBox "没有数据",vbOKOnly + vbInformation, "查询"
end if在“上一条”按钮的事件中写
mrc.MovePrevious
If mrc.BOF Then mrc.MoveFirst
text1.text = mrc("A") '显示表table的A字段内容在“下一条”按钮的事件中写
mrc.MoveNext
If mrc.EOF Then mrc.MoveLas
text1.text = mrc("A")

Answer 3

应该是：
ado+access+datagrid如何实现上一条和下一条，显示在文本框中。连接的代码是放在模块中的。
sql="select * from table"
dim mrc as adodb.recordset
set mrc=execute(sql)
mrc.movenext
这样做下来好象不行我该如何修改他呢？

Answer 4

cipher19(犬夜叉) 的方法可以实现你所要的。

Answer 5

有提示！找不到WITH变量！或未定义！