Database won't update

bobbygwd · Jan 26, 2002

Below is the code:

----------------

<% option explicit %>
<html>
<head>
<title>Main Page</title>
<style>
.mystyle {font-family:tahoma,serif;font-size:10pt}
</style>
</head>
<body>
 'basic access server connection
<br><br><br><br>

<table align=center cellpadding=2 cellspacing=0><tr><td bgcolor="#333333">
<table align=center cellpadding=0 cellspacing=0 width=190>
<tr><td bgcolor="#000000"><div align="center" style="color:white" class="mystyle"><b>Main Page: </b></div></td></tr>

<tr><td bgcolor="#CCCCCC">
<br>
<blockquote>
<div align="center" class="mystyle">

<%
dim myname, myoldpassword, mynewpassword, conntemp, rstemp, sqltemp, levelcase, linklevel

myname=request.form("username&quot

myoldpassword=request.form("oldpassword&quot

mynewpassword=request.form("newpassword&quot

set conntemp=server.createobject("adodb.connection&quot

set rstemp=server.createobject("adodb.recordset&quot

conntemp.open strConnect

rstemp.open "users", conntemp

sqltemp="select * from users where user = '"& myname &"' ;"

set rstemp=conntemp.execute(sqltemp)

If rstemp.eof then %>

We dont have a user named <% ="<i>" & Ucase(myname) & "</i>" %>
on file! <br><br>

<a href='changepass.asp'>Try again</a>
<br><br>

<% response.end
end if

if rstemp("password&quot

.Value=myoldpassword then

rstemp("password&quot.Value=mynewpassword
rstemp.Update

response.write "Password Changed!<br><br><a href='login.asp'>Log in</a><br><a href='index.asp'>Main Page</a><br><br>"

else %>

Passwords Don't Match <br><br>

<a href='changepass.asp'>Try again</a>
<br><br>
<% response.end
end if
rstemp.close
conntemp.close
set rstemp=nothing
set conntemp=nothing

%>

</div>
</blockquote>

</td></tr>
</table>

</td></tr></table>

</body>
</html>

-----------------
I am recieving the error:

800a0cb3 -
Object or provider is not capable of performing requested operation.
-line 53

This code takes three inputs from a previous form...
username
old password
new password
... in which I am attempting to have the code change the "password" field in the database to the new password placed in variable "myNewPassword"
I have bolded line 53 so it can be easily noticed.
This line is attempting to store the new password into the "password" field in the database.
I don't know why asp is having a problem with this line of code. I also don't know if it could be an error within the rest of the code that may be setting off that error.
So if someone could tell me how to fix this error it would be of much help.

Thanks in advance,
Bobby Gordon

Ovatvvon · Jan 26, 2002

isn't javascript, don't put a .value. Try just entering rstemp("password&quot

=mynewpassword -Ovatvvon :-Q

link9 · Jan 27, 2002

.value is ok. It's the default method of the recordset, so whether you (as a developer) use it or not, is completely up to you.

However, the error is stemming from the fact that you have declared your recordset with the default properties (including adLockReadOnly), so it's not letting you update any fields.

Before you open your recordset, you need to declare your locktype to be something else. Here's a FAQ on the subject that would make some good reading. Examples included.

faq333-618

paul

bobbygwd · Jan 27, 2002

I changed the code to the following, as you said...
but I'm getting a different error now.
---------------------------
<% option explicit %>
<html>
<head>
<title>Bring me a Dream inc.</title>
<style>
.dream {font-family:tahoma,serif;font-size:10pt}
</style>
</head>
<body>

<br><br><br><br>

<table align=center cellpadding=2 cellspacing=0><tr><td bgcolor="#333333">
<table align=center cellpadding=0 cellspacing=0 width=190>
<tr><td bgcolor="#000000"><div align="center" style="color:white" class="dream"><b>Main Page: </b></div></td></tr>

<tr><td bgcolor="#CCCCCC">
<br>
<blockquote>
<div align="center" class="dream">

<%
dim myname, myoldpassword, mynewpassword, conntemp, rstemp, sqltemp, levelcase, linklevel, adOpenForwardOnly, adlockoptimistic, adcmdtable

myname=request.form("username&quot

myoldpassword=request.form("oldpassword&quot

mynewpassword=request.form("newpassword&quot

set conntemp=server.createobject("adodb.connection&quot

conntemp.open strConnect

set rstemp=server.createobject("adodb.recordset&quot

rstemp.open "users", conntemp, adOpenForwardOnly, adLockOptimistic, adCmdTable

sqltemp="select * from users where user = '"& myname &"' ;"
'users is the database table and user is the field name

set rstemp=conntemp.execute(sqltemp)

If rstemp.eof then %>

We dont have a user named <% ="<i>" & Ucase(myname) & "</i>" %>
on file! <br><br>

<a href='changepass.asp'>Try again</a>
<br><br>

<% response.end
end if

if rstemp("password&quot

=myoldpassword then
rstemp("password&quot

=mynewpassword
rstemp.Update

response.write "Password Changed!<br><br><a href='login.asp'>Log in</a><br><a href='index.asp'>Main Page</a><br><br>"

else %>

Passwords Don't Match <br><br>

<a href='changepass.asp'>Try again</a>
<br><br>
<% response.end
end if
rstemp.close
conntemp.close
set rstemp=nothing
set conntemp=nothing

%>

</div>
</blockquote>

</td></tr>
</table>

</td></tr></table>

</body>
</html>

-----------------------

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

-line 33

^---- The error

Why am I getting an error? Am I putting the wrong attributes in the wrong places for the recordset. Or do I need to use numbers instead of variables.

Thanks for the additional assistance,
Bobby Gordon

link9 · Jan 27, 2002

rstemp.open "users", conntemp, adOpenForwardOnly, adLockOptimistic, adCmdTable

See where you have specified "users"?

The .open() method is expecting a valid SQL Statement there.

So, for example:

dim sql
sql = "SELECT * FROM users"
rstemp.open sql, conntemp, adOpenForwardOnly, adLockOptimistic, adCmdTable

Also, in order to use those enumerated constants, you'll need to make sure you've included the adovbs.inc file on your page, which I don't see up there.

Here's some info on that file, and a link to the actual file, if you wish to use it:

http://www.4guysfromrolla.com/webtech/faq/Beginner/faq7.shtml

Otherwise, you'll need to use the integer constants that equate to those values, which you can find here:

http://www.devguru.com/Technologies/ado/quickref/recordset_open.html

let us know if there are any other problems.

paul

bobbygwd · Jan 27, 2002

I added the file using:


And I got the following error again:
--------

ADODB.Recordset error '800a0cb3'

Object or provider is not capable of performing requested operation.

link9 · Jan 27, 2002

Code:

set conntemp=server.createobject(&quot;adodb.connection&quot;)
conntemp.open strConnect

set rstemp=server.createobject(&quot;adodb.recordset&quot;)
rstemp.open &quot;users&quot;, conntemp, adOpenForwardOnly, adLockOptimistic, adCmdTable


sqltemp=&quot;select * from users where user = '&quot;& myname &&quot;' ;&quot;
'users is the database table and user is the field name

set rstemp=conntemp.execute(sqltemp)

------------------------------------------------------

This is a redundant piece of code, which is probably causing you some headaches. If you haven't changed what it looks like, then when you

Code:

set rstemp=conntemp.execute(sqltemp)

you are reopening the recordset, basically undoing your previous property declarations, since the .execute method of the connection object will only open a recordset using the default properties.

Try this on:
-------------------------------------------------

Code:

<%
dim myname, myoldpassword, mynewpassword, conntemp, rstemp, sqltemp, levelcase, linklevel, adOpenForwardOnly, adlockoptimistic, adcmdtable

myname=request.form(&quot;username&quot;)
myoldpassword=request.form(&quot;oldpassword&quot;)
mynewpassword=request.form(&quot;newpassword&quot;)

set conntemp=server.createobject(&quot;adodb.connection&quot;)
conntemp.open strConnect

set rstemp=server.createobject(&quot;adodb.recordset&quot;)

sqltemp=&quot;select * from users where user = '&quot;& myname &&quot;' ;&quot;

rstemp.open sqltemp, conntemp, adOpenForwardOnly, adLockOptimistic

---------------------------------------------------

for the entire piece of code there, and then go along with the rest of your logic.

Sorry I missed that the first time. I was hung up on the first problem.

paul

bobbygwd · Jan 27, 2002

FABULOUS! Good job paul. It works now.
I appreciate your help.

Bobby Gordon

Ovatvvon · Jan 27, 2002

man, a lot's happened since yesturday. (1a.m.) Good eye Paul, didn't notice that with the lock-types and such. -Ovatvvon :-Q

bobbygwd · Jan 27, 2002

im posting another question

Sohan · Feb 28, 2002

Hi friends

"i m gettting this Error when i tried to addnew and update the data ,....
"Object or provider is not capable of performing requested operation. "

If anybody knows plss tell me

thanking you !!!
sohan

Sohan · Feb 28, 2002

hi friends
i find the logic for the first problem... but now i got the new problem and that is ..it's adding the record into the database but BLANK... just bland recoed .. tried both way (1)get value into the variable then tranfer to the table fields (2) direct by textbox name.....

here is my code .. please help me
Thanking you
regards
sohan

!!!<%@ Language =VBScript %>
<% Option Explicit%>


<%
Dim MyConn, RS

Set MyConn=Server.CreateObject("ADODB.Connection&quot

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

RS.open "Friends", Myconn,2,2

RS.Addnew
RS("Name&quot

= request.form("txtName&quot

RS("Streetaddress&quot

= request.form("txtAddress&quot

Rs("City&quot

= request.form("txtCity&quot

Rs("State&quot

= request.form("txtState&quot

Rs("Zip&quot

= request.form("txtZip&quot

Rs("Phone&quot

= request.form("txtPhone&quot

RS.Update
rs.movelast

RS.Close

MyConn.Close
Set RS = Nothing
Set MyConn = Nothing
%>

<HTML>
<HEAD>
<TITLE>Submission Successful</TITLE>
</HEAD>
<BODY>
<font size="+2" face="arial">Submission Successful!</font><hr>
<breakquote>
Please come again!<p>
<a href="form.asp">List Contacts</a>
</breakquote>
</BODY>
</HTML>

ramchandra · Feb 28, 2002

hello
sohan u ac ask paul
jack

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!

Database won't update

bobbygwd

Programmer

Ovatvvon

Programmer

link9

Programmer

bobbygwd

Programmer

link9

Programmer

bobbygwd

Programmer

link9

Programmer

bobbygwd

Programmer

Ovatvvon

Programmer

bobbygwd

Programmer

Sohan

Programmer

Sohan

Programmer

ramchandra

Technical User

Similar threads

Part and Inventory Search

Sponsor