这个为什么实现不了向下移动记录功能？

Question

Private Sub Command3_Click()
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=yuancheng;Data Source=YUANCHENG"
Set mrc = New ADODB.Recordset
Set mrc = cn.Execute("select * from yuanliaocaigou")
mrc.MoveNext
If mrc.EOF Then
   mrc.MoveFirst
End If

Answer 1

这样创建的记录集是打开仅向前类型游标的记录集，只能movenext不能movefirst或moveprevmrc.open "select * from yuanliaocaigou",cn,adOpenStatic,adLockReadOnly
这样打开应该能上能下了

Answer 2

str ="select * from yuanliaocaigou"
rs.Open str, con, adOpenDynamic, adLockOptimistic

Answer 3

Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=yuancheng;Data Source=YUANCHENG"
Set mrc = New ADODB.Recordset
mrc.Open "select * from yuanliaocaigou", cn, adOpenDynamic, adLockOptimistic
mrc.MoveNext
If mrc.EOF Then
   mrc.MoveFirst
End If
这样好象也不行！

Answer 4

if mrc.eof then msgbox "1111":exit sub
mrc.movefist
mrc.movenext

Answer 5

我新改的这样也不行呀，
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=yuancheng;Data Source=YUANCHENG"
Set mrc = New ADODB.Recordset
mrc.Open "select * from yuanliaocaigou", cn, adOpenDynamic, adLockOptimistic
mrc.MoveNext
If mrc.EOF Then
   mrc.MoveFirst
End If那我该怎么改？

Answer 6

If .EOF Then
 .MoveFirst
  Else
 .MoveNext
试试

Answer 7

游标用 adopenstatic 试试.

Answer 8

Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=yuancheng;Data Source=YUANCHENG"
Set mrc = New ADODB.Recordset
mrc.Open "select * from yuanliaocaigou", cn, adOpenStatic, adLockReadOnly
 mrc.MoveNext
If mrc.EOF Then
   mrc.MoveFirst
End If
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=yuancheng;Data Source=YUANCHENG"
Set mrc = New ADODB.Recordset
mrc.Open "select * from yuanliaocaigou", cn, adOpenStatic, adLockReadOnly
If mrc.EOF Then
  MsgBox "没有要过帐的记录！", vbOKOnly, "信息提示"
Else
  Text(0).Text = mrc.Fields(0)
  Text(1).Text = mrc.Fields(1)
  Text(2).Text = mrc.Fields(2)
  Text(3).Text = mrc.Fields(3)
  Text(4).Text = mrc.Fields(4)
  Text(5).Text = mrc.Fields(5)
End If
这样子我还是不行！