RE: LongText bug (or just my programming)

This is a common problem. You can try:

1. use a client-side cursor.
2. Use Execute Statements instead of ADO updates
3. Play with the connection OPTIONs in MyODBC

-Kevin


> -----Original Message-----
> From: j [mailto:hawke13@xxxxxxxxxxxxx] 
> Posted At: Sunday, February 23, 2003 2:08 PM
> Posted To: MySQL
> Conversation: LongText bug (or just my programming)
> Subject: LongText bug (or just my programming)
> 
> 
> 
> Description:
> 
> I have created a Mysql data base with a long text field, and 
> when ever i try
> to call the "rs.update" with ASP it says
> 
> "Multiple-step OLE DB operation generated errors. Check each 
> OLE DB status
> value, if available. No work was done"
> 
> it only happens with long, mediumtext fields and i dont know why
> 
> How-To-Repeat:
> 
> <%@ Language=VBScript %>
> <% Option Explicit %>
> <% RESPONSE.BUFFER = TRUE %>
> <!--#include file="../session.asp"-->
> 
> <%
> CONST ADLOCKREADONLY  = 1
> CONST ADLOCKPESSIMISTIC = 2
> CONST ADOPENSTATIC  = 3
> 
> IF NOT ISEMPTY(REQUEST.FORM("Submit"))THEN %>
> 
> <!--#include file="../../../dbopen.pwp"-->
>  <%
>  Dim updatenumber
>  updatenumber = REQUEST.FORM("sn")
>  Dim DimUpdateHeading, DimUpdatesubtitle, DimUpdatebreif, 
> Dimupdatestory,
> DimUpdateauthor, DimUpdateMenuLink
>  DimUpdateHeading = REPLACE(REQUEST.FORM("heading"), "'", 
> "&#8217;", 1)
>  DimUpdatesubtitle = REPLACE(REQUEST.FORM("subtitle"), "'", 
> "&#8217;", 1)
>  DimUpdatebreif  = REPLACE(REQUEST.FORM("breif"), "'", "&#8217;", 1)
>  Dimupdatestory  = REPLACE(REQUEST.FORM("story"), "'", "&#8217;", 1)
>  DimUpdateauthor  = REPLACE(REQUEST.FORM("author"), "'", "&#8217;", 1)
>  DimUpdateMenuLink = REPLACE(REQUEST.FORM("menulink"), "'", 
> "&#8217;", 1)
>  DIM DimUpdateSQL
>  DimUpdateSQL = "SELECT Heading,SubTitle,Brief FROM News 
> WHERE Story_ID = "
> & updatenumber
>  DIM RSUpdate
>  Set RSUpdate = Server.CreateObject("ADODB.Recordset")
>  RSUpdate.CursorType = adOpenStatic
>  RSUpdate.LockType = adLockPessimistic
> '30 ,Story,Author,Story_Link
>  RSUpdate.Open DimUpdateSQL, Conn
>  RSUpdate("Heading") = DimUpdateHeading
>  RSUpdate("SubTitle") = DimUpdatesubtitle
>  RSUpdate("Brief")  = DimUpdatebreif
>  'RSUpdate("Story")  = Dimupdatestory
>  'RSUpdate("Author")  = DimUpdateauthor
>  'RSUpdate("Story_Link") = DimUpdateMenuLink
> ***********
> crashes just below withe RSUpdate.update.
> ***********
>  RSUpdate.Update
>  RSUpdate.Close
>  Set RSUpdate=Nothing
>  %>
>  <!--#include file="../../../dbclose.pwp"-->
>  <%
>  RESPONSE.REDIRECT "../misc-task-done.asp?confirmtype=updatedother"
> END IF
> %>
> 
> 
> <!--#include file="../../../dbmultiopen.pwp"-->
> <%
> 
>  DIM DimReadSN
>  DimReadSN = REPLACE(REQUEST.QUERYSTRING("sn"), "'", "")
> 
>  DIM DimReadSQL
>  DimReadSQL= "SELECT 
> Heading,SubTitle,Brief,Story,Author,Story_Link FROM
> news WHERE Story_ID = " & DimReadSN
> 
>  DIM RSRead, DimReadHeading, DimReadSubtitle, DimReadBreif, 
> DimReadStory,
> DimReadAuthor, DimReadLink
>  SET RSRead= SERVER.CREATEOBJECT("ADODB.RECORDSET")
>  RSRead.OPEN DimReadSQL,CONN,,ADLOCKREADONLY
>  DimReadHeading = RSRead("Heading")
>  DimReadSubtitle = RSRead("SubTitle")
>  DimReadBreif = RSRead("Brief")
>  DimReadStory = RSRead("Story")
>  DimReadAuthor = RSRead("Author")
>  DimReadLink  = RSRead("Story_Link")
> 
>  RSRead.CLOSE
>  SET RSRead = NOTHING
> %>
> <!--#include file="../../../dbclose.pwp"-->
> shows the rest of the html page
> 
> 
> Fix:
> None
> 
> Synopsis:
> Submitter-Id: <submitter ID>
> Originator: G
> Organization:   none
> MySQL support:  [none ]
> Severity: [serious ]
> Priority: [ high ]
> Category: [mysqld, mysql client,
> Class:  [ support ]
> Release: mysql-3.23.38
> 
> Exectutable:   [mysqld-opt]
> Environment:   <machine description>
> System:        <Win95, Win98, NT or Win200>
> Compiler:      VC++ 6.0
> Architecture:  i
> 
> 
> ---------------------------------------------------------------------
> Please check 
> "http://www.mysql.com/Manual_chapter/manual_to> c.html" before
> 
> posting. To request this thread, e-mail 
> win32-thread10608@xxxxxxxxxxxxxxx
> 
> To unsubscribe, send a message to the address shown in the
> List-Unsubscribe header of this message. If you cannot see it,
> e-mail win32-unsubscribe@xxxxxxxxxxxxxxx instead.
> 
> 

---------------------------------------------------------------------
Please check "http://www.mysql.com/Manual_chapter/manual_toc.html"; before
posting. To request this thread, e-mail win32-thread10609@xxxxxxxxxxxxxxx

To unsubscribe, send a message to the address shown in the
List-Unsubscribe header of this message. If you cannot see it,
e-mail win32-unsubscribe@xxxxxxxxxxxxxxx instead.