
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
で
データベースまたはオブジェクトは読み取り専用なので、更新できません。
のエラーが出ます。
どうしたらいいでしょうか。
No.1ベストアンサー
- 回答日時:
ぱっと見、問題なさそうなコードなんですが。
よくあるのは、DBそのものを誰かが先に掴んでいるという場合です。
既に業務用か何かのプログラムが、そのDBを排他的に開いてないですか?
また、自分自身のプログラムが「閉じ忘れ」ってのも結構ありますよ。
なんとなく、DB側に問題があるような気がしたもので。
No.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 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
DAOでSQLServerに接続し、LeftJoinで別DBのテーブル
Visual Basic(VBA)
-
ODBC接続で新しいレコードを追加できない
SQL Server
-
Accessでテーブルをデータシートビューで開けない
その他(データベース)
-
-
4
ODBCで接続するとDBに変更/追加出来ない。
SQL Server
-
5
テーブルリンク リンク元を知りたい
Access(アクセス)
-
6
Accessのmdbを開こうとしたときのエラー
Access(アクセス)
-
7
ODBCの接続に失敗しました(3146)について
その他(Microsoft Office)
-
8
ODBCリンクの際にACCESSでは読み取り専用にしたい!
Oracle
-
9
DAOのTableDefs(TblName").ConnectはADOでは"
その他(データベース)
-
10
Accessのフォーム上でSQLServerのデータを更新・追加する方法
その他(プログラミング・Web制作)
-
11
Accessを開くと「排他モードじゃないので変更しても保存できない」との旨の表示が出てしまう。
Access(アクセス)
-
12
Accessでテーブル名やクエリ名一覧の抜き出し
Access(アクセス)
-
13
「データベースまたはオブジェクトは読み取り専用なので、更新できません」エラーについて
その他(データベース)
-
14
VBAでSQLServerへのODBC接続
SQL Server
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
osqlでデータベースにアクセス...
-
SQL ServerにTCP/IPで接続出来ない
-
ODBCによるエラー
-
DAOでのOpenRecordsetの方法
-
ODBC 一般ネットワークエラー
-
SQLServerへのOpen命令でのエラー
-
SQLのエラー(~付近に不適切な...
-
Excel-VBAの「しばらくお待ちく...
-
異なるサーバーにファイルをエ...
-
Oracle 8i コンマ(,)を含むデ...
-
SQL Loaderを使いたい
-
AccessのDAO.ExecuteとDoCmd.Ru...
-
(SQLSERVER) 別サーバーへテー...
-
別サーバーのDB同士を結合する...
-
ACCESS ADOでupdateが効かない
-
バッチでのSQL実行結果の分岐処...
-
バッチファイルからのBCP起動に...
-
新規saの作成方法について
-
GROUP BYでエラーが発生
-
drop user できない。ORA-01940
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access2010 accdbのエラー「ODB...
-
SQLServerへのOpen命令でのエラー
-
SQLネットワークエラー時の再接続
-
ODBCによるエラー
-
アーカイブログをネットワーク...
-
DAOでのOpenRecordsetの方法
-
ACCESSのODBC接続でエラー
-
SQL ServerにTCP/IPで接続出来ない
-
SQL Server 2005 Expressでbcp...
-
SQLサーバに接続できません
-
mdfに通信できません
-
ADOのFILTERプロパティ
-
ASP.NET、SQLServerを使用してW...
-
PostgreSQLと、AccessをODBC接続
-
LinuxServer MySQLにWindows200...
-
Sybaseのエラー
-
DBへの登録エラー?
-
SQL Server 2008のsqlcmdコマン...
-
ASP経由でのODBCの接続について
-
TNSNAMS.ORAの設定がうまくでき...
おすすめ情報