|
|
|
|
|
| | |
| |
vbscript active server pages ASP vbscript SQL database informix oracle SQL Server Perl CGI Delphi PHP source code code sample samples program CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
driving me crazy |
|
From: |
Chris |
|
Date: |
3/18/2001 10:38:22 AM |
|
IP: |
152.163.204.193 |
I am trying to update records in an Access database. I keep getting message
"database is read only". I have tried using name and numeric values for
adOpenDynamic(2) and adLockOptimistic(3) arguments in my recordset.open
statement. I cannot get it to recognize these arguments. I have included my
code below. Any help would be much appreciated.
<%
'Declare variables
Dim SQLQuery
Dim Connect
Dim SelProperties
'Connect to Database
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open = "DSN=Property"
Set SelProperties = Server.CreateObject("ADODB.Recordset")
SQLQuery = "SELECT * FROM OwnerInfo"
SelProperties.Open SQLQuery, Connect, adOpenDynamic, adLockOptimistic
SelProperties.AddNew
SelProperties.Fields("UserFirstName") = Request.Form("UserFirstName")
SelProperties.Fields("UserLastName") = Request.Form("UserLastName")
SelProperties.Fields("UserAddress") = Request.Form("UserAddress")
SelProperties.Fields("UserCity") = Request.Form("UserCity")
SelProperties.Fields("UserState") = Request.Form("UserState")
SelProperties.Fields("UserZipCode") = Request.Form("UserZipCode")
SelProperties.Fields("UserPhone") = Request.Form("UserPhone")
SelProperties.Fields("UserEMail") = Request.Form("UserEMail")
SelProperties.Fields("UserPassword") = Request.Form("UserPassword")
SelProperties.Fields("UserName") = Request.Form("UserName")
SelProperties.Update
%>
|
Follow Up - Re: driving me crazy - Jim 3/19/2001 2:54:23 PM
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
