VBでExecuteが通らない
朝倉@東京です。
VBで、以下の手順で ODBCデータベースを開きました。
Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "admin", "", dbUseODBC)
Set curDB = wrkODBC.OpenDatabase("", _
dbDriverNoPrompt, _
False, _
"ODBC;" & _
"DATABASE=" & CST_DB_NAME & ";" & _
"UID=;" & _
"PWD=;" & _
"DSN=" & CST_DS_NAME)
その後レコードセットを取得する際に
sql_str = "select * from テーブルA"
Set pb_Rec_F5 = pb_curDB.OpenRecordset(sql_str, dbOpenDynaset)
を実行して、
Data_String=pb_Rec_F5("~フィールド名~")
でテーブルA内の各フィールドを呼び出して各処理を行いました。
ここからなのですが、データの削除を行う必要があって、
sql_str = "delete from テーブルA where Num = 0001"
curDB.Execute sql_str
を実行しようとすると
「ODBC--呼び出しは失敗しました。」(Error.Number 3146)
とエラー表示が出ます。
ODBCの設定なども見ましたがよくわかりませんでした。
構文に間違いがあるのでしょうか?それともODBCの設定?
初歩的な質問ですがご教授お願いします。