ASP讲座之七：ASP与数据库（二）
2018-09-06 13:04
在上一讲中，我们学习了如何与数据库建立连接和从数据库中检索数据，今天的内容是如何向数据库中添加新数据、修改和删除数据库中的数据。
一、 向数据库中添加新数据
方法一：使用SQL语句，例wuf50.asp。
为了简化以后的程序，将与Access数据库的连接部分放在一个文件中，此文件以后需要用到时不再说明。
<% AdoAccess.asp
Option Explicit
Response.Expires = 0
第一部分: 建立连接
Dim Cnn, StrCnn
StrCnn = Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:InetpubhomeaspNorthwind.mdb
Cnn.Open StrCnn
%>
程序wuf50.asp
<% @LANGUAGE = VBScript %>
<!--#include file=AdoAccess.asp-->
<% wuf50.asp
第二部分: 使用 Connection 对象的 Execute 添加新数据
Dim StrSQL, rsTest
StrSQL = INSERT INTO 运货商 (公司名称,电话) VALUES(wufeng,0571-7227298)
Cnn.Execute StrSQL
%>
<HTML>
<BODY>
<% 第三部分: 将得到的记录集显示到浏览器上
Set rsTest = Cnn.Execute(Select * From 运货商)
Do While Not rsTest.EOF
Response.Write rsTest(0) rsTest(1) rsTest(2) <BR>
rsTest.MoveNext
Loop
第四部分: 打扫战场
Cnn.close
Set rsTest = Nothing: Set Cnn = Nothing
%>
</BODY>
</HTML>
请注意以下几点：
1． 使用SQL语句向Access数据库中添加数据时必须使用Insert Into，而向SQL Server数据库中添加数据，使用Insert就可以了。
2． 使用SQL语句添加数据的格式如上例，注意需要添加wufeng，在语句中必须使用wufeng，因为SQL语句使用作为字符串的分界符。
3． 把本例同以前所学的知识结合起来，就可以实现从HTML表单中添加数据。
4． 注意有一个数据类型为自动编号的字段，如本例中的“运货商ID”，因此你大可不必考虑如何写代码获得一个递增的编号。
方法二：使用Recordset对象的Addnew方法，例wuf51.asp。
<% @LANGUAGE = VBScript %>
<!--#include file=AdoAccess.asp-->
<% wuf51.asp
第二部分: 使用 Recordset 对象的 AddNew 方法添加新数据
Dim StrSQL, rsTest
Set rsTest = server.CreateObject(ADODB.Recordset)
rsTest.CursorType = adOpenKeySetadOpenDynamic
没有下面这一句, 将不允许更新数据库, 为什么?
rsTest.LockType = adLockOptimistic
rsTest.Open 运货商,Cnn,,,adCmdTable
rsTest.AddNew
rsTest(公司名称) = wufeng
rsTest(电话) = 0571-7227298
rsTest.Update
%>
<HTML>
<BODY>
<% 第三部分: 将得到的记录集显示到浏览器上
将数据库指针移到表中的第一条记录
If Not rsTest.EOF <> 0 Then
Response.Write 表中现有 [ rsTest.RecordCount ] 条数据 <Br><Br>
rsTest.MoveFirst
End If
Do While Not rsTest.EOF
Response.Write rsTest(0) rsTest(1) rsTest(2) <BR>
rsTest.MoveNext
Loop
第四部分: 打扫战场
Cnn.close
Set rsTest = Nothing: Set Cnn = Nothing
%>
</BODY>
</HTML>
分析：
1． 为何要设置rsTest.LockType = adLockOptimistic
Recordset对象的LockType属性有四个可选值：
adLockReadOnly——默认值，表示以只读方式打开记录集，因而无法无法更改数据，在这种情况下使用AddNew方法就会发生错误。
adLockPessimistic——保守式记录锁定（逐条）。采用编辑时立即锁定数据源的记录的方式。此时，其他用户不能访问该数据。
adLockOptimistic ——开放式记录锁定（逐条）。只在调用 Update 方法时锁定记录。想想，这个属性是不是与我们讲过的Application对象的Lock、Unlock属性的意思差不多。
adLockBatchOptimistic——开放式批更新。用于成批更新数据，与UpdateBatch方法相对应。
顺便我们再提一下上一讲中提到的CursorType 属性，它同样有四个值：
adOpenForwardOnly——仅向前游标，默认值，只能在记录中向前滚动。这可以节省资源并提高性能。
adOpenStatic——静态游标。可以用来查找数据或生成报告的记录集合的静态副本。另外，对其他用户所作的添加、更改或删除不可见。 推荐在ASP中只使用这两种游标。
adOpenKeyset——键集游标。键集游标与动态游标相似,不同的只是禁止查看其他用户添加的记录，并禁止访问其他用户删除的记录，其他用户所作的数据更改将依然可见。
adOpenDynamic——动态游标。可以看见其他用户所作的添加、更改和删除。允许在记录集中进行所有类型的移动。
可以肯定的一定是，这样抽象的描述有点似是而非，还是弄不太明白，简单的说，
（1） 如果仅仅检索数据，使用默认值就可以了；
（2） 如果使用Update方法更新一条数据，LockType属性使用adLockOptimistic，使用UpdataBatch方法成批更新数据，则使用adLockBatchOptimistic。
（3） 如果对数据库有写动作，CursorType 属性一般使用adOpenKeyset就够了。
怎么样？即使还不太明白，但会用了吧。
2． 如果你并不精通数据库，通常在输出显示前使用rsTest.MoveFirst将指针移至第一条记录是大有益处的。但是如果数据库中没有任何数据，就无法使用MoveFirst方法，所以使用前先用rsTest.EOF属性判断数据库中是否有数据。
3． 只有当游标类型设为adOpenKeyset或adOpenStatic时，才能使用RecordCount属性（获取记录集中的记录数目）。
二、 修改数据库中已存在的数据
方法一：使用 SQL 语句。例wuf52.asp，程序基本上与wuf50.asp类似，这里仅列出关键部分。
第二部分: 使用 Connection 对象的 Execute 方法修改数据
Dim StrSQL, rsTest
StrSQL = UPDATE 运货商 SET 电话 = (503) 555-3188 WHERE 电话 LIKE %99%
Cnn.Execute StrSQL
修改数据不用INSERT INTO…VALUES，而是用UPDATE…SET语句，WHERE子句的意思是将含有字符串“99”（“LIKE”、“%”在模糊查询时经常用到）的电话号码改为(503) 555-3188，如果不设置条件，表中所有的电话号码都会被改掉。
方法二：使用 Recordset 对象的 Update 方法。程序wuf53.asp（类似例程wuf51.asp）
第二部分: 使用 Recordset 对象的 Update 方法修改数据
Dim StrSQL, rsTest
Set rsTest = server.CreateObject(ADODB.Recordset)
rsTest.LockType = adLockOptimistic
StrSQL = SELECT 姓氏,名字,出生日期 FROM 雇员 WHERE 出生日期 = #55-03-04#
rsTest.Open StrSQL, Cnn,,,adCmdText
rsTest(名字) = 中文
rsTest.Update
分析：
1． SQL语句中，如果数据库是Access数据库，则日期用#55-03-04#括起来，如本例；如果是SQL Server数据库，则日期要用’55-03-04’括起来。
2． rsTest.Open StrSQL, Cnn,,,adCmdText中，由于第一个参数是SQL语句，所以第五个参数为adCmdText，其实，第五个参数完全可以省略，但是加上它会使脚本的执行效率更高。
3． 使用方法一，一次可以更新符合条件的所有记录（多条记录或一条记录），但方法二中的Update只能修改当前记录（符合条件的第一条记录）。
三、 删除数据库中的数据
方法一：使用 SQL 语句。例程wuf55.asp
第二部分: 使用 SQL 语句删除数据
Dim StrSQL, rsTest
StrSQL = DELETE FROM 运货商 WHERE 电话 = 0571-7227298
Cnn.Execute StrSQL
方法二：使用 Recordset 对象的 Delete 方法。例程wuf56.asp
第二部分: 使用 Recordset 对象的 Delete 方法删除数据
Dim StrSQL, rsTest
Set rsTest = server.CreateObject(ADODB.Recordset)
rsTest.LockType = adLockOptimistic
StrSQL = SELECT * FROM 运货商 WHERE 电话 = 0571-7227298
rsTest.Open StrSQL, Cnn,,,adCmdText
While Not rsTest.EOF
rsTest.Delete
rsTest.MoveNext
Wend
若记录集中有多条记录符合条件，则必须使用循环，否则，Delete方法只删除当前记录，即第一条符合条件的记录。
四、 其它一些有用的知识
1． 成批更新
上一篇：ASP智能搜索的实现
文章标题：ASP讲座之七：ASP与数据库（二）
文章链接：http://soscw.com/index.php/essay/10883.html