Sub Test1()
    Dim CN As ADODB.Connection
    Dim RS As ADODB.Recordset
    
    Set CN = CurrentProject.Connection
    Set RS = CN.Execute("tbl名簿")
    
    
    
    RS.Close
    Set RS = Nothing: Set CN = Nothing
End Sub


Executeでは、テーブル、クエリ、SQLを指定できる

Executeでレコードセットを取得した場合は、
CursorType は adOpenForwardOnly(既定)
LockType は adLockReadOnly 読み取り専用(既定) になる。

--------------------------------------------------------

Sub test2()
    Dim CN As ADODB.Connection
    Dim RS As New ADODB.Recordset
'    -----------------
'    Dim RS As ADODB.Recordset
'    Set RS = New ADODB.Recordset
'    -----------------
    
    Set CN = CurrentProject.Connection
    
    With RS
        .Source = "tbl名簿"
        .ActiveConnection = CN
        .CursorType = adOpenStatic '静的カーソル
        .Open
    End With
    

    
    RS.Close
    Set RS = Nothing: Set CN = Nothing
End Sub

RecordsetオブジェクトのOpenメソッドの引数


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