| |
▼PT さん：
>neptune さんすみません。定数です。
>ConnectionオブジェクトのCursorTypeプロパティに静的カーソル(3)を指定
>したあとで 接続するメソットOpenに定数-1を指定した場合、CursorTypeは静的カーソルだと僕の知識にあるのと実機ではそうなるのですがちがっていますでしょうか？定数-1がよくわからないのです。大変説明不足ですみません。ご教授願えますと助かります。
私もカーソルタイプの「-1」というのは使ったことがなかったので
調べてみました。
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpado260/htm/mdcstcursortypeenum.asp
つまりカーソルタイプの「-1」というのは「カーソルの種類を指定しない」とのことらしいです。
>ConnectionオブジェクトのCursorTypeプロパティに静的カーソル(3)を指定
>したあとで 接続するメソットOpenに定数-1を指定した場合、CursorTypeは静的カーソル
テストしてみました。
※下記コード
結果、カーソルタイプ「-1」は何をしてもデフォ値の「0」が返ってきました。
（ちなみにロックタイプ「-1」もデフォ値の「1」を返してきました）
>メソットOpenに定数-1を指定した場合、CursorTypeは静的カーソル
はどのようなテストで返ってきたのでしょうか？
以下、テストコード
'***********************************************************************************
Sub test()
Dim Con As ADODB.Connection
Dim Rst1 As ADODB.Recordset
Dim Rst2 As ADODB.Recordset
Set Con = New ADODB.Connection
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test\test.mdb;"
Set Rst1 = New ADODB.Recordset
Rst1.Open "ttable1", Con, adOpenStatic, adLockReadOnly, adCmdTable
' Rst1.Open "ttable1", Con, adOpenDynamic, adLockPessimistic, adCmdTable
Set Rst2 = New ADODB.Recordset
Rst2.Open "ttable2", Con, adOpenUnspecified, adLockUnspecified, adCmdUnspecified
MsgBox "1つ目のRecordsetのCursorTypeは･･･" & CStr(Rst1.CursorType) & vbLf & _
"2つ目のRecordsetのCursorTypeは･･･" & CStr(Rst2.CursorType) & vbLf & vbLf & _
"1つ目のRecordsetのLockTypeは･･･" & CStr(Rst1.LockType) & vbLf & _
"2つ目のRecordsetのLockTypeは･･･" & CStr(Rst2.LockType)
Rst2.Close
Set Rst2 = Nothing
Rst1.Close
Set Rst1 = Nothing
Con.Close
Set Con = Nothing
End Sub
'***********************************************************************************
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
