ADO如何新增修改刪除数据库的资料呢？

ADO如何新增/修改/刪除資料庫的資料呢？

新增資料庫的資料

首先使用ado連結到Access資料庫ntopsamp.mdb，下SQL指令開啟資料表「產品」的資料，將結果傳回到rs1的recordset當中，ASP程式碼如下：

Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "DBQ="& Server.MapPath("ntopsamp.mdb") &";Driver={Microsoft Access Driver (*.mdb)};"

Set rs1 = Server.CreateObject("ADODB.Recordset")

rs1.Open "產品",conn1,1,3

使用Addnew方法以新增一筆資料，ASP程式碼如下：

rs1.Addnew

設定資料表各個欄位的值，您可以使用以下三種語法：

rs1("欄位名稱").Value = 值

rs1("欄位名稱") = 值

rs1(欄位順序) = 值

譬如說，ASP程式碼如下：

rs1("名稱").Value = "筆記型電腦"

rs1("數量") = 100

rs1(0) = "12345"

最後下個Update方法，即將新增的資料儲存到資料表當中。

rs1.Update

rs1.Close

Response.Write("增加資料: 名稱 = 筆記型電腦

 1<p>")   
 2  
 3修改資料庫的資料   
 4  
 5若要修改資料庫的資料，首先使用ado連結到Access資料庫ntopsamp.mdb，下SQL指令尋找待修改的資料，將結果傳回到rs1的recordset當中，ASP程式碼如下：   
 6  
 7Set rs1 = Server.CreateObject("ADODB.Recordset")   
 8  
 9sql = "SELECT * FROM 產品 WHERE 名稱='筆記型電腦'"   
10  
11rs1.Open sql,conn1,1,3,1   
12  
13若找到待修改的資料，設定資料表各個欄位的值，最後下個Update方法，即將新增的資料儲存到資料表當中，ASP程式碼如下：   
14  
15if not rs1.EOF then   
16  
17randomize   
18  
19no1 = round(rnd() * 10)   
20  
21new1 = "筆記型電腦-" &amp; no1   
22  
23rs1("名稱").Value = new1   
24  
25rs1.Update   
26  
27Response.Write("修改資料成: 名稱= " &amp; rs1("名稱") &amp; "<p>")   
28  
29end if   
30  
31刪除資料庫的資料   
32  
33若要刪除資料庫的資料，首先使用ado連結到Access資料庫ntopsamp.mdb，下SQL指令尋找待刪除的資料，將結果傳回到rs1的recordset當中，ASP程式碼如下：   
34  
35Set rs1 = Server.CreateObject("ADODB.Recordset")   
36  
37sql = "SELECT * FROM 產品 WHERE 名稱='" &amp; new1 &amp; "'"   
38  
39rs1.Open sql,conn1,1,3,1   
40  
41若找到待刪除的資料，下個Delete方法，即可刪除資料表中的此筆資料，ASP程式碼如下：   
42  
43if not rs1.EOF then   
44  
45rs1.Delete   
46  
47Response.Write("刪除資料: 名稱 = " &amp; new1)   
48  
49end if   
50  
51conn1.Close</p></p>