AddNew isn't really adding

[Christiana]

I have the following code. Each time it returns the next number expected but it doesn't really add. Does anyone what the problem could be? I'm using MS Access.

dim conntemp
set conntemp=server.CreateObject("adodb.connection&quot
conntemp.Open myDSN
Dim rs
set rs=Server.CreateObject("ADODB.RecordSet&quot
strSQL="SELECT * FROM WATERMILL"

rs.Open strSQL, conntemp,adOpenDynamic, adLockPessimistic

'Make sure that there aren't any previous errors affecting
conntemp.Errors.Clear
On Error Resume Next
rs.AddNew
rs.Fields("Name&quot="'"&Request("Name&quot&"'"
..........
rs.Fields("Details&quot=Request("Details&quot

'Get the primary key of the record added
WatermillID=rs.Fields("WatermillID&quot.Value
rs.Update
rs.close

Thank you in advance
Christiana

 

[htin11]

rs.Fields("Name&quot="'"&Request("Name&quot&"
WatermillID=rs.Fields("WatermillID&quot.Value

these two doesn't look right?

rs.Fields("Name&quot= Request.Form("Name&quot
rs.Fields("Details&quot=Request.Form("Details&quot


Where are you getting the stuff to update the fields? is it from form or query string?

double check...when u add new you gotta supply the information into the database.

Hui Emagine Solutions, Inc.

http://www.emagine-solutions.com

 

[htin11]

also for the db connection,
you didn't specifiy how u were connecting? which database? which driver?

set cnn = Server.CreateObject("ADODB.Connection&quot
set rst = Server.CreateObject("ADODB.RecordSet&quot
cnn.Open "driver={Microsoft Access Driver (*.mdb)};;DBQ=d:/Projects/billing/billing.mdb;"

addemployee_sql = "SELECT * FROM Clients"
rst.Open addemployee_sql,cnn,3,3

like that.

thanks,
hui Emagine Solutions, Inc.

http://www.emagine-solutions.com

 

[Christiana]

This is the DSN I'm using:
myDSN="Provider=Microsoft.Jet.OLEDB.4.0;"
myDSN= myDSN & "Data Source="&server.mappath("Copy of watermill.mdb&quot&";"

I tried using
rs.AddNew
rs.Fields("Onomasia&quot="'"&Request.Form("Onomasia&quot&"'"
........
rs.Update
rs.close

'Get the primary key of the record added
WatermillID=rs.Fields("WatermillID&quot.Value

instead but it still doesn't work
X-)

 

[Christiana]

Just wanted to add that the autonumber of WatermillID is increased as it is supposed to on the Webpage and in the Database too!!
What's going on? PLS HELP

 

[htin11]

u do not need to increase the autonumber, when you insert a record without the autonumber which is the primary key, it should automatically increase it, even if you don't add it into the add.new Emagine Solutions, Inc.

http://www.emagine-solutions.com

 

[htin11]

rs.Fields("Onomasia&quot="'"&Request.Form("Onomasia&quot&"'"


don't do that do it this way

rs.Fields("Onomasia&quot=Request.Form("Onomasia&quot
Emagine Solutions, Inc.

http://www.emagine-solutions.com

 

[Christiana]

I'm not increasing the autonumber. I just mentioned that the number I get returned is the one that it should be. If I have 200 records in my table then it returns 201. Then if I try to manually add to the DB the autonumber is 202.
I tried using
rs.Fields("Onomasia&quot=Request.Form("Onomasia&quot
but still it doesn't work.
Thanks
Christiana