ADO如何使用Update语法呢?(BIG5)

Update

Update陳述式,用來更新資料表中欄位的資料值,可以使用WHERE設定特定的條件運算式,符合條件運算式的記錄才會被更新。

語法如下:

UPDATE 資料表
SET 欄位新值
WHERE 條件運算式

當您要同時更新多個記錄,或者在多個資料表中更新記錄時,就需要用到UPDATE陳述式。

您可以同時變更多個欄位的資料值,譬如,下例將產品資料表中的所有記錄,價格打九折,運費打七折:

UPDATE 產品

SET 價格 = 價格 * 0.9, 運費 = 運費 * 0.7

UPDATE陳述式並不會產生Recordset。當您使用UPDATE陳述式更新記錄之後,無法復原原始值。因此,如果您想知道哪些記錄將被更新,建議您先使用SELECT和相同的WHERE條件運算式來查詢結果,確定是您想更新的記錄後,然後再執行UPDATE陳述式更新記錄。

當然您可以隨時將的資料作備份複製,萬一您使用UPDATE陳述式更新了錯誤的記錄,您仍然可以從您的備份中救回這些記錄。

讓我們看一個於ASP程式碼當中使用這個SQL指令的例子。

譬如ASP程式碼rs5.asp如下,[Update 產品 Set 數量 = 數量 + 10] 使用Update將產品資料表中的所有記錄的數量欄位資料加10:

 1   
 2  
 3Set conn1 = Server.CreateObject("ADODB.Connection")   
 4  
 5conn1.Open "DBQ="& Server.MapPath("ntopsamp.mdb") &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"   
 6  
 7'conn1.Open "driver={SQL Server};server=(Local);uid=sa;pwd=;database=NtopSamp"   
 8  
 9sql = "Update 產品 Set 數量 = 數量 + 10"   
10  
11Set a = conn1.Execute(sql)   
12  
13Set rs3 = Server.CreateObject("ADODB.Recordset")   
14  
15sql = "Select * from 產品 order by 代號"   
16  
17rs3.Open sql,conn1,1,1,1   
18  
1<table border="0" cellpadding="5" colspan="8">
2<tr>
3<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">代號</font></td>
4<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">名稱</font></td>
5<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">價格</font></td>
6<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">數量</font></td>
7</tr>   
8  

Do while not rs3.EOF

 1  
 2<tr>
 3<td align="CENTER" bgcolor="f7efde">```
 4= rs3("代號")
 5```</td>
 6<td align="CENTER" bgcolor="f7efde">```
 7= rs3("名稱")
 8```</td>
 9<td align="CENTER" bgcolor="f7efde">```
10= rs3("價格")
11```</td>
12<td align="CENTER" bgcolor="f7efde">```
13= rs3("數量")
14```</td>
15</tr>   
16  

rs3.MoveNext

Loop

rs3.Close

conn1.Close

1  
2</table>

以上的 ASP程式碼rs5asp,於用戶端使用瀏覽器,瀏覽執行數量欄位資料加10的結果,每執行一次就將產品資料表中的數量加10。

Update...Where

UPDATE陳述式,可以使用WHERE設定特定的變更條件,符合變更條件的記錄才做變更。

譬如ASP程式碼rs6.asp如下,[Update 產品 Set 數量 = 數量 + 10 where 種類 = '電腦'] 設定特定的變更條件,[種類] 欄位為 [電腦] 的記錄才將數量加10:

 1   
 2  
 3Set conn1 = Server.CreateObject("ADODB.Connection")   
 4  
 5conn1.Open "DBQ="& Server.MapPath("ntopsamp.mdb") &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"   
 6  
 7'conn1.Open "driver={SQL Server};server=(Local);uid=sa;pwd=;database=NtopSamp"   
 8  
 9sql = "Update 產品 Set 數量 = 數量 + 10 where 種類 = '電腦'"   
10  
11Set a = conn1.Execute(sql)   
12  
13Set rs3 = Server.CreateObject("ADODB.Recordset")   
14  
15sql = "Select * from 產品 order by 種類 DESC"   
16  
17rs3.Open sql,conn1,1,1,1   
18  
1<table border="0" cellpadding="5" colspan="8">
2<tr>
3<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">代號</font></td>
4<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">名稱</font></td>
5<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">數量</font></td>
6</tr>   
7  

Do while not rs3.EOF

 1  
 2<tr>
 3<td align="CENTER" bgcolor="f7efde">```
 4= rs3("代號")
 5```</td>
 6<td align="CENTER" bgcolor="f7efde">```
 7= rs3("名稱")
 8```</td>
 9<td align="CENTER" bgcolor="f7efde">```
10= rs3("數量")
11```</td>
12</tr>   
13  

rs3.MoveNext

Loop

rs3.Close

conn1.Close

1  
2</table>

以上的 ASP程式碼rs6.asp,於用戶端使用瀏覽器,瀏覽執行的結果,顯示數量加10的記錄。

Update...Where...In

可以利用Update...Where...In找出重覆的記錄,譬如ASP程式碼rs6.asp如下,[Update 產品 Set 價格 = 價格 - 100 where 種類 = '電腦' and 價格 in (Select 價格 from 產品 where 價格 > 30000)] 表示價格 > 30000而 [種類] 欄位為 [電腦] 的記錄才降價100:

 1   
 2  
 3Set conn1 = Server.CreateObject("ADODB.Connection")   
 4  
 5conn1.Open "DBQ="& Server.MapPath("ntopsamp.mdb") &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"   
 6  
 7'conn1.Open "driver={SQL Server};server=(Local);uid=sa;pwd=;database=NtopSamp"   
 8  
 9sql = "Update 產品 Set 價格 = 價格 - 100 where 種類 = '電腦' and 價格 in (Select 價格 from 產品 where 價格 > 30000)"   
10  
11Set a = conn1.Execute(sql)   
12  
13Set rs3 = Server.CreateObject("ADODB.Recordset")   
14  
15sql = "Select * from 產品 order by 種類 DESC"   
16  
17rs3.Open sql,conn1,1,1,1   
18  
1<table border="0" cellpadding="5" colspan="8">
2<tr>
3<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">代號</font></td>
4<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">名稱</font></td>
5<td align="CENTER" bgcolor="#800000"><font color="#FFFFFF">價格</font></td>
6</tr>   
7  

Do while not rs3.EOF

 1  
 2<tr>
 3<td align="CENTER" bgcolor="f7efde">```
 4= rs3("代號")
 5```</td>
 6<td align="CENTER" bgcolor="f7efde">```
 7= rs3("名稱")
 8```</td>
 9<td align="CENTER" bgcolor="f7efde">```
10= rs3("價格")
11```</td>
12</tr>   
13  

rs3.MoveNext

Loop

rs3.Close

conn1.Close

1  
2</table>

以上的 ASP程式碼rs6.asp,於用戶端使用瀏覽器,瀏覽執行的結果,顯示價格 > 30000的電腦才降價100。

Published At
Categories with Web编程
Tagged with
comments powered by Disqus