updating existing recordset

raj8 · May 21, 2003

hi I get this error message in withdraw_money.asp, plz someone help
thanks in advance

here are the error details

Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'Update'
withdraw_money.asp, line 30

here is my code:
==================

<%
userName =Request("name&quot

dim sql
Set myCon = Server.CreateObject("ADODB.Connection&quot

okay = "driver={Microsoft Access Driver (*.mdb)}; " &_
"DBQ=" & Server.Mappath("client_details.mdb&quot

& ";"
myCon.Open okay
Set RS = Server.CreateObject("ADODB.RecordSet&quot

'RS.ActiveConnection = myCon

sql="SELECT cl_balance FROM my_table WHERE cl_name =' "&userName &" ' ;"

RS.Open sql , myCon, adLockOptimistic
balance = RS("cl_balance&quot

withdraw = request("amount&quot

balance = balance - withdraw
if balance > withdraw then
RS("cl_balance&quot

=balance
Response.Write("transaction successful&quot

else
Response.Write("transaction unsuccessful&quot

end if

RS.Update
============== line 30
RS.MoveNext
RS.Close
%>

<%WHILE NOT RS.EOF%>

<%Response.Write(RS("cl_balance&quot

)%>
<%RS.MoveNext
WEND
myCon.Close%>

GaryC123 · May 21, 2003

Try writing your connection string like this

set myCon =Server.CreateObject("ADODB.Connection&quot

myCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("client_details.mdb&quot

Set RS = Server.CreateObject("ADODB.RecordSet&quot

rs.open "SELECT * FROM agents WHERE name ='Philip Troy'",myCon,1,3

Also this won't work

<%WHILE NOT RS.EOF%>
<%Response.Write(RS("cl_balance&quot

)%>
<%RS.MoveNext
WEND
myCon.Close%>

because you close your recordset just before it. Replace the RS.Close with Rs.MoveFirst

http://www.intouch-media.co.uk

raj8 · May 21, 2003

hi i get this message when i made changes
Error Type:
ADODB.Recordset (0x800A0E79)
Operation is not allowed when the object is open.
/cw1/withdraw_money.asp, line 22

line 22 is:
RS.Open sql , myCon, adLockOptimistic

GaryC123 · May 21, 2003

How does it look now? the error suggests your recordset is already open.

http://www.intouch-media.co.uk

raj8 · May 21, 2003

if i type in

RS.Open sql ,myCon,adOpenStatic,adLockOptimistic, adCmdTable

i still get same error

raj8 · May 21, 2003

do u have any suggestions about this? thanks 4 ur help

GaryC123 · May 21, 2003

Well you're obviously not following my example.

set myCon =Server.CreateObject("ADODB.Connection&quot

myCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("client_details.mdb&quot

Set RS = Server.CreateObject("ADODB.RecordSet&quot

rs.open ="SELECT cl_balance FROM my_table WHERE cl_name =' "&userName &"'",myCon,1,3

http://www.intouch-media.co.uk

raj8 · May 21, 2003

hi i get this error mess this time

Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/cw1/withdraw_money2222.asp, line 16, column 75
rs.open ="SELECT cl_balance FROM my_table WHERE cl_name =' "&userName &"'",myCon,1,3
--------------------------------------------------------------------------^

GaryC123 · May 21, 2003

Oops remove the = sign from that line

http://www.intouch-media.co.uk

raj8 · May 21, 2003

I am sorry new error mess

Microsoft VBScript compilation (0x800A0409)
Unterminated string constant
/cw1/withdraw_money2222.asp, line 16, column 84
rs.open "SELECT cl_balance FROM my_table WHERE cl_name =' "&userName &" ',myCon,1,3
-----------------------------------------------------------------------------------^

GaryC123 · May 21, 2003

rs.open "SELECT cl_balance FROM my_table WHERE cl_name =' " & userName & "'",myCon,1,3

You'd lost a speech mark at the end

http://www.intouch-media.co.uk

raj8 · May 21, 2003

next error

Error Type:
ADODB.Recordset (0x800A0E79)
Operation is not allowed when the object is open.
/cw1/withdraw_money2222.asp, line 18

RS.Open ,myCon,adOpenStatic,adLockOptimistic, adCmdTable

raj8 · May 21, 2003

i posted my code again if u like 2 look at it again
thanks

GaryC123 · May 21, 2003

Ok which rs.open are you using ? post the whole code again as you have it now.

http://www.intouch-media.co.uk

raj8 · May 21, 2003

<%
userName =Request("name&quot

dim sql
set myCon =Server.CreateObject("ADODB.Connection&quot

myCon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("client_details.mdb&quot

Set RS = Server.CreateObject("ADODB.RecordSet&quot

'RS.ActiveConnection = myCon
RS.open "SELECT cl_balance FROM my_table WHERE cl_name =' "&userName &" '",myCon,1,3
RS.Open ,myCon,adOpenStatic,adLockOptimistic, adCmdTable

balance = RS("cl_balance&quot

withdraw = request("amount&quot

balance = balance - withdraw
if balance > withdraw then
RS("cl_balance&quot

=balance
Response.Write("transaction successful&quot

else
Response.Write("transaction unsuccessful&quot

end if

RS.Update
RS.MoveFirst

%>

<%WHILE NOT RS.EOF%>

<%Response.Write(RS("cl_balance&quot

)%>

<%RS.MoveNext
WEND
myCon.Close%>

GaryC123 · May 21, 2003

Remove this line -

RS.Open ,myCon,adOpenStatic,adLockOptimistic, adCmdTable

And amend this line, should be no spaces after or before the apostrophe -

RS.open "SELECT cl_balance FROM my_table WHERE cl_name ='"&userName &"'",myCon,1,3

http://www.intouch-media.co.uk

raj8 · May 21, 2003

ADODB.Field (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/cw1/withdraw_money2222.asp, line 18

line 18 is
balance = RS("cl_balance&quot

GaryC123 · May 21, 2003

Means no records found.
Does username contain a value, try response.write(username) to see what is displayed and make sure there is a record for it in the database

http://www.intouch-media.co.uk

raj8 · May 21, 2003

i have records in the database & i tried what u told me but dint work

Error Type:
ADODB.Field (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/cw1/withdraw_money2222.asp, line 18

Browser Type:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

Page:
POST 19 bytes to /cw1/withdraw_money2222.asp

POST Data:
name=rups&amount=22

GaryC123 · May 21, 2003

You tried
response.write(username)
and nothing was written to the screen you mean?

http://www.intouch-media.co.uk

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

updating existing recordset

IS-IT--Management

Programmer

IS-IT--Management

Programmer

IS-IT--Management

IS-IT--Management

Programmer

IS-IT--Management

Programmer

IS-IT--Management

Programmer

IS-IT--Management

IS-IT--Management

Programmer

IS-IT--Management

Programmer

IS-IT--Management

Programmer

IS-IT--Management

Programmer

Similar threads

Log in

Part and Inventory Search

Sponsor