Source
 テーブル、クエリ、SQL

ActiveConnection

CursorType
 adOpenForwardOnly (既定)前方スクロールカーソル
 adOpenKeyset キーセットカーソル
 adOpenDynamic 動的カーソル
 adOpenStatic 静的カーソル

LockType
 adLockReadOnly (既定)読み取り専用
 adLockPessimistic レコード単位の排他的ロック
 adLockOptimistic レコード単位の共有的ロック
 adLockBatchOptimistic 共有的バッチ更新
 adLockUnspecified ロックタイプを指定しない

----------------------------------------------------------
Sub Test21()
    Dim CN As ADODB.Connection
    Dim RS As ADODB.Recordset
    
    Set CN = CurrentProject.Connection
    Set RS = New ADODB.Recordset
    
    RS.Source = "tbl商品"
    RS.ActiveConnection = CN
    RS.CursorType = adOpenKeyset
    RS.LockType = adLockOptimistic
    RS.Open
    
    MsgBox RS.Fields.Count
    
    RS.Close
    Set RS = Nothing: Set CN = Nothing
End Sub

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



Microsoft Office ブログランキングへ