VBAからaccessへの接続で、RecordsetのCursorTypeが勝手に変更される

Question

エクセルVBAからaccessへの接続で、RecordsetのCursorTypeが勝手に変更されてしまいます。

Dim rst As New ADODB.Recordset
rst.CursorType = adOpenStatic

と「adOpenStatic」に設定したいのですが、
Set rst = con.Execute(sql_str, , adCmdText)
のようにクエリを実行した直後にCursorTypeを調べると、「adOpenForwardOnly」に変わってしまっています。
（設定直後に調べると、ちゃんとadOpenStaticになっています）

「CursorType」を何に設定しても、Execute直後に「adOpenForwardOnly」になってしまっていまうようです。

CursorTypeをadOpenStaticにして、RecordCountを使いたいのですが、、、
CursorTypeが変わってしまう原因をお知りの方は、教えていただけるとありがたいです。

Dim rst As New ADODB.Recordset
Dim con As New ADODB.Connection
con.Open "Provider=Microsoft.jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\" & mdb_file & ";"
rst.CursorType = adOpenStatic
rst.LockType = adLockReadOnly
MsgBox "前 = " & rst.CursorType
Set rst = con.Execute(sql_str, , adCmdText)
MsgBox "後 = " & rst.CursorType

Wendy02 · Accepted Answer

ohnotellme　様。

Recordset の前に Commandを実行してから、Recordset を開けるのじゃないでしょうか？
ここらになると、さすがに、SQL が手が出ないので、実際のところ確かめは出来てはいないのですが、以下に、一応、格好だけは出来ています。

UserFunction ですから、一応、貫通したら、ErrHandler のメッセージの部分は必要ありません。それと、Connectionは、開きっぱなしにしてよいのか、ここらは、まだ経験が浅いので、私には判断付きませんが、私の知っている範囲では、一旦閉じるようにすると聞いています。しかし、[閉じる]・[開ける]を繰り返すのは、その反応を異様に遅くするのです。それで、前回、ADO使って、Excel側からのコネクトする方法は、さじを投げてしまいました。

今回は、ほとんど自信がありませんので、そちら側で、ブレークポイントを設けて、ちょっと見てくださいませんか？私にとっても、ここはまだ勉強中で、もう少し余裕があれば、また違った回答ができるかと思いますが、それでも何とか解決までこぎつけたいです。
よろしくお願いします。

'--------------------------------------------------------
Public Function post_query(ByVal sql_str As String) As Integer
　 Dim Con As New ADODB.Connection
　 Dim Rst As ADODB.Recordset
　 Dim Cmd As ADODB.Command
　 Dim mdb_file As String
　mdb_file = "code.mdb"
 On Error GoTo DbClose
　 Con.Open "Provider=Microsoft.jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\" & mdb_file & ";"
Set Cmd = New ADODB.Command
Set Cmd.ActiveConnection = Con
With Cmd
　.CommandText = sql_str
　.CommandType = adCmdText
　.Execute
End With
Set Rst = New ADODB.Recordset
Set Rst.ActiveConnection = Con
Rst.Open ,Cmd , adOpenStatic, adLockReadOnly 
　'※ここでチェック(Break Point地点)
post_query = Rst.RecordCount
DbClose:
If Err.Number > 0 Then
　MsgBox Err.Number & "(" & Err.Description & ")"
　On Error GoTo 0
End If
Con.Close
　Set Cmd = Nothing
　Set Rst = Nothing
　Set Con = Nothing
End Function

Wendy02 · Answer

＞上2行を加えて、下2行をコメントアウトしてみましたが、やはりCursorTypeが変更してしまいました。。。

mySql ="Select...From...Where..... ;"
これは、仮のSql の内容で、実際に、テーブルを開けないとダメなのです。SQLの内容は、こちらでは書けませんから、それをお作りなって、RecordSetをオープンされましたでしょうか？

その上で、MsgBox ではなくて、どこか、ブレーキングポイントを設けて、ローカルウィンドウをお調べなればよいと思いますが。

Wendy02 · Answer

以下のように設定しなければ、デフォルトになるだけではありませんか？

Dim rst As New ADODB.Recordset
Dim con As New ADODB.Connection
con.Open "Provider=Microsoft.jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\" & mdb_file & ";"

mySql ="Select...From...Where..... ;"

rst.Open mySql, con, adOpenStatic, adLockReadOnly   '←ここ
'rst.CursorType = adOpenStatic
'rst.LockType = adLockReadOnly
MsgBox "前 = " & rst.CursorType
Set rst = con.Execute(sql_str, , adCmdText)
MsgBox "後 = " & rst.CursorType

VBAからaccessへの接続で、RecordsetのCursorTypeが勝手に変更される

ohnotellme 様。

この回答への補足

＞上2行を加えて、下2行をコメントアウトしてみましたが、やはりCursorTypeが変更してしまいました。

この回答への補足

以下のように設定しなければ、デフォルトになるだけではありませんか？

この回答への補足

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

ohnotellme　様。