MySQL Bugs: #13120: Microsoft VBScript runtime (0x800A01FB) An exception occurred:

Bug #13120	Microsoft VBScript runtime (0x800A01FB) An exception occurred:
Submitted:	12 Sep 2005 7:45	Modified:	26 Oct 2007 10:32
Reporter:	Muthu K	Email Updates:
Status:	Closed	Impact on me:	None
Category:	Connector / ODBC	Severity:	S3 (Non-critical)
Version:	5.0	OS:	Windows (Windows XP)
Assigned to:		CPU Architecture:	Any

Description:
Hi,

I am  using MySQL 5.0 , IIS and ASP in Windows XP OS 
to connect the database the code is given below" 

'Global.asa file

sub Application_OnStart
'Connection String for MySQL Database
Application("cnStr")="DRIVER={MySQL Connector/ODBC v5}; SERVER=localhost; DATABASE=mydb; UID=myuid; PORT=3306; PWD=mypwd; OPTION=16387;"
end sub

Error Type:
Microsoft VBScript runtime (0x800A01FB) An exception occurred: 'rsInvDisp.Open'

My Code :

<%
dim cnConn 
dim rsInvDisp
dim rsStrInv

set cnConn=server.CreateObject("ADODB.Connection") 
set rsInvDisp=server.CreateObject("ADODB.Recordset") 

rsStrInv= " SELECT DISTINCT" _
		& " Invoice_Master.Invoice_ID," _
		& " Invoice_Master.Invoice_Num_ID," _
		& " Invoice_Master.Invoice_Date," _
		& " Invoice_Master.Invoice_Type," _
		& " Invoice_Master.Invoice_Cust_ID," _
		& " Invoice_Master.Invoice_Ref_No," _
		& " Invoice_Master.Invoice_Other_Ref_No," _
		& " Invoice_Master.Invoice_Mode_Delivery," _
		& " Invoice_Master.Invoice_Doc_No," _
		& " Invoice_Master.Invoice_Doc_Date," _
		& " Invoice_Master.Invoice_Destination," _
		& " Invoice_Details.Invoice_ID," _
		& " Invoice_Details.Invoice_Name," _
		& " Invoice_Details.Invoice_Particular," _
		& " Invoice_Details.Invoice_Qty," _
		& " Invoice_Details.Invoice_RPU," _
		& " Invoice_Details.Invoice_Amount," _
		& " Invoice_Details.Invoice_Total," _
		& " Invoice_Details.Invoice_STax," _
		& " Invoice_Details.Invoice_Shipcost," _
		& " Invoice_Details.Invoice_SplOff," _
		& " Invoice_Details.Invoice_GrandTotal," _
		& " Invoice_Details.Invoice_Num_ID," _
		& " Invoice_Details.Invoice_Amt_Fig," _
		& " Customer_Details.Customer_Name" _
		& " FROM (Invoice_Master" _
		& " INNER JOIN Invoice_Details ON Invoice_Master.Invoice_ID=Invoice_Details.Invoice_ID" _
		& " And Invoice_Master.Invoice_num_ID=Invoice_Details.Invoice_num_ID )" _
		& " INNER JOIN customer_details ON Invoice_Master.Invoice_Cust_ID=Customer_Details.Customer_Num_ID" _
		& " WHERE invoice_master.Invoice_Num_ID='"&Trim(Request.Form("INVOICE_ID"))&"'"

cnConn.Open(Application("cnStr"))
rsInvDisp.Open(rsStrInv),cnConn,3,3
%>

plz expalin.

thanks in advance

muthu

How to repeat:
Hi,

I am  using MySQL 5.0 , IIS and ASP in Windows XP OS 
to connect the database the code is given below" 

'Global.asa file

sub Application_OnStart
'Connection String for MySQL Database
Application("cnStr")="DRIVER={MySQL Connector/ODBC v5}; SERVER=localhost; DATABASE=mydb; UID=myuid; PORT=3306; PWD=mypwd; OPTION=16387;"
end sub

Error Type:
Microsoft VBScript runtime (0x800A01FB) An exception occurred: 'rsInvDisp.Open'

My Code :

<%
dim cnConn 
dim rsInvDisp
dim rsStrInv

set cnConn=server.CreateObject("ADODB.Connection") 
set rsInvDisp=server.CreateObject("ADODB.Recordset") 

