Mycon.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;" & "data source=" & App.Path & "\data\db0.mdb"
Mycon.Open
MyRs.Open "select * from GL", Mycon, adOpenDynamic
这样一个数据库
我想通过一个查询改变MyRs指针指向的位置,应该怎么做?

解决方案 »

  1.   

    n的值是什么?
    例如用这个查询
    Dim strsql As String
    strsql = "select * from GL where x<Position(0)+0.0001 and x>Position(0)-0.0001 and y<Position(1)+0.0001 and y>Position(1)-0.0001"
    If MyRs1.State = adStateOpen Then MyRs1.Close
    MyRs1.Open strsql, Mycon, adOpenKeyset, adLockReadOnlyMyRs.move ?
      

  2.   

    n代表你想移动的数值
    可以通过
    MyRs.movenext
    MyRs.MovePrevious
    MyRs.MoveLast
    等来控制记录集的移动