Последние учебники веб-разработки
×

ASP Руководство

ASP ГЛАВНАЯ ASP Введение ASP устанавливать ASP Синтаксис ASP переменные ASP процедуры ASP формы ASP Cookies ASP сессия ASP заявка ASP #включают ASP Global.asa ASP Отправить по электронной почте

VBScript Руководство

VB ГЛАВНАЯ VB переменные VB процедуры VB условный VB перекручивание VB Примеры VB функции VB Ключевые слова

ASP Объекты

ASP отклик ASP Запрос ASP заявка ASP сессия ASP сервер ASP Ошибка ASP Файловая система ASP TextStream ASP Водить машину ASP файл ASP папка ASP Словарь ASP AdRotator ASP BrowserCap ASP Содержание Linking ASP Содержание ротатор ASP Быстрый Ref

ADO Руководство

ADO вступление ADO соединение ADO Recordset ADO дисплей ADO запрос ADO Сортировать ADO Добавить ADO Редактировать ADO Удалить ADO демонстрация ADO Ускорить

ADO Объекты

ADO команда ADO подключение ADO Ошибка ADO поле ADO параметр ADO Имущество ADO запись ADO Recordset ADO Поток ADO Типы данных

ASP and AJAX

AJAX вступление AJAX ASP AJAX База данных

ASP Примеры

ASP Примеры ASP викторина


 

Удаление записей ADO


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


Удаление записи в таблице

Мы хотим, чтобы удалить запись в таблице Customers в базе данных Northwind. Сначала мы создаем таблицу, в которой перечислены все записи в таблице 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_delete.asp">
<%
for each x in rs.Fields
  if 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_delete.asp" . "demo_delete.asp" файл содержит исходный код , как создать поля ввода на основе полей из одной записи в таблице базы данных. Он также содержит "Delete record" кнопку , которая будет удалять текущую запись:

<html>
<body>

<h2>Delete 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_delete.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="Delete record">
  </form>
<%
else
  sql="DELETE FROM customers"
  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 deleted!")
  end if
end if
conn.close
%>

</body>
</html>