From: Jorge Bastos
Date: September 27 2005 5:24pm
Subject: Fw: Text Data Type, Data provider or other service returned an E_FAIL status
List-Archive: http://lists.mysql.com/win32/17548
Message-Id: <003f01c5c388$41154a10$0301a8c0@hercules.decimalint.pt>
MIME-Version: 1.0
Content-Type: text/plain;
	format=flowed;
	charset="iso-8859-1";
	reply-type=original
Content-Transfer-Encoding: 7bit

upgrade your odbc driver to the last one
i have a similar problem with the .net driver starting with 4.1.14, and i 
just updated the .net driver and it's working, maybe something new starting 
in 4.1.14.

Jorge


----- Original Message ----- 
From: "James Frankman" <jfrankman@stripped>
To: <win32@stripped>
Sent: Tuesday, September 27, 2005 5:12 PM
Subject: Text Data Type, Data provider or other service returned an E_FAIL 
status


I am getting this error on our production server but not our test server. 
ODBC driver is version 3.5.06 on both. However, our test server is 4.1.14 
and our production server is 4.1.8. I am getting the following error when 
trying to update a text datatype field using ADO:

"Microsoft Cursor Engine (0x80004005)
Data provider or other service returned an E_FAIL status."

The error occurs when I call the ado update method (rs_update.update()). 
Could this be due to production being an older version of MySQL or could it 
be something else? Below is the system configuration and the code I am 
having trouble with.

Prod System Info:
Windows 2000
MDAC 2.8
MyODBC 3.5.06
MySQL 4.1.8

Test System Info:
Windows 2000
MDAC 2.8
MyODBC 3.5.06
MySQL 4.1.14

Code:

Set RS_Update=createobject("adodb.recordset")
RS_Update.cursorLocation=adUseClient
set objXMLStream=createobject("adodb.stream")
objXMLStream.type=adTypeText
strSQL="select * from fbappuserprefs where appsys='" & me.appsys & "' and 
userid='" & me.loginid & "'"
RS_Update.open strsql, thispage.dataconn, adOpenStatic, adLockOptimistic
if RS_Update.eof=true then
rs_update.addNew
rs_update.fields("AppSys").value=me.appsys
rs_update.fields("userid").value=me.loginid
end if

objXMLStream.open
objXMLStream.writeText strXML
objXMLStream.SetEOS
objXMLStream.position = 0
rs_Update.fields("xml")=objXMLStream.readText
rs_update.update()
objXMLStream.close()
me.appPrefs=rs_Update.fields("xml")
rs_update.close()
Set objXMLStream=nothing
Set RS_Update=nothing



-- 
MySQL Windows Mailing List
For list archives: http://lists.mysql.com/win32
To unsubscribe:    http://lists.mysql.com/win32?unsub=mysql.jorge@stripped