Hi,
For sure all this happend because of MYODBC.This automation error can
occur when OLE is not able to handled some data/pointers or pointers
to interfaceses which must be transfered to VB,VBA,VBS...etc.
For example : if you wish to transform some char* to UNICODE and in
the new UNICODE data is not exist NULL termination string, this error
occur.This case are happens very frequently in Windows,especially
when OS remain without memory resources.
In fact is an "access violation" error, but because error is raised
in .dll, VB* doesn't know for what reason this error occur.And in
this case err.description or err.number is no sens(or maybe for bug
trapping).
For sure is not need to restart MYSQL server.Try to reset the client
connection/process.
Hope it's help
Regards,
Gelu
--- "Chien, Shih Chiang" <[EMAIL PROTECTED]> wrote:
> tks, Michael
>
> I am not sure it's mysql's problem or myODBC351's problem
>
> But, what I am sure is
> rs2("data").Value = Now
> is working fine in mysql323 + myodbc351
>
> but, err in mysql407 + myodbc351
>
> the err msg in msgbox: Query-based update failed because the row to
update
> could not be found.
>
>
>
>
>
> - Original Message -
> From: "Michael She" <[EMAIL PROTECTED]>
> To: "Chien, Shih Chiang" <[EMAIL PROTECTED]>
> Cc: "jumpmaster" <[EMAIL PROTECTED]>;
<[EMAIL PROTECTED]>;
> <[EMAIL PROTECTED]>
> Sent: Monday, December 30, 2002 12:35 AM
> Subject: Re: ADO Error '800a01fb'
>
>
> > Hi Shih Chiang,
> >
> > From what I remember, MySQL 3.23 was OK with MyODBC as well.
However,
> > with 4.06 MyODBC 2.50 AND 3.51 bomb occasionally with this error
message.
> >
> >
> >
> >
> > At 05:37 PM 12/29/2002 +0800, Chien, Shih Chiang wrote:
> >
> > >Dear ALL.
> > >
> > >I have the similar problem...
> > >
> > >mysql 3.23 + myodbc 3.51 = OK
> > >mysql 4.07 + myodbc 3.51 = Error
> > >
> > >the code list is :
> > >
> >
> >---
> -
> > >-
> > >
> > > strSQL = "DRIVER={MySQL ODBC 3.51
> >
>
>Driver};SERVER=localhost;DATABASE=test;USER=root;PASSWORD=root;OPTION
=35;"
> > >
> > > Set Cn1 = CreateObject("ADODB.Connection")
> > > Cn1.Open strSQL
> > > strSQL1 = "select * from mytable where pkey = " & 1
> > > Set rs2 = CreateObject("ADODB.Recordset")
> > > rs2.Open strSQL1, Cn1, 1, 3
> > >
> > > If Not rs2.EOF Then
> > > rs2("data").Value = Now
> > > rs2.Update ' Error Line
Reported.
> > >##
> > > End If
> > >
> > > rs2.Close
> > > Cn1.Close
> > > Set rs2 = Nothing
> > > Set Cn1 = Nothing
> > >
> >
> >---
> -
> > >-
> > >
> > >pls see the attached file for more error msg... tks.
> > >
> > >Chiang
> > >
> > >
> > >
> > >- Original Message -
> > >From: "jumpmaster" <[EMAIL PROTECTED]>
> > >To: "Michael She" <[EMAIL PROTECTED]>;
<[EMAIL PROTECTED]>
> > >Cc: <[EMAIL PROTECTED]>
> > >Sent: Sunday, December 29, 2002 7:39 AM
> > >Subject: RE: ADO Error '800a01fb'
> > >
> > >
> > > > Michael,
> > > >
> > > > My guess (and this is *only a guess*) -- for some reason one
of the
> > >objects
> > > > is not being created; maybe the recordset object. I am not
sure where
> you
> > > > are getting that error number from (presumably in you
browser) as you
> do
> > >not
> > > > state it. i suggest that you check your webserver logs if
you have
> access
> > > > to them. They might have an extended error message which will
> pinpoint
> > >your
> > > > problem.
> > > >
> > > > Also, you can try to 'trap' the error. I found this tid-bit
on the M$
> > > > site...
> > > >
> > > >
> > > > On error resume next
> > > > ..
> > > > ..
> > > > ..
> > > > Your problem code goes here
> > > > ..
> > > > ..
> > > > ..
> > > > if err.number <> 0 then
> > > > Response.Write err.description & "" & err.source
& ""
> > > > err.clear
> > > > end if
> > > >
> > > >
> > > > Here is the link where I found it:
> > > > http://support.microsoft.com/default.aspx?scid=kb;en-
us;299981#7
> > > >
> > > >
> > > > One last note...the reason I think it is your recordset
object is
> because
> > >of
> > > > your query...You use single quotes in the wrong place. Your
strSQL
> > >variable
> > > > should be defined as follows:
> > > >
> > > > strSQL = "SELECT * FROM IMAGES WHERE ID = '" & ID & "'"
> > > >
> > > > Or - if ID is numeric then:
> > > >
> > > > strSQL = "SELECT * FROM IMAGES WHERE ID = " & ID
> > > >
> > > > HTH,
> > > > Kurt
> > > >
> > > > -Original Message-
> > > > From: Michael She [mailto:[EMAIL PROTECTED]]
> > > > Sent: Saturday, December 28, 2002 6:57 AM
> > > > To: [EMAIL PROTECTED]
> > > > Cc: [EMAIL PROTECTED]
> > > > Subject: ADO Error '800a01fb'
> > > >
> > > >
> > > > Hi all,