asp database update for beginners. Learn asp update stateemnt basics

  :: Home

PC Topics

  :: Build A PC

  :: Windows XP

  :: PC Help

Tutorials

  :: HTML

  :: JavaScript

  :: ASP

  :: PHP

  :: VBScript

  :: SQL

Miscellaneous

  :: Code/Scripts

  :: Forum

  :: Links

  :: Contact us

  :: Tell A Friend

  :: In Somali

  ::

Web Articles

Top Web Hosting
Reviews

Processing
Online Card Payment Guide

Domain name
registration & buying guide

Getting
a website online guide

Search Engine
submission & optimization tips

Quality business correspondence.

Update a record with ASP

There are more than one way to do things. For this example, we are going to list items from the database so that you can select a record using radio button.

Code to list records from *tblFeeds*
<html> <body > Select name to update. <% Dim Conn, Rs, sql Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open "DRIVER={Microsoft Access Driver (.mdb)}; DBQ=" & Server.MapPath("FeedBack.mdb") sql= "SELECT FROM tblFeeds;" Rs.Open sql, Conn Response.Write "<FORM name='Update' method='post' action='toUpdateT.asp'>" Response.Write "<table border=1 cellspacing=0>" Response.Write "<tr>"&"<td colspan='3' align='center'>"&"Select a comment to update and click select"&"</td>"&"</tr>" Response.Write "<tr>"&"<th align='center' colspan='2'>"&"Name"&"</th>"&"<th align='center'>"&"Comment"&"</th>"&"</tr>" if NOT Rs.EOF then Do While not Rs.EOF Response.Write ("<tr>") Response.Write ("<td>"&"<input type='radio' name='ID' value="&Rs("user_id")&">"&"</td>") Response.Write ("<td>"&Rs("name")&"</td>") Response.Write ("<td>"&Rs("comments")&"</td>") Response.Write ("</tr>") Rs.MoveNext Loop else Response.Write("No records found") end if Response.Write("<tr>"&"<td colspan='3' align='center'>"&"<input type ='submit' name='submit' value='Select' >"&"</td>"&"</tr>") Response.Write "</table>" Rs.Close Set Rs = Nothing Set Conn = Nothing %> </form> </body> </html>

User_ID is a unique field which identifies the selected record. When the user selects record and clicks on Select, the information is processed in the toUpdatT.asp file.

toUpdateT.asp file allows the user edit the record
<html> <body> <form name="updated" action="updateComment.asp" method="post"> <% Dim ID, name, comments ID= Request.Form("ID") name = Request.Form("name") comments=Request.Form("comments") if name="" then Response.Write "You did not select a name to update!" Else Dim Conn, Rs, sql Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open "DRIVER={Microsoft Access Driver (.mdb)}; DBQ=" & Server.MapPath("FeedBack.mdb") sql= "Select FROM tblFeeds WHERE user_id="&ID Rs.Open sql, Conn if NOT Rs.EOF then %> <table border=1 cellspacing=0> <tr><td colspan="2" align="center">Update and save</td></tr> <tr> <td>Name: </td> <td><input type="text" name="name" size="30" maxlength="45" value="<%=Rs("name")%>"></td> </tr><tr> <td>Comment: </td> <td><input type="text" name="comments" size="30" maxlength="250" value="<%=Rs("comments")%>"></td> </tr><tr> <td colspan="2" align="center"><input type="submit" name="submit" value="Save"></td> </tr> </table> </form> <% else Response.Write("Record does not exist") end if Conn.Close Set Conn = Nothing End If %> </body> </html>

After the new data is entered, the next thing is to save the data and the following is the file to do that.

updateComment.asp saves the new information
<html> <body> <% Dim name,comments, user_id ID = Request.Form("ID") name = Request.Form("name") comments=Request.Form("comments") if name="" OR comments="" then Response.Write "A field was left empty, please try again!" Else Dim Conn ,Rs, sql Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("FeedBack.mdb") sql= "Update tblFeeds Set name='"& name & "', comments='" & comments &"' WHERE user_id=" & ID Rs.Open sql, Conn Conn.Close Set Rs=Nothing Set Conn = Nothing Response.Write "Successfully Updated" End If %> </body> </html>

Add Data

Delete Data

Your Ad Here

Listed @ ConsumerVote.com - The Consumer Rated Web Directory

PC Articles

Computer Safety
prevent viruses & Spyware