VBS ADO接続について

質問

VBSCRIPTを使用するのが始めてでなかなかうまくいきません
アドバイス頂けますでしょうか。
環境 Windows2000Server

下記のようにしてみたのですが、エラーメッセージとしては
「オブジェクト名'test2'は無効です。」と出てしまいます。
このテーブル'test2'はクエリアナライザでSQLを使って
作成しました。

色々調べてはいますが、できましたらアドバイスの方お願いできますでしょうか。

Private Function DbDataUpdate(id2)
Dim sql
Dim conObj_

'DBオブジェクトの生成
Set conObj_ = WScript.CreateObject("ADODB.Connection")
conObj_.open "DSN=×××;UID=×××;PWD=×××;"
conObj_.BeginTrans

sql = "INSERT INTO test (id1, id2) " & _
"SELECT id1, id2 FROM test2 " & _
"WHERE " & _
"del = 0 AND " & _
"id2 = '" & id2 & "'"
conObj_.execute(sql)

sql = "UPDATE test2 " & _
"SET del = 1," &_
"WHERE " & _
"del = 0 AND " & _
"id2 = '" & id2 & "'"
conObj_.execute(sql)

conObj_.CommitTrans
conObj_.close

End Function

回答No.1

hotosys · ベストアンサー

コピーミスかどうかはわからないが、質問の
"SET del = 1," &_
のカンマはおかしくない？
ただこれが原因ならSQLの構文エラーになるはずだし。

お礼

アドバイスありがとうございます。
こちらの方ODBCの設定の問題でした。

ご指摘の通りカンマ部分はコピーミスをしていました。
また何かございましたら宜しくお願いします。