FIX: Transaction Rolls Back Automatically with Error 8144 on a Prepared Command

• You use Microsoft SQL OLE DB Provider (SQLOLEDB).
• You execute the stored procedure in the scope of a transaction more than one time.
• You do not set the parameters manually (for example, you populate the parameter collection by using the Parameters.Refresh method in ADO).
• You perform a deferred prepare on the command (for example, command.Properties("Defer Prepare") = TRUE which is the default option and command.Prepared=TRUE).

    Date           Version           Size              File name     
    ------------------------------------------------------------
    11-Sep-2002    2000.81.9031.3    471,040 bytes     Sqloledb.dll
				

WORKAROUND

• Manually set the parameter information.
• Do not prepare the command on which the stored procedure is executed.
• Set the Defer Prepare property to False on the command object (for example: command.Properties("Defer Prepare") = False).

Steps to Reproduce the Behavior

1. Execute the following script to create stored procedure that is named test_sp:

   'Stored Procedure definition
   create procedure test_sp @p1 int, @p2 int
   as
   set nocount on
   return 1
   					

2. Create a new Standard EXE project in Microsoft Visual Basic 6.0.
3. On the Project menu, click References, and then click to select the Microsoft ActiveX Data Objects 2.7 Library check box.
4. Add a CommandButton to the main Form.
5. Double-click the Command button. Paste the following code in the Command1_Click() event handler:
   
   NoteYou must change the User Id <user name> and the password <strong password> to the correct values. Make sure that User ID has the appropriate permissions to perform these operations on the database.

   Private Sub Command1_Click()
   Dim cn As New ADODB.Connection
   Dim cmd As New ADODB.Command
   
   cn.Open "provider=sqloledb;data source=mysqlserver;User Id=<username>;Password=<strong password>;initial catalog=pubs"
   cmd.ActiveConnection = cn
   cmd.CommandText = "test_sp"
   cmd.CommandType = adCmdStoredProc
   cmd.Prepared = True
   
   cmd.Parameters.Refresh
   cn.BeginTrans
   For i = 1 To 2
      cmd(1) = 1
      cmd(2) = 2
    cmd.Execute
   Next
   
   ' Manually setting the param values works
   'cmd.CreateParameter "p2", adInteger, adParamInput
   'With cmd
   '    .Parameters.Append .CreateParameter("p1", adInteger, adParamInput)
   '    .Parameters.Append .CreateParameter("p2", adInteger, adParamInput)
   'End With
   '
   'cn.BeginTrans
   'For i = 1 To 2
   '    cmd.Parameters.Item("p1") = 1
   '    cmd.Parameters.Item("p2") = 2
   '    cmd.Execute
   'Next
   
   Set cmd = Nothing
   cn.CommitTrans
   cn.Close
   Set cn = Nothing
   
   End Sub
   					

   NOTE: Change the connection string as appropriate for your environment.
   
   
6. Save and then run your project.