Kusasisha Ujumbe wa ADO

Tunaweza kutumia SQL Update kuwasilisha taarifa kwenye tablica ya database.

Sasisha taarifa kwenye tablica ya database

Tunawafikia mawasiliano ya Northwind katika tablica ya Customers. Kwanza tunahitaji kumuea tafriki, inayoshiriki wote katika 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>

Kama mtu anafikia butoni kwenye kina "customerID", itaonesha faili mpya "demo_update.asp". Faili hii ina muhimu wa kumwengaa kwa kichwa cha kusasisha, ambao kinahusiana na hisia za kirekodi katika database, na pia ina butoni wa kusasisha "Sasisha":

<html>
<body>
<h2>Sasisha Rekodi</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("jina la kampuni")="" then
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open "MUHARURO * 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="Sasisha rekodi">
  </form>
<%
else
  sql="MUHARURO customers SET "
  sql=sql & "jina la kampuni='" & Request.Form("jina la kampuni") & "',"
  sql=sql & "jina la muungano='" & Request.Form("jina la muungano") & "',"
  sql=sql & "adresi='" & Request.Form("adresi") & "',"
  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>