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 & ";"
'ＤＢ接続
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
で
データベースまたはオブジェクトは読み取り専用なので、更新できません。
のエラーが出ます。
どうしたらいいでしょうか。
