求助:怎样读取记录的值

huangyz_xy

表Table有A/B/C/D四列,怎样依次读取或者隔行读取记录的值?用子窗体的方法可以,但是要在窗体中创建子窗体很麻烦,请大侠赐教!

ui

用DAO或ADO循环读取

termisss

上班之余,来逛逛论坛.

huangyz_xy

Dim rs As Recordset, Y As Double
     Set rs = New ADODB.Recordset
     rs.ActiveConnection = CurrentProject.Connection
     rs.Open "RxLevelSub", , adOpenKeyset, adLockOptimistic
     rs.MoveFirst  
     Do Until rs.EOF = True  
     MsgBox rs!ID
     rs.MoveNext
    提示方法和成员未找到，怎么办阿？
     Loop
     rs.Close

zyp

Dim CN As New ADODB.Connection
   Dim RS As New ADODB.Recordset
   Set CN = CurrentProject.Connection
   RS.Open "SELECT * FROM RxLevelSub", CN, adOpenKeyset, adLockReadOnly
   Do Until RS.EOF
        MsgBox RS!ID
        RS.MoveNext
    Loop
    RS.Close
    Set RS = Nothing
    CN.Close
    Set CN = Nothing

huangyz_xy

感谢感谢！