movenext为什么只能够向下走一步,再click就没有反应了,为什么?解决了马上给分

Question

Private Sub Command5_Click()
    Set Rs = New ADODB.Recordset
    With Rs
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockPessimistic
        .Open "select * from 表1", Cnn
    End With
    
    Rs.MoveNext
    
    Me.Text1.Text = IIf(IsNull(Rs.Fields("c")), "", Rs.Fields("c"))
    Me.Text2.Text = IIf(IsNull(Rs.Fields("a")), "", Rs.Fields("a"))       
    Me.Text3.Text = IIf(IsNull(Rs.Fields("e")), "", Rs.Fields("e"))        
    Me.Text4.Text = IIf(IsNull(Rs.Fields("f")), "", Rs.Fields("f"))
    Me.Text5.Text = IIf(IsNull(Rs.Fields("g")), "", Rs.Fields("g"))        
    Rs.Close
    
    Form_Load
End Sub
大家帮我看看,是什么原因?
解决了马上给分
我不用Data或者ADODC控件,要用ADO来操作.谢谢.
数据连接没有问题.
还有就是我的movepreview出错.报错为已经是第一条了,为什么?
Private Sub Command6_Click()
    Set Rs = New ADODB.Recordset
    With Rs
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockPessimistic
        .Open "select * from 表1", Cnn
    End With
    
    Rs.MovePrevious
    
    Me.Text1.Text = IIf(IsNull(Rs.Fields("c")), "", Rs.Fields("c"))
    Me.Text2.Text = IIf(IsNull(Rs.Fields("a")), "", Rs.Fields("a"))        '数字型
    Me.Text3.Text = IIf(IsNull(Rs.Fields("e")), "", Rs.Fields("e"))        '文本型
    Me.Text4.Text = IIf(IsNull(Rs.Fields("f")), "", Rs.Fields("f"))
    Me.Text5.Text = IIf(IsNull(Rs.Fields("g")), "", Rs.Fields("g"))     'boolen
    
    'Rs.Update
    Rs.Close
    
    Form_Load
End Sub

Answer 1

晕.
不要每次都调这个
    Set Rs = New ADODB.Recordset
    With Rs
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockPessimistic
        .Open "select * from 表1", Cnn
    End With把他放在Command5_Click()外面.不要Rs.Close这个这么快,如过想关闭,请先克龙这个记录集先.然后在克龙的记录集进行NEXT RS操作.

Answer 2

连续按Command5的反映如何啊？
是不是也出错啊？

Answer 3

Set Rs = New ADODB.Recordset
    With Rs
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockPessimistic
        .Open "select * from 表1", Cnn
    End With写到Form_load里
private rs as adodb.recordset'private sub form_Load()
.....
end sub
Private Sub Command5_Click()
   
    Rs.MoveNext
    
    Me.Text1.Text = IIf(IsNull(Rs.Fields("c")), "", Rs.Fields("c"))
    Me.Text2.Text = IIf(IsNull(Rs.Fields("a")), "", Rs.Fields("a"))       
    Me.Text3.Text = IIf(IsNull(Rs.Fields("e")), "", Rs.Fields("e"))        
    Me.Text4.Text = IIf(IsNull(Rs.Fields("f")), "", Rs.Fields("f"))
    Me.Text5.Text = IIf(IsNull(Rs.Fields("g")), "", Rs.Fields("g"))        
    
 End Sub