パラメータを使ったSQLのトランザクション処理について

Question

前提

既存をコードをトランザクション処理に変更したく、
BeginTrans、RollbackTrans、CommitTransを入れてみたがうまくいきません

該当のソースコード

現状のコード→正常に動作します

sSQL = ""
sSQL = sSQL & "  DELETE FROM "
sSQL = sSQL & "    usermanagement"
sSQL = sSQL & "  WHERE"
sSQL = sSQL & "    LoginName = ?"

Set oCmd = CreateObject("ADODB.Command")
oCmd.CommandTimeout = 1200
oCmd.ActiveConnection = oConn
oCmd.CommandType = 1
oCmd.CommandText = sSQL
oCmd.Parameters.Append oCmd.CreateParameter("@LoginName", 3, 1, , strUserID)

Set oRS = oCmd.Execute()

修正後のコード→ エラーになりmsgbox("RollbackTrans")が表示されます

set oConn = CreateObject("ADODB.Connection"):
oConn.ConnectionTimeout = 20
oConn.CommandTimeout = 1800
oConn.Open(CommonDSN):

oConn.BeginTrans'追加

sSQL = ""
sSQL = sSQL & "  DELETE FROM "
sSQL = sSQL & "    usermanagement"
sSQL = sSQL & "  WHERE"
sSQL = sSQL & "    LoginName = ?"

Set oCmd = CreateObject("ADODB.Command")
oCmd.CommandTimeout = 1200
oCmd.ActiveConnection = oConn
oCmd.CommandType = 1
oCmd.CommandText = sSQL
oCmd.Parameters.Append oCmd.CreateParameter("@LoginName", 3, 1, , strUserID)

Set oRS = oCmd.Execute()

if Err.Number <> 0 then
    oConn.RollbackTrans'追加
    msgbox("RollbackTrans")
else
    oConn.CommitTrans'追加
    msgbox("CommitTrans")
end if

試したこと

何が悪いでしょうか
アドバイスお願いいたします。

追記

ちなみに下記は問題なく実行できます。
これをパラメータ化する方法が知りたいです

oConn.BeginTrans
sSQL = ""
sSQL = sSQL & " DELETE FROM "
sSQL = sSQL & " usermanagement"
sSQL = sSQL & " WHERE"
sSQL = sSQL & " LoginName = " & strUserID

call oConn.Execute(sSQL)

if Err.Number <> 0 then
'更新失敗
oConn.RollbackTrans
else
'更新成功
oConn.CommitTrans
end if

Comments

[jem32o_]

エラーは何が出てます？

[KOZ6.0]

oCmd.Parameters.Append oCmd.CreateParameter("@LoginName", 3, 1, , strUserID)
3 : adInteger
1 : adParamInput
ですが、あってますか？
strUserID って文字列じゃないのでしょうか？

[KOZ6.0]

strUserID には何が入っているのでしょうか？数字ですか？
それとも 「'」でくくった文字列？

[okakemetal]

以下の修正をお試しください

Set oRS = oCmd.Execute()
↓
Set rs = New ADODB.Recordset
rs.Open sSQL, oConn

Answer 1

エラーの内容が不明ですが、通常トランザクションの制御は実行するものに合わせます。
試しに、oConnでExecute、若しくは、oCmd でトランザクション制御してみて下さい。

後は、ODBC接続なら接続先DBMS依存のエラーかもしれません。

Comments

[Ruri5280]

回答ありがとうございます。

oCmd.BeginTransとすると下記のエラーになり
Microsoft VBScript 実行時エラー: オブジェクトでサ ポートされていないプロパティまたはメソッドです。: 'oCmd.BeginTrans'

oConn.executeすると
Microsoft VBScript 実行時エラー: 引数の数が一致し ていません。または不正なプロパティを指定しています。: 'oConn.execute'

oConn.execute(sSQL)すると
Microsoft VBScript 実行時エラー: Microsoft OLE DB Provider for SQL Server: 1 つ以上の必要なパラメーターの値が設定されていません。

となってしまいます。。

[Ruri5280]

ちなみに下記は問題なく実行できます。
これをパラメータ化する方法が知りたいです

oConn.BeginTrans
sSQL = ""
sSQL = sSQL & " DELETE FROM "
sSQL = sSQL & " usermanagement"
sSQL = sSQL & " WHERE"
sSQL = sSQL & " LoginName = " & strUserID

call oConn.Execute(sSQL)

if Err.Number <> 0 then
'更新失敗
oConn.RollbackTrans
else
'更新成功
oConn.CommitTrans
end if

[sazi]

どのようなコードで実装しているか分かりませんので、取りあえず以下を参考にしてみて下さい。
【VBScript】SQLServerに接続してSQL(UPDATE)を実行
https://www.depthbomb.net/?p=124

上記でトランザクション制御できれば次にパラメータ部分ですね。