こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

DAOでのOpenRecordsetの方法

SQLServerのDBをDAOを使って更新しようとしていますが、方法がわからず困っています。
-------------------
private Cn as DAO.Database
private function fnc1() as integer
Dim ws As DAO.Workspace
Dim rcdst1 As DAO.Recordset
dim strCnct As String
dim strSQL As String

strCnct = "ODBC;Driver={SQL Server};SERVER=" & g_strSVName & ";DATABASE=" & g_strDBName & ";UID=" & strpUserID & ";PWD=" & strpPassword & ";"
'DB接続
Set Cn = ws.OpenDatabase("", False, False, strCnct)
strSQL = "SELECT * FROM Table1"
Set rcdst1 = Cn.OpenRecordset(strSQL, dbOpenDynaset, dbDenyWrite, dbOptimistic)
-------------------------------------
このOpenRecordsetで
ODBC--すべてのレコードをロックできません。(3254)
のエラーが出ます。
また、OpenRecordsetを
Set rcdst1 = Cn.OpenRecordset(strSQL, dbOpenDynaset)
とすると
rcdst1.Edit

データベースまたはオブジェクトは読み取り専用なので、更新できません。
のエラーが出ます。

どうしたらいいでしょうか。

投稿日時 - 2008-05-14 12:33:31

QNo.4021391

すぐに回答ほしいです

質問者が選んだベストアンサー

ぱっと見、問題なさそうなコードなんですが。

よくあるのは、DBそのものを誰かが先に掴んでいるという場合です。
既に業務用か何かのプログラムが、そのDBを排他的に開いてないですか?
また、自分自身のプログラムが「閉じ忘れ」ってのも結構ありますよ。

なんとなく、DB側に問題があるような気がしたもので。

投稿日時 - 2008-05-14 13:03:09

お礼

ですよね...

とりあえずADOでやればできるのでそのように変更しました。
ありがとうございました。

投稿日時 - 2008-05-14 15:10:15

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(2)

ANo.2

ADOで解決したみたいですが、DAOでODBC接続して更新するにはODBC Directを用いる必要があります。

こんな感じです
Dim Cn As DAO.Connection
Dim ws As DAO.Workspace
Dim rcdst1 As DAO.Recordset
Dim strCnct As String
Dim strSQL As String

strCnct = "ODBC;Driver={SQL Server};SERVER=(local);DATABASE=pubs;UID=xxx;PWD=xxx;"
'DB接続
Set ws = DBEngine.CreateWorkspace("", "", "", dbUseODBC)
Set Cn = ws.OpenConnection("", False, False, strCnct)
strSQL = "SELECT * FROM Table1"
Set rcdst1 = Cn.OpenRecordset(strSQL, dbOpenDynaset, dbExecDirect, dbOptimistic)

rcdst1.AddNew
rcdst1!ID = 1
rcdst1!Name = "aaa"
rcdst1.Update

http://msyk.net/vb5db/ODBCDirect.html
http://www.ie.reitaku-u.ac.jp/~ykago/lectures/db/dao/dao05.html

投稿日時 - 2008-05-14 22:02:06

お礼

連絡遅くなりすみませんでした。
ありがとうございました。

投稿日時 - 2010-06-24 18:20:07

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-