Updating A Record

Code Only

Page 1:(request-record-list.asp) List Records

<form method="post" action="request-record.asp">
ID <input type="text" Name="inputone" />
<br />
<input type="submit" name="submit" />

</form>

<p>
<%
Dim myConn
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & server.mappath("yourdb.mdb") & ";"

myConn.Open

Dim myRS
Set myRS = Server.CreateObject("ADODB.Recordset")
myRS.Open "Employees", myConn,,,adCmdTable

Do while not myRS.EOF

Response.Write "<div style='float:left; width:100px;'>Name</div><div style='float:auto; width:600px;'>" & myRS("FirstName") & "| <a href='request-record.asp?ID=" & myRS("ID") & "' >" & myRS("ID") & "</a></div><hr />"

myRS.MoveNext
Loop

myRS.Close
Set myRS = Nothing

myConn.Close
Set myConn = Nothing
%>

Page 2: (request-record.asp )- Edit Record

<% Option Explicit
Dim myConn

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & server.mappath("yourdb..mdb") & ";"

myConn.Open %>
<!--#include virtual="adovbs.inc"-->
<%
Dim myRS, inputone

Set myRS = Server.CreateObject("ADODB.Recordset")
myRS.Open "Employees", myConn, , , adCmdTable

 

Dim Recordset3__MMColParam
Recordset3__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
Recordset3__MMColParam = Request.QueryString("ID")
End If
%>
<%
Dim Recordset3
Dim Recordset3_cmd

Set Recordset3_cmd = Server.CreateObject ("ADODB.Command")
Recordset3_cmd.ActiveConnection = myConn
Recordset3_cmd.CommandText = "SELECT * FROM Employees WHERE ID = ?"
Recordset3_cmd.Prepared = true
Recordset3_cmd.Parameters.Append Recordset3_cmd.CreateParameter("param1", 5, 1, -1, Recordset3__MMColParam) ' adDouble

If (Request.QueryString("ID") <> "") Then
Set Recordset3 = Recordset3_cmd.Execute

%>
<form method="post" action="record-update.asp?ID=<%=(Recordset3.Fields.Item("ID").Value)%>" >
ID <input type="text" Name="ID" Value="<%=(Recordset3.Fields.Item("ID").Value)%>" /><br />
First Name <input type="text" Name="FirstName" Value="<%=(Recordset3.Fields.Item("FirstName").Value)%>" /><br />
Last Name <input type="text" Name="LastName" value="<%=(Recordset3.Fields.Item("LastName").Value)%>" /> <br />
Title <input type="text" Name="Title" value="<%=(Recordset3.Fields.Item("Title").Value)%>" /><br />
<input type="submit" value="submit" />
</form>

<p>

<a href="request-record-1.asp">Back To List</a></p>
<p>&nbsp;</p>
<p>
<%
Else
%>
No Record</p>
<p>&nbsp;</p>
<p><a href="request-record-1.asp">Back To List</a>
<%
End if

myRS.Close
Set myRS = Nothing

myConn.Close
Set myConn = Nothing

%>

Page 3:(record-update.asp) Post Information to DB and display results

<% Option Explicit
Dim myConn

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & server.mappath("/ASP101/DB/yourdb.mdb") & ";"

myConn.Open %>
<!--#include virtual="adovbs.inc"-->
<%
Dim myRS, bolFound, strUsername
strUsername = request.form("ID")

Set myRS = Server.CreateObject("ADODB.Recordset")
myRS.Open "Employees", myConn, , adLockOptimistic , adCmdTable
bolFound = False

Do Until myRS.EOF OR bolFound
If (StrComp(myRS("ID"), strUsername, vbTextCompare) = 0) Then

BolFound = True

Else
myRS.MoveNext
End If
Loop

myRS("FirstName") = Request.Form("FirstName")
myRS("LastName") = Request.Form("LastName")
myRs("Title") = Request.Form("Title")

Response.Write("Thank You <br /> You Have Enterd ")
Response.Write myRS("FirstName")
Response.Write(" For First Name<br/> You Have Enterd ")
Response.Write myRS("LastName")
Response.Write(" For Last Name<br/> You Have Enterd ")
Response.Write myRs("Title")
Response.Write(" For Title<br/> ")

%>

<p><a href="request-record-list.asp">Back To List</a></p>

<%

myRS.Update
myRS.Close
set myRS = Nothing

myConn.Close
Set myConn = Nothing

%>