ఏడీఒ రికార్డ్ నవీకరించడం

మేము SQL యొక్క UPDATE ను డేటాబేస్ పత్రికలో కొన్ని రికార్డులను నవీకరించడానికి ఉపయోగించవచ్చు.

డేటాబేస్ పత్రికలో రికార్డులను నవీకరించండి

మేము నార్త్‌విండ్ డేటాబేస్‌లోని Customers పత్రికను నవీకరించడానికి కావలసినది. మొదటిగా మేము Customers లోని అన్ని రికార్డులను జాబితాచేయడానికి ఒక పట్టికను సృష్టించాలి.

<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM customers",conn
%>
<h2>List Database</h2>
<table border="1" width="100%">
<tr>
<%
for each x in rs.Fields
  response.write("<th>" & ucase(x.name) & "</th>")
next
%>
</tr>
<% do until rs.EOF %>
<tr>
<form method="post" action="demo_update.asp">
<%
for each x in rs.Fields
  if lcase(x.name)="customerid" then>
    <td>
    <input type="submit" name="customerID" value="<%=x.value%>">
    </td>
  <%else%>
    <td><%Response.Write(x.value)%></td>
  <%end if%
next
%>
</form>
<%rs.MoveNext%>
</tr>
<%
loop
conn.close
%>
</table>
</body>
</html>

వినియోగదారు "customerID" కొలంలో బటన్ ను క్లిక్ చేసినప్పుడు, "demo_update.asp" ను తెరుస్తారు. ఈ ఫైలు డేటాబేస్ రికార్డు ఫీల్డ్స్ ఆధారంగా ఇన్పుట్ డొమేన్స్ సృష్టించే సోర్స్ కోడ్ను కలిగి ఉంటుంది, మరియు మార్పులను సేవ్ చేసే "అప్డేట్ బటన్"ను కలిగి ఉంటుంది:

<html>
<body>
<h2>Update Record</h2>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
cid=Request.Form("customerID")
if Request.form("companyname")="" then
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open "SELECT * FROM customers WHERE customerID='" & cid & "'",conn
  %>
  <form method="post" action="demo_update.asp">
  <table>
  <%for each x in rs.Fields%>
  <tr>
  <td><%=x.name%></td>
  <td><input name="<%=x.name%>" value="<%=x.value%>"></td>
  <%next%>
  </tr>
  </table>
  <br /><br />
  <input type="submit" value="Update record">
  </form>
<%
else
  
  
  
  sql=sql & '
  sql=sql & "city='" & Request.Form("city") & "',"
  sql=sql & "postalcode='" & Request.Form("postalcode") & "',"
  sql=sql & "country='" & Request.Form("country") & "'"
  sql=sql & " WHERE customerID='" & cid & "'"
  on error resume next
  conn.Execute sql
  if err<>0 then
    response.write("No update permissions!")
  else 
    response.write("Record " & cid & " was updated!")
  end if 
end if
conn.close
%>
</body>
</html>