rsStrInv= " SELECT DISTINCT" _
		& " Invoice_Master.Invoice_ID," _
		& " Invoice_Master.Invoice_Num_ID," _
		& " Invoice_Master.Invoice_Date," _
		& " Invoice_Master.Invoice_Type," _
		& " Invoice_Master.Invoice_Cust_ID," _
		& " Invoice_Master.Invoice_Ref_No," _
		& " Invoice_Master.Invoice_Other_Ref_No," _
		& " Invoice_Master.Invoice_Mode_Delivery," _
		& " Invoice_Master.Invoice_Doc_No," _
		& " Invoice_Master.Invoice_Doc_Date," _
		& " Invoice_Master.Invoice_Destination," _
		& " Invoice_Details.Invoice_ID," _
		& " Invoice_Details.Invoice_Name," _
		& " Invoice_Details.Invoice_Particular," _
		& " Invoice_Details.Invoice_Qty," _
		& " Invoice_Details.Invoice_RPU," _
		& " Invoice_Details.Invoice_Amount," _
		& " Invoice_Details.Invoice_Total," _
		& " Invoice_Details.Invoice_STax," _
		& " Invoice_Details.Invoice_Shipcost," _
		& " Invoice_Details.Invoice_SplOff," _
		& " Invoice_Details.Invoice_GrandTotal," _
		& " Invoice_Details.Invoice_Num_ID," _
		& " Invoice_Details.Invoice_Amt_Fig," _
		& " Customer_Details.Customer_Name" _
		& " FROM (Invoice_Master" _
		& " INNER JOIN Invoice_Details ON Invoice_Master.Invoice_ID=Invoice_Details.Invoice_ID" _
		& " And Invoice_Master.Invoice_num_ID=Invoice_Details.Invoice_num_ID )" _
		& " INNER JOIN customer_details ON Invoice_Master.Invoice_Cust_ID=Customer_Details.Customer_Num_ID" _
		& " WHERE invoice_master.Invoice_Num_ID='"&Trim(Request.Form("INVOICE_ID"))&"'"

cnConn.Open(Application("cnStr"))
rsInvDisp.Open(rsStrInv),cnConn,3,3
%>

plz expalin.

thanks in advance

muthu

Hi,

I am  using MySQL 5.0 , IIS and ASP in Windows XP OS 
to connect the database the code is given below" 

'Global.asa file

sub Application_OnStart
'Connection String for MySQL Database
Application("cnStr")="DRIVER={MySQL Connector/ODBC v5}; SERVER=localhost; DATABASE=mydb; UID=myuid; PORT=3306; PWD=mypwd; OPTION=16387;"
end sub

Error Type:
Microsoft VBScript runtime (0x800A01FB)
An exception occurred: 'rsInvDisp.Open'

My Code :

<%
dim cnConn 
dim rsInvDisp
dim rsStrInv

set cnConn=server.CreateObject("ADODB.Connection") 
set rsInvDisp=server.CreateObject("ADODB.Recordset") 

rsStrInv= " SELECT DISTINCT" _
		& " Invoice_Master.Invoice_ID," _
		& " Invoice_Master.Invoice_Num_ID," _
		& " Invoice_Master.Invoice_Date," _
		& " Invoice_Master.Invoice_Type," _
		& " Invoice_Master.Invoice_Cust_ID," _
		& " Invoice_Master.Invoice_Ref_No," _
		& " Invoice_Master.Invoice_Other_Ref_No," _
		& " Invoice_Master.Invoice_Mode_Delivery," _
		& " Invoice_Master.Invoice_Doc_No," _
		& " Invoice_Master.Invoice_Doc_Date," _
		& " Invoice_Master.Invoice_Destination," _
		& " Invoice_Details.Invoice_ID," _
		& " Invoice_Details.Invoice_Name," _
		& " Invoice_Details.Invoice_Particular," _
		& " Invoice_Details.Invoice_Qty," _
		& " Invoice_Details.Invoice_RPU," _
		& " Invoice_Details.Invoice_Amount," _
		& " Invoice_Details.Invoice_Total," _
		& " Invoice_Details.Invoice_STax," _
		& " Invoice_Details.Invoice_Shipcost," _
		& " Invoice_Details.Invoice_SplOff," _
		& " Invoice_Details.Invoice_GrandTotal," _
		& " Invoice_Details.Invoice_Num_ID," _
		& " Invoice_Details.Invoice_Amt_Fig," _
		& " Customer_Details.Customer_Name" _
		& " FROM (Invoice_Master" _
		& " INNER JOIN Invoice_Details ON Invoice_Master.Invoice_ID=Invoice_Details.Invoice_ID" _
		& " And Invoice_Master.Invoice_num_ID=Invoice_Details.Invoice_num_ID )" _
		& " INNER JOIN customer_details ON Invoice_Master.Invoice_Cust_ID=Customer_Details.Customer_Num_ID" _
		& " WHERE invoice_master.Invoice_Num_ID='"&Trim(Request.Form("INVOICE_ID"))&"'"

cnConn.Open(Application("cnStr"))
rsInvDisp.Open(rsStrInv),cnConn,3,3
%>

plz expalin.

thanks in advance

muthu

Please, indicate the exact version of MySQL and MyODBC you are using.

Are you sure that all the tables mentioned in your statement exist in the mydb database and accessible to the user myuid?

Please, send the results of SHOW TABLES statements for your mydb database.

No feedback was provided for this bug for over a month, so it is
being suspended automatically. If you are able to provide the
information that was originally requested, please do so and change
the status of the bug back to "Open".

Hi,

Unfortunately, we never get feedback, that we need to analyze this problem.

I'll close this bug. If you still have problems, please feel free to open it again.

Thank you for trusting MySQL.

Please try our new MyODBC 5.1.

Kind Regards,

Susanne