ADO 删除记录

作者likuolei

ADO 删除记录（Delete Record）简介

在 ADO（ActiveX Data Objects） 中，删除记录是指通过 Recordset 对象的 Delete 方法或通过 Connection/Command 对象的 Execute 方法从数据库表中移除记录。这在经典 ASP、VBA、VB6 或 Python（通过 pywin32）等环境中常用于删除用户、订单等数据。

本教程聚焦 ADO 的记录删除功能，详细讲解 Recordset.Delete 和 SQL DELETE 的用法，并结合上下文（如 REST API、ChromeDriver、Cron、Traefik、列表推导式）提供实用示例。假设你已熟悉 ADO 的 Connection、Recordset、查询、添加记录 和 更新记录（参考前文）。

一、ADO 删除记录核心概念

  • 方法：
  • Recordset.Delete：定位记录后删除，需调用 Update（某些情况下自动提交）。
  • Connection.Execute：执行 SQL DELETE 语句，直接删除记录。
  • Command.Execute：使用参数化 DELETE 语句，防止 SQL 注入。
  • 要求：
  • Recordset 需使用可编辑游标（如 adOpenKeyset=1 或 adOpenDynamic=2）和可写锁（如 adLockOptimistic=3 或 adLockPessimistic=2）。
  • 数据库表需允许删除（检查权限、外键约束）。
  • 定位记录：
  • 使用 Find 方法或 SQL WHERE 子句定位要删除的记录。
  • 适用场景：
  • Web 表单删除数据（如 ASP 页面删除用户）。
  • 批量删除记录（Python 脚本）。
  • 定时任务清理数据（Cron/任务计划程序）。

二、ADO 删除记录方法

1. 使用 Recordset.Delete

要求：

  • 游标类型：adOpenKeyset 或 adOpenDynamic。
  • 锁类型：adLockOptimistic 或 adLockPessimistic。
  • 使用 Find 或循环定位记录，调用 Delete 删除。

ASP 示例（删除指定客户）：

<%@ Language=VBScript %>
<html>
<head>
    <title>ADO 删除记录</title>
</head>
<body>
    <h2>删除客户</h2>
<%
    ' 创建连接和记录集
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Northwind.mdb"

    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open "Customers", conn, 1, 3  ' adOpenKeyset, adLockOptimistic

    ' 定位并删除记录
    rs.Find "CustomerID='XYZ01'"
    If Not rs.EOF Then
        rs.Delete
        rs.Update  ' 某些数据库需要显式调用 Update
        Response.Write "删除成功！"
    Else
        Response.Write "记录未找到！"
    End If

    ' 清理资源
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
%>
</body>
</html>
  • 关键点：
  • rs.Open "Customers", conn, 1, 3：使用可编辑游标和锁。
  • rs.Find：定位记录（如 CustomerID='XYZ01'）。
  • rs.Delete：删除当前记录。
  • rs.Update：某些数据库（如 Access）需要显式调用。
  • 调试（类似 console.log）：Response.Write rs("CustomerID").

2. 使用 Connection.Execute（SQL DELETE）

直接执行 SQL DELETE 语句，适合简单删除。

ASP 示例：

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Northwind.mdb"

conn.Execute "DELETE FROM Customers WHERE CustomerID='XYZ02'"

Response.Write "删除成功！"
conn.Close
Set conn = Nothing
%>
  • 关键点：
  • 简单但不安全（易受 SQL 注入）。
  • 不返回记录集，适合非查询操作。

3. 使用 Command.Execute（参数化删除）

参数化查询防止 SQL 注入，适合动态输入。

ASP 示例：

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Northwind.mdb"

Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = "DELETE FROM Customers WHERE CustomerID=?"
cmd.Parameters.Append cmd.CreateParameter("CustomerID", 200, 1, 5, "XYZ03")  ' adVarChar
cmd.Execute

Response.Write "参数化删除成功！"
conn.Close
Set conn = Nothing
%>
  • 关键点：
  • adVarChar=200：指定参数类型。
  • 更安全，适合用户输入。

4. Python（通过 pywin32）

Install pywin32:

pip install pywin32 -i http://mirrors.aliyun.com/pypi/simple/ --trusted-host mirrors.aliyun.com

示例：使用 Recordset.Delete

import win32com.client

# 创建连接和记录集
conn = win32com.client.Dispatch("ADODB.Connection")
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Northwind.mdb")

rs = win32com.client.Dispatch("ADODB.Recordset")
rs.Open("Customers", conn, 1, 3)  # adOpenKeyset, adLockOptimistic

# 定位并删除记录
rs.Find("CustomerID='XYZ04'")
if not rs.EOF:
    rs.Delete()
    rs.Update()  # 某些数据库需要
    print("删除成功！")
else:
    print("记录未找到！")

# 清理资源
rs.Close()
conn.Close()
  • 调试：print(repr(rs.Fields)) 或 print(str(rs.Fields("CustomerID").Value)).

示例：参数化删除

import win32com.client

conn = win32com.client.Dispatch("ADODB.Connection")
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Northwind.mdb")

