When you call a recursive SQL Server stored procedure from an ADO application by using ODBC CALL syntax in a TRANSACTION, you may receive the following error message when COMMIT TRANSACTION is run:
The COMMIT TRANSACTION request has no corresponding BEGIN TRANSACTION. (Microsoft OLE DB Provider for SQL Server)
ADO causes Microsoft SQL Server to run the stored procedure on two occasions. First, it runs the procedure with SET FMTONLY set to ON. When SET FMT ONLY is set to ON, SQL Server always exceeds the maximum nesting level (32) irrespective of the parameter that is passed. Therefore, SQL Server aborts the batch, and rolls back the TRANSACTION. Because the SQL Server internally runs this method, no error is reported. SQL Server runs the stored procedure again. This time, depending on the parameter that is passed, the execution of the stored procedure occurs.

When this second execution of the stored procedure exceeds the 32-level limit, the correct error message is returned. When the correct execution of the stored procedure does not exceed the nesting level maximum, you receive the error message that is described in the "Symptoms" section. This occurs when COMMIT TRANSACTION is run. It is run because SQL Server rolled back the TRANSACTION when the maximum nesting was exceeded, and SQL Server aborted the batch.
To work around this problem, do not call the stored procedure by using ODBC Call syntax. You can call the stored procedure in may ways by using ADO. One of the methods is to call a stored procedure by using a command object. The following is an example:
  ' Command to execute the stored procedure   Dim cmd As ADODB.Command   Set cmd = New ADODB.Command   With cmd      ' Specify the command type as Stored Procedure      .CommandType = adCmdStoredProc      ' Specify the Stored Procedure to call      .CommandText = "RecursionTest"            ' Specify the Connection to be used      Set .ActiveConnection = cn            ' Set up new parameter for the stored procedure      Dim prm As Parameter      Set prm = cmd.CreateParameter("@Param", adInteger, adParamInput, , -35)      .Parameters.Append prm            ' Execute the Stored Procedure      .Execute   End With      Set cmd = Nothing
Microsoft has confirmed that this is a bug in the Microsoft products that are listed at the beginning of this article.

Steps to Reproduce the Behavior

  1. Open SQL Query Analyzer.
  2. In the Northwind sample database, run the following SQL script to create a recursive stored procedure:
    CREATE PROCEDURE RecursionTest @Param Int As Set @Param = @Param + 1 If @Param < 3       Exec RecursionTest @Param 
  3. Create a new Standard EXE project in Visual Basic 6.0. By default, Form1 is created.
  4. On the Project menu, click References.
  5. In the References list, double-click Microsoft ActiveX Data Objects 2.7 Library, and then click OK.
  6. In the toolbox, double-click CommandButton to add the CommandButton to the Form. By default, Command1 is created.
  7. Double-click Button1 to add code for the click event of Command1.
  8. Replace the existing code in the Command1_Click event with the following code:
    Private Sub Command1_Click()      ' Connect to SQL Server   Dim cn As ADODB.Connection   Set cn = New ADODB.Connection   cn.Open "Provider=SQLOLEDB; Data Source=(local);Initial Catalog=Northwind;Integrated Security=SSPI"      ' Begin a Transaction   cn.Execute "BEGIN TRANSACTION", , adExecuteNoRecords      ' Create a Command to execute Stored Procedure   Dim cmd As ADODB.Command   Set cmd = New ADODB.Command   With cmd      strSQL = "{ call RecursionTest (?)}"      .CommandType = adCmdText      .CommandText = strSQL      Set .ActiveConnection = cn      .Prepared = True      .Parameters(0) = -3            ' Execute the Stored Procedure      .Execute   End With      Set cmd = Nothing      ' Commit the Transaction   cn.Execute "COMMIT TRANSACTION", , adExecuteNoRecords   cn.Close   Set cn = NothingEnd Sub
  9. On the Run menu, click Start to run the application.
  10. Click Command1.
For more information, visit the following MSDN Web site:

Article ID: 810100 - Last Review: 11/13/2006 08:04:12 - Revision: 3.1

Microsoft ActiveX Data Objects 2.7, Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic 6.0 Learning Edition, Microsoft Visual Basic 6.0 Professional Edition

  • kbstoredproc kbsqlprog kbdatabase kbclient kberrmsg kbbug KB810100