第九讲AS 访问数库(二).doc

第九 : ASP 访问数据库（二） 实验目标 : ?? 掌握用 ASP 从数据库中增加、修改、删除信息 ?? 学会用 ASP 从数据库中检索信息 第一部分：指导 ?1.1 向数据库中添加新数据 ? 方法一：使用 SQL 语句。 ?? 为了简化以后的程序，将与 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(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-- !--#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( 公司名称 ) = wufeng rsTest( 电话 ) = 0571-7227298 rsTest.Update % HTML BODY % 第三部分 : 将得到的记录集显示到浏览器上  将数据库指针移到表中的第一条记录 If Not rsTest.EOF 0 Then Response.Write 表中现有 [ rsTest.RecordCount ] 条数据 BrBr rsTest.MoveFirst End If Do While Not rsTest.EOF???? Response.Write rsTest(0) ????