ACCESS2010でSELECTの問題
ACCESS初心者です。
既にレコードが存在すテーブルで、DBを更新モードで開き、SELECT句を実行すると、更新モードから読み込みモードになり、更新/追加ができなく困っています。
以下にサンプルコーディングを掲載します。
SQLを実行する前と、実行後に
LockType
を表示したところ、
実行前は「３」更新可
実行後は「１」更新不可
となります。
どのようにすれば「LockType」が変らないようにできるでしょうか。
よろしくお願いします。
----------------------------------------------------------------------------------------------------------------------
Dim cmd As New ADODB.Command
Dim rs_issues As ADODB.Recordset
Dim adoCn As Object 'ADOコネクションオブジェクト
Set adoCn = CreateObject("ADODB.Connection") 'ADOコネクションオブジェクト
adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &
"データベース名"
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = adoCn
Set rs_issues = New ADODB.Recordset
rs_issues.Open "T_issues", db, adOpenDynamic, adLockOptimistic
cmd.CommandText = "SELECT *FROM T_issues WHERE i_チケット番号=123456"
Debug.Print rs_issues.LockType '(1)LockType=3
Set rs_issues = cmd.Execute
Debug.Print rs_issues.LockType '(1)LockType=1
お礼
返事のメールを見てください。 補足に書いてあります。
補足
返事のメールに気付かなかった、申し訳ないです。 イタリアの「Ｉｎｔｅｒｌｕｄｅ］は、2000円を1000円に、フランスの「Ｔｒａｔｔｏｒｉａ Ｐｉｎｏ］は7000円を3000円に。 それぞれの期限は12月14日、3月3日です。