Solved

Connection is busy with results for another command

Posted on 2006-07-24
3
600 Views
Last Modified: 2008-03-10
Experts,

Please help ASAP.  Here is my code.  How can I get rid of Connection is busy with results for another command error?

Please edit the code:
Set oRs4 = Server.CreateObject("ADODB.Recordset")
sqlStmt = "SELECT * from CLF_Sample_Hazards where SampleID = 0"
      oRs4.Open sqlStmt, oConn, 1, 3
      Set oRs5 = Server.CreateObject("ADODB.Recordset")
                  
      buff = ""
      j=0
      if Request.form("hazard"&i) <>"" then
            buff = Request.form("hazard"&i)
            options = Split(buff, " ")
                                                      
            For j=0 to UBound(options) - 1
                          if trim(options(j)) <>"" then
            sqlStmt = "SELECT * from CLF_Hazards where HazardDescription like '" &trim(options(j))&"%'"
            Set oRs5 = oConn.Execute(sqlStmt)
            if oRs5.BOF=false then oRs5.MoveFirst
                                          
            if not oRs5.EOF then
                                          
            oRs4.AddNew
            oRs4("SampleID")=  CreateSample
            if oRs5("hazardID") <>"" then oRs4("HazardID")=  oRs5("hazardID")
            oRs4("requestID") = create
            oRs4.Update '<----------------ERROR Connection is busy with results for another command
                                                
            end if
                                                
      end if
                                                
      next
                              
end if

0
Comment
Question by:suran78
  • 2
3 Comments
 
LVL 13

Accepted Solution

by:
jrram earned 500 total points
ID: 17168203
Are CreateSample and create functions?

And try taking out this

=============

Set oRs4 = Server.CreateObject("ADODB.Recordset")
sqlStmt = "SELECT * from CLF_Sample_Hazards where SampleID = 0"
oRs4.Open sqlStmt, oConn, 1, 3
Set oRs5 = Server.CreateObject("ADODB.Recordset")

=============

Just run this:

buff = ""
j=0
     
if Request.form("hazard"&i) <>"" then
      buff = Request.form("hazard"&i)
      options = Split(buff, " ")
                                             
      For j=0 to UBound(options) - 1
                         
            if trim(options(j)) <>"" then
         
                  sqlStmt = "SELECT * from CLF_Hazards where HazardDescription like '" &trim(options(j))&"%'"
                      Set oRs5 = oConn.Execute(sqlStmt)

                                   
                      if not (oRs5.BOF And oRs5.EOF) then

                        if oRs5("hazardID") <>"" then nHazard =  oRs5("hazardID")
                                   
                            insertSQL = "INSERT INTO TABLE(sampleID, hazardID, requestID) VALUES (" & CreateSample & "," & hazard & "," & requestID & ")"
                        oConn.Execute insertSQL

                        insertSQL = ""
                                       
                      end if
                                       
                 end if
                                       
     next
                         
end if
0
 

Author Comment

by:suran78
ID: 17168336
I changed to your code, but now I am getting a diffrent error:

Microsoft OLE DB Provider for SQL Server error '80004005'

Cannot create new connection because in manual or distributed transaction mode.

 insertSQL = "INSERT INTO CLF_Sample_Hazards(sampleID, hazardID, requestID) VALUES (" & CreateSample & "," & nhazard & "," & create & ")"
                    oConn.Execute insertSQL <------------ERROR
0
 

Author Comment

by:suran78
ID: 17168615
I forgot Createsample are not functions:

Set oRs3 = Server.CreateObject("ADODB.Recordset")
      sqlStmt = "SELECT * from CLF_Samples where SampleID = 0"
      oRs3.Open sqlStmt, oConn, 1, 3   ' adKeySet, adLockOptimistic
            for i=1 to nPropertyData
            CreateSample = 0
            oRs3.AddNew
if Request.form("SampleName"&i) <>"" then oRs3("SampleName")=  Request.form("SampleName"&i)'
if Request.form("chkMat"&i) <>"" then oRs3("UnknownMaterial")= Request.form("chkMat"&i)
if Request.form("SampleID"&i) <>"" then oRs3("SampleShippingID")= Request.form("SampleID"&i)
if Request.form("Otherhazard"&i) <>"" then oRs3("SampleSpecificHazard")= Request.form("Otherhazard"&i)
if Request.form("Otherhandle"&i) <>"" then oRs3("SampleSpecificHandling")= Request.form("Otherhandle"&i)
if Request.form("Samplename"&i) <>"" then oRs3("RequestID")= Create
                        
            oRs3.Update
            CreateSample = oRs3("sampleID")
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:  The Exchange of information …
Hello, all! I just recently started using Microsoft's IIS 7.5 within Windows 7, as I just downloaded and installed the 90 day trial of Windows 7. (Got to love Microsoft for allowing 90 days) The main reason for downloading and testing Windows 7 is t…
In this video I am going to show you how to back up and restore Office 365 mailboxes using CodeTwo Backup for Office 365. Learn more about the tool used in this video here: http://www.codetwo.com/backup-for-office-365/ (http://www.codetwo.com/ba…
Learn how to create flexible layouts using relative units in CSS.  New relative units added in CSS3 include vw(viewports width), vh(viewports height), vmin(minimum of viewports height and width), and vmax (maximum of viewports height and width).

920 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now