Solved

Microsoft Cursor Engine error '80040e21'

Posted on 2009-04-06
11
1,347 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 6
  • 5
11 Comments
 
LVL 52

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 52

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
Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

 
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 52

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 52

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 52

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

Increase Agility with Enabled Toolchains

Connect your existing build, deployment, management, monitoring, and collaboration platforms. From Puppet to Chef, HipChat to Slack, ServiceNow to JIRA, Splunk to New Relic and beyond, hand off data between systems to engage the right people.

Connect with xMatters.

Question has a verified solution.

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

Foreword In the years since this article was written, numerous hacking attacks have targeted password-protected web sites.  The storage of client passwords has become a subject of much discussion, some of it useful and some of it misguided.  Of cou…
Popularity Can Be Measured Sometimes we deal with questions of popularity, and we need a way to collect opinions from our clients.  This article shows a simple teaching example of how we might elect a favorite color by letting our clients vote for …
In this video we outline the Physical Segments view of NetCrunch network monitor. By following this brief how-to video, you will be able to learn how NetCrunch visualizes your network, how granular is the information collected, as well as where to f…
This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash" After Shake : http://www.videocopilot.net/presets/after_shake/ All lightning effects with instructions : http://www.mediaf…

696 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