cmd = win32com.client.Dispatch("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = "DELETE FROM Customers WHERE CustomerID=?"
cmd.Parameters.Append(cmd.CreateParameter("CustomerID", 200, 1, 5, "XYZ05"))
cmd.Execute()

print("参数化删除成功！")
conn.Close()

三、结合上下文的应用

  1. 结合 REST API：
  • ASP：通过表单删除记录，返回 JSON 确认。 <% If Request.Form("submit") <> "" Then Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Northwind.mdb" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Customers", conn, 1, 3 rs.Find "CustomerID='" & Request.Form("customer_id") & "'" If Not rs.EOF Then rs.Delete rs.Update Response.ContentType = "application/json" Response.Write "{""status"":""success""}" Else Response.Write "{""status"":""not found""}" End If rs.Close conn.Close End If %> <form method="post"> Customer ID: <input name="customer_id"><br> <input type="submit" name="submit" value="Delete"> </form>
  • Python（Flask）： from flask import Flask, request, jsonify import win32com.client app = Flask(__name__) @app.route('/customers/<customer_id>', methods=['DELETE']) def delete_customer(customer_id): conn = win32com.client.Dispatch("ADODB.Connection") conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Northwind.mdb") rs = win32com.client.Dispatch("ADODB.Recordset") rs.Open("Customers", conn, 1, 3) rs.Find(f"CustomerID='{customer_id}'") if not rs.EOF: rs.Delete() rs.Update() conn.Close() return jsonify({"status": "success"}) conn.Close() return jsonify({"status": "not found"}), 404
  1. 结合 ChromeDriver 和 Selenium：
  • 测试 ASP 表单（删除记录后验证页面）。
    python from selenium.webdriver import Chrome from selenium.webdriver.common.by import By driver = Chrome() driver.get('http://localhost/delete_customer.asp') driver.find_element(By.NAME, 'customer_id').send_keys('XYZ06') driver.find_element(By.NAME, 'submit').click() print(driver.find_element(By.TAG_NAME, 'body').text) # 检查结果 driver.quit()
  1. 结合 Linux Cron（Windows 任务计划程序）：
  • 定时批量删除记录。 python import win32com.client from tqdm import tqdm customer_ids = ["XYZ07", "XYZ08"] conn = win32com.client.Dispatch("ADODB.Connection") conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Northwind.mdb") rs = win32com.client.Dispatch("ADODB.Recordset") rs.Open("Customers", conn, 1, 3) for customer_id in tqdm(customer_ids, desc="Deleting customers"): rs.Find(f"CustomerID='{customer_id}'") if not rs.EOF: rs.Delete() rs.Update() print("批量删除完成！") rs.Close() conn.Close()
    • 保存为 ado_delete.py，通过 Windows 任务计划程序运行。
  1. 结合 Traefik：
  • Traefik 代理 ASP 网站（删除记录的表单）。
    yaml services: asp: image: my-asp-app labels: - "traefik.http.routers.asp.rule=Host(`asp.example.com`)" - "traefik.http.routers.asp.entrypoints=websecure"
  1. 结合列表推导式：
  • 批量删除记录。
    python import win32com.client customer_ids = ["XYZ09", "XYZ10"] conn = win32com.client.Dispatch("ADODB.Connection") conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Northwind.mdb") rs = win32com.client.Dispatch("ADODB.Recordset") rs.Open("Customers", conn, 1, 3)

[rs.Find(f”CustomerID='{cid}'”) or (not rs.EOF and rs.Delete() and rs.Update()) for cid in customer_ids]

print(“批量删除完成！”) rs.Close() conn.Close()

  1. 结合 == 和 is：
  • 检查记录集状态：
    python if rs.State == 1: # 值比较 print("Recordset open") if rs is not None: # 身份比较 print("Recordset exists")
  1. 结合 str() 和 repr()：
  • 调试删除前的记录：
    python rs.Find("CustomerID='XYZ04'") if not rs.EOF: print(str(rs.Fields("CustomerID").Value)) # 用户友好 print(repr(rs.Fields("CustomerID").Value)) # 调试 rs.Delete()

四、注意事项

  1. 游标和锁类型：
  • 必须使用 adOpenKeyset 或 adOpenDynamic 和 adLockOptimistic/adLockPessimistic。
  • 否则报错：Operation is not allowed in this context.
  1. 外键约束：
  • 删除记录前检查外键（如 Customers 可能关联 Orders 表）。
  • 可能需级联删除或禁用约束。
  1. SQL 注入：
  • 避免拼接用户输入：
    asp ' 错误示例 conn.Execute "DELETE FROM Customers WHERE CustomerID='" & Request("id") & "'"
  1. 错误处理：
  • ASP：
    asp On Error Resume Next rs.Delete If Err.Number <> 0 Then Response.Write "错误：" & Err.Description
  • Python：
    python try: rs.Delete() rs.Update() except Exception as e: print(f"Error: {e}")
  1. 调试（类似 console.log）：
  • ASP：Response.Write rs.Fields("CustomerID").Value.
  • Python：print(repr(rs.Fields)).
  1. 性能：
  • 批量删除使用事务（conn.BeginTrans, conn.CommitTrans）。
  • 使用 SQL DELETE 比 Recordset.Delete 更快（大数据集）。
  1. 现代替代：
  • Python：pyodbc 或 sqlalchemy.
  • .NET：ADO.NET 或 Entity Framework.

五、总结

  • ADO 删除记录：通过 Recordset.Delete、SQL DELETE 或 Command.Execute 删除记录。
  • 关键步骤：定位记录（Find 或 WHERE）、删除记录、保存更改（某些情况需 Update）。
  • 结合上下文：
  • REST API：处理删除请求，返回 JSON。
  • ChromeDriver：测试删除表单。
  • Cron：定时批量删除。
  • Traefik：代理 ASP 服务。
  • 列表推导式：批量删除记录。
  • 调试：使用 Response.Write（ASP）或 print(repr())（Python）。

If you need more complex deletion scenarios (e.g., cascading deletes, transaction handling) or specific debugging help, please provide additional details!

类似文章

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注