Solved

Microsoft Cursor Engine error '80040e21'

Posted on 2009-04-06
11
1,339 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 51

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 51

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
The Eight Noble Truths of Backup and Recovery

How can IT departments tackle the challenges of a Big Data world? This white paper provides a roadmap to success and helps companies ensure that all their data is safe and secure, no matter if it resides on-premise with physical or virtual machines or in the cloud.

 
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 51

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 51

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 51

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

Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Button function on table is in trouble 3 33
MS SQL 2008 and stored prodcures and dates 5 26
asp classic find word in string and get its value 7 33
ASP get fieds value 2 21
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 …
I was asked about the differences between classic ASP and ASP.NET, so let me put them down here, for reference: Let's make the introductions... Classic ASP was launched by Microsoft in 1998 and dynamically generate web pages upon user interact…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…

763 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