日期:2009-09-30  浏览次数:20883 次

在上一讲中,我们学习了如何与数据库建立连接和从数据库中检索数据,今天的内容是如何向数据库中添加新数据、修改和删除数据库中的数据。


一、 向数据库中添加新数据
方法一:使用SQL语句,例wuf50.ASP。
为了简化以后的程序,将与Access数据库的连接部分放在一个文件中,此文件以后需要用到时不再说明。
<% 'AdoAccess.ASP
Option Explicit
Response.Expires = 0
'第一部分: 建立连接
Dim Cnn, StrCnn
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\home\ASP\Northwind.mdb"
Cnn.Open StrCnn
%>
程序wuf50.ASP
<% @LANGUAGE = VBScript %>
<!--#include file="AdoAccess.ASP"-->
<% ' wuf50.ASP
'第二部分: 使用 Connection 对象的 Execute 添加新数据
Dim StrSQL, rsTest
StrSQL = "INSERT INTO 运货商 (公司名称,电话) VALUES('wu''feng','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语句添加数据的格式如上例,注意需要添加'wu'feng',在语句中必须使用'wu''feng',因为SQL语句使用'作为字符串的分界符。
3. 把本例同以前所学的知识结合起来,就可以实现从HTML表单中添加数据。
4. 注意有一个数据类型为自动编号的字段,如本例中的“运货商ID”,因此你大可不必考虑如何写代码获得一个递增的编号。

方法二:使用Recordset对象的Addnew方法,例wuf51.ASP。
<% @LANGUAGE = VBScript %>
<!--#include file="AdoAccess.ASP"-->
<!--#include file="adovbs.inc"-->
<% ' wuf51.ASP
'第二部分: 使用 Recordset 对象的 AddNew 方法添加新数据
Dim StrSQL, rsTest
Set rsTest = server.CreateObject("ADODB.Recordset")
rsTest.CursorType = adOpenKeySet  'adOpenDynamic
'没有下面这一句, 将不允许更新数据库, 为什么?
rsTest.LockType = adLockOptimistic
rsTest.Open "运货商",Cnn,,,adCmdTable

rsTest.AddNew
rsTest("公司名称") = "wu'feng"
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将指针移至第一条