Обновление записей ADO

Мы можем использовать SQL команду UPDATE для обновления записи в таблице базы данных.

Обновление записей в таблице базы данных

Мы хотим обновить запись в таблице Customers базы данных Northwind. Сначала нам нужно создать таблицу, чтобы отобразить все записи из Customers.

<% <html> %>
<% <body> %>
<% %>
set conn = Server.CreateObject(\
conn.Provider = \
conn.Open \

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=\
<% %>
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> %>
<% %>

conn.close
%>
<% </table> %>
</body>
</html>

Если пользователь нажимает кнопку в столбце \

<% <html> %>
<% <body> %>
<% <h2>Update Record</h2> %>
<% %>
set conn = Server.CreateObject(\
conn.Provider = \
conn.Open \
cid = Request.Form(\
if Request.form(\
  
  rs.open \
  %>
  <% <form method=\
  <% <table> %>
  <% <%for each x in rs.Fields%> %>
  <% <tr> %>
  <% <td><%=x.name%></td> %>
  <% <td><input name=\
  <% <%next%> %>
  <% </tr> %>
  <% </table> %>
  <% <br /><br /> %>
  <% <input type=\
  <% </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("Нет прав на обновление!")
  else 
    response.write("Запись " & cid & " была обновлена!")
  end if 
end if
conn.close
%>
</body>
</html>