ADO 如何新增、修改和刪除資料庫中的記錄？

一、新建資料庫的記錄 首先，使用 ADO 鏈結到 access 資料庫，使用 sql 命令開啟表產品的記錄，並將結果發回 rs1 的記錄集，asp 程式碼如下： set conn1 = dbq= ; driver=;設定 rs1 = product，conn1,1,3 使用 addnew 方法新增新記錄，asp 程式碼如下： 若要設定記錄表中每個欄位的值，可以使用以下三種語法：

rs1（欄位名稱）。value = value rs1 （欄位名稱） = 值 rs1 （字段順序） = 值 例如，asp 程式碼如下：rs1（name）。

值 = 膝上型電腦 rs1（數量） = 100 rs1（0） = 12345 最後，下乙個更新方法是將新記錄儲存到表中。 新增記錄： Name = Laptop ）修改資料庫記錄 要修改資料庫的記錄，首先使用Access資料庫的ADO鏈結，執行SQL命令查詢需要修改的記錄，並將結果傳送回RS1 RecordSet，ASP程式碼如下：

set rs1 = sql = select * from product where name='筆記本 電腦'sql，conn1,1,3 如果找到要修改的記錄，設定表中每個欄位的值，最後下乙個更新方法，即將新記錄儲存到表中，asp 程式碼如下： 如果不是，則隨機化 no1 = round（rnd（） 10） new1 = laptop - no1 rs1（name）。value = new1 變更記錄為：

Name = rs1 （name） ）end if 刪除資料庫的記錄 要刪除資料庫的記錄，首先使用訪問資料庫的 ado 鏈結，執行 sql 命令找到需要刪除的記錄，並將結果傳送回 rs1 的記錄集，asp 程式碼如下： set rs1 = sql = select * from product 其中 name=' new1 'sql，conn1,1,3 如果發現要刪除的記錄，可以使用 next delete 方法刪除表中的記錄，asp 程式碼如下： 如果沒有，則刪除記錄：

Name = new1） 結束 if

首先，使用ADO鏈結到access資料庫，使用SQL命令開啟表產品的記錄，並將結果傳送回RS1。

Recordset，asp 程式碼如下：

set conn1 = "")

dbq="& "") &";driver=;"

set rs1 = "")

產品",conn1,1,3

使用 addnew 方法新增新記錄，asp 程式碼如下：

若要設定記錄表中每個欄位的值，可以使用以下三種語法：

rs1("欄位的名稱").值 = 值。

rs1("欄位的名稱"） = 值。

rs1（字段順序）= 值。

例如，ASP 程式碼如下所示：

rs1("名字").value = "筆記本 電腦"

rs1("數量") = 100

rs1(0) = "12345"

最後，下乙個更新方法是將新記錄儲存在表中。

新增記錄：名稱 = 膝上型電腦。

修改資料庫的記錄。

如果要修改資料庫中的記錄，請先使用指向 access 資料庫的 ADO 鏈結，然後執行 SQL 命令查詢要修改的記錄。

如果將其傳送回 RS1 RecordSet，則 ASP 程式碼如下所示：

set rs1 = "")

sql = "從產品中選擇 *，其中 name='筆記本 電腦'"

sql,conn1,1,3

如果發現要修改的記錄，設定表中每個欄位的值，最後是下乙個更新方法，即將新記錄儲存到表中，asp code。

這就是什麼：如果不是，那麼

randomize

no1 = round(rnd() 10)

new1 = "筆記本 電腦" & no1

rs1("名字").value = new1

更改記錄為：name=" & rs1("名字") &"")

end if

刪除資料庫中的記錄。

如果要刪除資料庫中的記錄，首先使用ADO鏈結訪問資料庫，執行SQL命令查詢需要刪除的記錄，並將結果傳送回RS1記錄集，asp程式碼如下：

set rs1 = "")

sql = "從產品中選擇 *，其中 name='" & new1 & "'"

sql,conn1,1,3

如果發現要刪除的記錄，可以使用 next delete 方法刪除表中的記錄，asp 程式碼如下：

if not then

刪除記錄：名稱 =" & new1)

end if

有兩種方法：

1. 按SQL語句刪除

SQL 具有專用的刪除查詢，其格式如下：

從[表名]中刪除，其中[條件]，例如從成績單中刪除，其中[性別]=女性"

以上是SQL的用法，如果在VB中使用斗子，只需在前面加上“on it”即可。

從成績單中刪除，其中 [gender]= 女性' "

2.通過ADO實現。

dim rs as new

資料表的名稱"，然後遍歷所有資料並刪除符合條件的專案：

跳到第乙個資料。

while = false -- 設定迴圈條件。

if rs![條件字段] =then -- 刪除符合條件的記錄。

跳到下一條記錄。

wend -- 結束迴圈。

與兩種方法相比，第一種方法更快、更高效。