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。