Chiang,
I can't seem to pinpoint where the problem lies, but I don't think the
".value" should be there...you may want to try this:
If Not rs2.EOF Then
rs2("data") = Now
rs2.Update
End If
Why go through all the trouble of creating a recordset to update a value?
It adds quite abit of overhead...you can use the connection object to
accomplish the same. Try this:
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 = "UPDATE mytable SET data = '" & Now() & "' WHERE pkey = "
& 1
Cn1.Execute(strSQL1)
Of course, by changing the strSQL1 statement, you can Add and Delete records
from the database also.
HTH,
Kurt
-----Original Message-----
From: Chien, Shih Chiang [mailto:[EMAIL PROTECTED]]
Sent: Sunday, December 29, 2002 10:37 AM
To: jumpmaster; Michael She; [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: Re: ADO Error '800a01fb'
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 & "<BR>" & err.source & "<BR>"
> 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,
>
> I'm getting this error with MyODBC v2.50 and v3.51. I'm running MySQL
> v4.06:
>
> Microsoft VBScript runtime error '800a01fb'
>
> An exception occurred: 'open'
>
> /mshe/gallery/picture.asp, line 45
>
>
> The code for that area is:
>
> strConn = "DSN=binaryio;"
> Set objConn = Server.CreateObject("ADODB.Connection")
> objConn.open strConn
>
> set rs = server.createobject("adodb.recordset")
> strSQL = "SELECT * FROM IMAGES WHERE `ID` = " & ID
> rs.open strSQL, objConn, 3,1,1
>
> Nothing out of the ordinary... anyone know why I'm getting this error?
> Thanks!
> --
> Michael She : [EMAIL PROTECTED]
> Mobile : (519) 589-7309
> WWW Homepage : http://www.binaryio.com/
>
>
>
> ---------------------------------------------------------------------
> Before posting, please check:
> http://www.mysql.com/products/myodbc/manual_toc.html (the manual)
> http://lists.mysql.com/ (the list archive)
>
> To unsubscribe, e-mail <[EMAIL PROTECTED]>
> To unsubscribe from Yahoo! Groups version, e-mail
> [EMAIL PROTECTED]
>
>
> ---------------------------------------------------------------------
> Before posting, please check:
> http://www.mysql.com/products/myodbc/manual_toc.html (the manual)
> http://lists.mysql.com/ (the list archive)
>
> To unsubscribe, e-mail <[EMAIL PROTECTED]>
> To unsubscribe from Yahoo! Groups version, e-mail
[EMAIL PROTECTED]
>
>
---------------------------------------------------------------------
Before posting, please check:
http://www.mysql.com/manual.php (the manual)
http://lists.mysql.com/ (the list archive)
To request this thread, e-mail <[EMAIL PROTECTED]>
To unsubscribe, e-mail <mysql-unsubscribe-##L=##[EMAIL PROTECTED]>
Trouble unsubscribing? Try: http://lists.mysql.com/php/unsubscribe.php
