ADO ဂျူပ်ဘိုင်း အသစ် အပ်နှံ

We can use SQL's UPDATE to update a record in the database table.

Database table record update

ကျွန်တော်တို့သည် Northwind အခြေအနေတွင် 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" အသစ် ဖွင့်လိမ့်မည်။ ဒါမှာ ဖွင့်သင့်သော ဖုံးအုပ် "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="UPDATE customers SET"
  sql=sql & "companyname='" & Request.Form("companyname") & "',"
  sql=sql & "contactname='" & Request.Form("contactname") & "',"
  sql=sql & "address='" & Request.Form("address") & "',"
  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>