レコードセットのオープン

質問

修行中のものです。。。
エラーが発生してしまします。
間違いの点をお教え下さい。

自分的には”レコードセットのオープン”がいまいち分かりません。
【　objCon.Open　】

Dim objCon
Dim objRS
'##### コネクションオブジェクトの生成 #####
Set objCon = Server.CreateObject("ADODB.Connection")
'##### レコードセットオブジェクトの生成 #####
Set objRS = Server.CreateObject("ADODB.Recordset")
'##### 接続用パレメータの設定 #####
objCon.Provider = "Microsoft.Jet.OLEDB.4.0"

'##### MDBの絶対パス指定 #####
objCon.ConnectionString = (Server.MapPath("/") & "データベース")
'##### コネクションのオープン #####
objCon.Open

'##### データ参照 #####
objRS = "select [ID],[NAME],[URL],[CM1],[CM2],[CM3] from SITE_DATA"
%>

レコード件数 <%=objRS.RecordCount%>
<hr>

<%
'##### レコードセットのクローズ #####
objRS.Close
Set objRS = Nothing

'##### コネクションのクローズ #####
objCon.Close
Set objCon = Nothing
%>
お願いします

回答No.2

redfox63

OPENメソッドの後ろの 3,3というのは
レコードセットに使うカーソルのタイプと排他制御の方式です
このあたりは MSDNなどのリファレンスで確認しましょう

前の3はカーソルのタイプでスタティックカーソルというタイプで
他のユーザーが(同時期に)変更、削除した内容は反映されません

後ろの3は排他制御の方式でレコード単位の共有ロックをかけます
Updateメソッドを実行する際に ロックをかけるようです

私は、DBのベテランではないのでより詳しい内容となると情報を持ち合わせておりません
DBカテゴリーなどで質問されて方がいいかもしれません

回答No.1

redfox63

エラーメッセージなどが表示されているのであればその文言も質問に明記しましょう

objRSへSQL文の代入だけを行っているようですがこれではデータの取得は不能でしょう

やるならば
objRS.Open "SQL文", objCon
といった具合に Openメソッドの実行が必要だと思います

お礼

有り難う御座います。

'##### レコードオープン #####
objRS.Open strSQL, objCon, 3,3

でうまくいきましたが、、、

”3,3”ってなに？とか疑問は残っています、