- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
975 ：デフォルトの名無しさん[]：2015/11/26(木) 23:14:10.18 ID:PB3DqV4H - >>974
たとえばサンプルとして以下の場合、次の部分はどう書くんですか？省略せず
Debug.Print rs!売上日, rs!社員名, rs!性別, rs!売上額, rs!職種
Sub ADORecordset修正()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "T_売り上げ管理", cn, adOpenForwardOnly, adLockReadOnly
Do Until rs.EOF '--- A
Debug.Print rs!売上日, rs!社員名, rs!性別, rs!売上額, rs!職種
rs.MoveNext '--- B
Loop
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
|