Solved

Microsoft Cursor Engine error '80040e21'

Posted on 2009-04-06
11
1,338 Views
Last Modified: 2012-05-06
Hi, I keep getting this error:

  Microsoft Cursor Engine error '80040e21'
  Multiple-step operation generated errors. Check each status value.

I know this error generally appears when trying to enter too much data into a field that hasn't been set big enough.

The code generating the error is below. It appears on the line:
transactionRS("transactionItem") = serviceName

it is trying to enter some data into a MySQL database, the datatype for the filed is VARCHAR(255) but serviceName is a maximum of 20 characters

any suggestions?
transactionRS.AddNew
transactionRS("transactionItem") = serviceName
transactionRS.Update

Open in new window

0
Comment
Question by:roycasella
  • 6
  • 5
11 Comments
 
LVL 50

Expert Comment

by:Ryan Chong
ID: 24077313
can you post the source code before the line:

transactionRS.AddNew


?

make sure you open your recordset is writable?

like:

transactionRS.open yourSQL, conn, 3, 3

?
0
 
LVL 7

Author Comment

by:roycasella
ID: 24077648
here you go:


Set transactionRS = Server.CreateObject("ADODB.Recordset")
transactionQuery = "Select * FROM transactions"
transactionRS.Locktype = 3
transactionRS.CursorLocation = 3
transactionRS.Open transactionQuery, insertConnect

Open in new window

0
 
LVL 50

Expert Comment

by:Ryan Chong
ID: 24077937
Ok, that's working fine for me, data is inserted into database:
<%
 
serviceName = "My service " & Now()
 
insertConnect = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=root;PASSWORD=password"
 
    Set transactionRS = Server.CreateObject("ADODB.Recordset")
    transactionQuery = "Select * FROM transactions"
    transactionRS.LockType = 3
    transactionRS.CursorLocation = 3
    transactionRS.Open transactionQuery, insertConnect
    
    transactionRS.AddNew
    transactionRS("transactionItem") = serviceName
    transactionRS.Update
    
    transactionRS.Close
    Set transactionRS = Nothing
 
response.write "Done! " & Now()
 
%>

Open in new window

0
PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

 
LVL 7

Author Comment

by:roycasella
ID: 24078438
that's what I thought. It's totally confusing me as it seems to work sometimes but not others.
for the following serviceName cases it works
Swap Shop
Stylefile

but for these it doesn't:
Wardrobe Rehab
Delux Wardrobe Rehab

You can see that these are larger strings but it's writing to a field with a datatype of varchar(255)
0
 
LVL 50

Expert Comment

by:Ryan Chong
ID: 24078554
The values I tested to be inserted into database certainly are longer than "Delux Wardrobe Rehab" and without any problems.

alternatively, you may try use an Insert SQL statement instead, just in case you can't figure it out and you run out of time... like below:
<%
 
serviceName = "My service " & Now()
 
insertConnect = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=root;PASSWORD=password"
 
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.open insertConnect 
 
    v = Replace(serviceName,"'","''")
    SQL = "Insert into transactions (transactionItem) Values ('" & v & "')"
 
    conn.execute SQL
    conn.close
    set conn = nothing
 
response.write "Done! " & Now()
 
%>

Open in new window

0
 
LVL 7

Author Comment

by:roycasella
ID: 24088251
ok, tried that. The code below is the actual code in the page.
I've put a Response.Write statement in there to view the generated sql string and it produces valid SQL:
INSERT INTO transactions (date,TxCode,transactionItem,clientId) VALUES ('07-04-2009 16:12:18','stylefile07042009091','Swap Shop Points','3')

But I get the following error:

Microsoft VBScript runtime  error '800a01a8' Object required: '' /protx/buyservice.asp, line 300

line 300 is the line with transactionsRS.execute SQL

SQL = "INSERT INTO transactions (date,TxCode,transactionItem,clientId) VALUES ('" & dateNow & "','" & VendorTxCode & "','" & serviceName & "','" & clientSet__MMColParam & "')"
Response.Write(SQL)
transactionsRS.execute SQL

Open in new window

0
 
LVL 50

Expert Comment

by:Ryan Chong
ID: 24088404
>>transactionsRS.execute SQL

?

is transactionsRS an ADODB.Connection object?

please try amend using the scripts posted @ ID:24078554
0
 
LVL 7

Author Comment

by:roycasella
ID: 24088514
Your right, i had it set as the wrong object.
Here's the new full code

MM_sfasp_STRING is the connection string

Dim insertConnect, transactionRS
					
Set transactionRS = Server.CreateObject("ADODB.Connection")
insertConnect = MM_sfasp_STRING
transactionRS.Open insertConnect
					
Dim dateNow, SQL
				
dateNow = Replace(now,"/","-")
SQL = "INSERT INTO transactions (date,TxCode,transactionItem,clientId) VALUES ('" & dateNow & "','" & VendorTxCode & "','" & serviceName & "','" & clientSet__MMColParam & "')"
Response.Write(SQL)
transactionsRS.execute SQL

Open in new window

0
 
LVL 7

Author Comment

by:roycasella
ID: 24088516
whoops, forgot to say that it's still producing the same error
0
 
LVL 50

Accepted Solution

by:
Ryan Chong earned 500 total points
ID: 24088640
you spell it incorrectly...

>>transactionsRS.execute SQL

should be as:

transactionRS.execute SQL
0
 
LVL 7

Author Closing Comment

by:roycasella
ID: 31567011
genius, thanks I know it would be something like that. thank you
0

Featured Post

PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

Question has a verified solution.

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

Foreword This is an old article.  Instead of using the MySQL extension that was used in the original code examples, please choose one of the currently supported database extensions instead.  More information is available here: MySQLi / PDO (http://…
Introduction This article is intended for those who are new to PHP error handling (https://www.experts-exchange.com/articles/11769/And-by-the-way-I-am-New-to-PHP.html).  It addresses one of the most common problems that plague beginning PHP develop…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…

808 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