2022年用ASP连接各种数据库的方法 .pdf

1 用 ASP 连接 DBF、DBC、MDB 、Excel、SQL Server 型数据库的方法2008-08-30 15:02一般来说，一个真正的、完整的站点是离不开数据库的，因为实际应用中，需要保存的数据很多，而且这些数据之间往往还有关联，利用数据库来管理这些数据，可以很方便的查询和更新。数据库有很多种，如：Fox 数据库(.dbf)、Access 数据库 (.mdb)、Informix 、Oracle 和 SQL Server 等等， 在这里， 我将以Microsoft Access 数据库为例来说明ASP 是如何访问数据库的。常用数据库语句1.SELECT 语句：命令数据库引擎从数据库里返回信息，作为一组记录。2.INSERT INTO 语句：添加一个或多个记录至一个表。3.UPDATE 语句：创建更新查询来改变基于特定准则的指定表中的字段值。4.DELETE 语句：创建一个删除查询把记录从FROM 子句列出并符合WHERE 子句的一个或更多的表中清除。5.EXECUTE 语句：用于激活PROCEDURE （过程）用 ASP 来做一个自己的通讯录练练手吧,一、建立数据库：用 Microsoft Access 建立一个名为data.mdb 的空数据库， 使用设计器创建一个新表。输入以下几个字段：字段名称数据类型说明其它ID自动编号数据标识字段大小：长整型新值：递增索引：有（无重复）username文本姓名缺省值usermail文本E-mail缺省值view数字查看次数字段大小：长整型默认值： 0索引：无indate时间日期加入时间缺省值保存为data.mdb 文件，为了便于说明，只是做了一个比较简单的库。二、连接数据库方法 1：Set conn = Server.CreateObject(ADODB.Connection) conn.Open driver=Microsoft Access Driver (*.mdb);dbq=&Server.MapPath(data.mdb) 方法 2：Set conn = Server.CreateObject(ADODB.Connection) conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&Server.MapPath(data.mdb) 注意：一个页面中，只要连接一次就可以了，数据库使用完后要及时关闭连接。conn.Close Set conn = Nothing 三、添加新记录到数据库Set conn = Server.CreateObject(ADODB.Connection) conn.Open driver=Microsoft Access Driver (*.mdb);dbq=&Server.MapPath(data.mdb) username = 风云突变 usermail = indate = Now() sql = insert into data (username,usermail,indata) values(&username&,&usermail&,&indate&) conn.Execute(sql) conn.Close Set conn = Nothing 说明：建立数据库连接；通过表单获取姓名、E-mail 字符串， Now()获取当前时间日期；使用insert 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 6 页 - - - - - - - - - 2 into 语句添加新记录；conn.Execute 来执行；最后关闭。四、选择数据库里的记录1.选择所有记录的字段（按记录倒序排序）：sql = select * from data order by ID desc 2.选择所有记录的姓名和E-mail 字段（不排序） ：sql = select username,usermail from data 3.选择姓名为“风云突变”的所有记录：sql = select * from data where username= 风云突变 4.选择使用163 信箱的所有记录（按查看次数排序）：sql = select * from data where usermail like % order by view desc 5.选择最新的10 个记录： sql = select top 10 * from data order by ID desc SQL 语句已经知道了，不过在Web 应用时，还得创建一个RecordSet 对象得到记录集，才能把从数据库里取出的值应用在网页上，如果现在将所有的记录显示在网页上就这样：Set conn = Server.CreateObject(ADODB.Connection) conn.Open driver=Microsoft Access Driver (*.mdb);dbq=&Server.MapPath(data.mdb) sql = select * from data Set rs = Server.CreateObject(ADODB.RecordSet) rs.Open sql,conn,1,1 Do While Not rs.Eof Response.Write 姓名： & rs(username) &E-mail ：& rs(usermail) &查看： & rs(view) & 次& rs(indate) &加入 rs.MoveNext Loop rs.Close Set rs = Nothing conn.Close Set conn = Nothing 说明：建立数据库连接；创建rs 得到记录集；循环显示记录，rs.Eof 表示记录末，rs.MoveNext 表示移到下一个记录；最后关闭。五、修改（更新）数据库记录修改记录的E-mail ：Set conn = Server.CreateObject(ADODB.Connection) conn.Open driver=Microsoft Access Driver (*.mdb);dbq=&Server.MapPath(data.mdb) ID = 1 usermail = sql = update data set usermail=&usermail& where ID=&CInt(ID) conn.Execute(sql) conn.Close Set conn = Nothing 说明：建立数据库连接；获取记录ID 、新 E-mail 字符串； 使用update 语句修改记录； conn.Execute 来执行；最后关闭。如果使记录的查看值加1，则： sql = update data set view=view+1 where ID=&CInt(ID) 六、删除数据库记录删除某一条记录：Set conn = Server.CreateObject(ADODB.Connection) conn.Open driver=Microsoft Access Driver (*.mdb);dbq=&Server.MapPath(data.mdb) ID = 1 sql = delete from data where ID=&CInt(ID) conn.Execute(sql) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 6 页 - - - - - - - - - 3 conn.Close Set conn = Nothing 说明： 建立数据库连接；获取记录 ID ；使用delete 语句删除记录； conn.Execute 来执行； 最后关闭。删除多条记录为：sql = delete from data where ID in (ID1,ID2,ID3) 删除所有记录为：sql = delete from data 总结：以上教程是针对ASP 的初学者而写的，只是介绍了一些基本的用法，在了解之后可以自己去试试，重要的在于能举一反三、综合运用。更多的语法和参数请参阅Microsoft Access 帮助中的Microsoft Jet SQL 参考，由于本人才疏学浅、能力有限，如有表达不明确有地方还望指出，如果在应用当中遇到什么问题，也希望能够提出。谢谢。- 用 ASP 连接 DBF、 DBC、MDB 、Excel、SQL Server 型数据库的方法：一、 ASP 的对象存取数据库方法在 ASP 中，用来存取数据库的对象统称ADO（ Active Data Objects ） ，主要含有三种对象：Connection、Recordset 、Command Connection：负责打开或连接数据Recordset：负责存取数据表Command：负责对数据库执行行动查询命令二、连接各数据库的驱动程序连接各数据库可以使用驱动程序，也可以使用数据源，建议大家使用驱动程序。ODBC 链接适合数据库类型/ 链接方式access Driver=microsoft access driver(*.mdb);dbq=*.mdb;uid=admin;pwd=pass; dBase Driver=microsoft dbase driver(*.dbf);driverid=277;dbq=-; Oracle Driver=microsoft odbc for oracle;server=oraclesever.world;uid=admin;pwd=pass; MSSQL server Driver=sql server;server=servername;database=dbname;uid=sa;pwd=pass; MS text Driver=microsoft text driver(*.txt; *.csv);dbq=-;extensions=asc,csv,tab,txt;Persist SecurityInfo=false; Visual Foxpro Driver=microsoft Visual Foxpro driver;sourcetype=DBC;sourceDB=*.dbc;Exclusive=No; MySQL Driver=mysql;database=yourdatabase;uid=username;pwd=yourpassword;option=16386; OLEDB 链接适合数据库类型/ 链接方式access Provider=microsoft.jet.oledb.4.0;data source=your_database_path;user id=admin;password=pass; Oracle Provider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass; MS SQL Server Provider=SQLOLEDB;data source=machinename;initial catalog=dbname;userid=sa;password=pass; MS text Provider=microsof.jet.oledb.4.0;data source=your_path;Extended Propertiestext;FMT=Delimited 下面给出连接Access的数据库的实例dim conn set conn = server.createobject(adodb.connection) conn.open = provider=microsoft.jet.oledb.4.0; & data source = & server.mappath(./db/bbs.mdb) 其中 ./db/bbs.mdb 为数据库存放的相对路径！如果数据库和ASP 文件位于同一目录下，则只需这样写：dim conn 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 6 页 - - - - - - - - - 4 set conn = server.createobject(adodb.connection) conn.open = provider=microsoft.jet.oledb.4.0; & data source = & server.mappath(bbs.mdb) 有许多初学者下面是数据库连接的实例：1)建立 MdbRecordset 对象，Mdb 数据库是一个完整的数据库，内部可能含有若干个数据表，在此函数中，Connection 的作用是连接数据库，Recordset的作用是打开数据表。Function CreateMdbRecordset( 数据库文件名, 数据表名或Select语句) Dim conn,Provider,DBPath 建立 Connection 对象Set conn = Server.CreateObject(ADODB.Connection) Provider = Provider=Microsoft.Jet.OLEDB.4.0; DBPath = Data Source= & Server.MapPath( 数据库文件名 ) 打开数据库conn.Open Provider & DBPath Set CreateMdbRecordset = Server.CreateObject(ADODB.Recordset) 打开数据表，参数二为Connection 对象CreateMdbRecordset.Open 数据表名 , conn, 2, 2 End Function 2） 建立带密码的Mdb 数据库的 Recordset 对象， 它的建立方式与建立不带密码的Mdb 数据库的Recordset对象类似，只是多了一个密码参数，即在与数据库连接时，必须给出密码信息。Function CreateSecuredMdbRecordset( 数据库文件名, 数据表名或Select语句， password ) Dim conn,Provider,DBPath 建立 Connection 对象Set conn = Server.CreateObject(ADODB.Connection) Provider = Provider=Microsoft.Jet.OLEDB.4.0; DBPath = Data Source= & Server.MapPath( 数据库文件名 ) 连接数据库 ,注意下面一行带有密码参数conn.Open Provider & DBPath&” Jet OLEDB:Database Password=” &assword Set CreateSecuredMdbRecordset = Server.CreateObject(ADODB.Recordset) 打开数据表，参数二为Connection 对象CreateSecuredMdbRecordset.Open 数据表名 , conn, 2, 2 End Function 3)DBF 文件不是一个标准的数据库文件，只相当于标准数据库文件中的一个数据表，所以为了使用DBF文件，采用把所有的DBF 文件放在一个目录下，这样把目录名看成标准数据中的数据库表，每一个DBF文件相当于标准数据库的数据表。下面函数中Directory 是 DBF 所在的目录名，Function CreateDbfRecordset( 目录名 , DBF 文件名或Select语句) Dim conn,Driver,SourceType,DBPath 建立 Connection 对象Set conn = Server.CreateObject(ADODB.Connection) Driver = Driver=Microsoft Visual FoxPro Driver; SourceType = SourceType=DBF; DBPath = SourceDB= & Server.MapPath( 目录名 ) 调用 Open 方法打开数据库conn.Open Driver & SourceType & DBPath Set CreateDbfRecordset = Server.CreateObject(ADODB.Recordset) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 6 页 - - - - - - - - - 5 打开 DBF 文件，参数二为Connection 对象CreateDbfRecordset.Open DBF文件名或 Select语句 , conn, 2, 2 End Function 4）由 Foxpro 生成的 DBC 数据库与MDB 数据库相似，都是一个数据库包含几个数据表的形式，所以对DBC 数据库的存取方法与MDB 数据库相似。Function CreateDbcRecordset( DBC 数据库文件名, 数据表名或Select语句) Dim conn,Driver,SourceType,DBPath 建立 Connection 对象Set conn = Server.CreateObject(ADODB.Connection) Driver = Driver=Microsoft Visual FoxPro Driver; SourceType = SourceType=DBC; DBPath = SourceDB= & Server.MapPath( DBC数据库文件名 ) 连接数据库conn.Open Driver & SourceType & DBPath Set CreateDbcRecordset = Server.CreateObject(ADODB.Recordset) 打开数据表，参数二为Connection 对象CreateDbcRecordset.Open 数据表名或Select语句 , conn, 2, 2 End Function 5）将 Excel97 或 Excel2000 生成的 XLS 文件（ book）看成一个数据库，其中的每一个工作表(sheet)看成数据库表。Function CreateExcelRecordset( XLS 文件名 ,Sheet名 ) Dim conn.Driver,DBPath 建立 Connection 对象Set conn = Server.CreateObject(ADODB.Connection) Driver = Driver=Microsoft Excel Driver (*.xls); DBPath = DBQ= & Server.MapPath( XLS文件名 ) 调用 Open 方法打开数据库conn.Open Driver & DBPath Set CreateExcelRecordset = Server.CreateObject(ADODB.Recordset) 打开 Sheet，参数二为Connection 对象 ,因为 Excel ODBC 驱动程序无法直接用sheet 名来打开sheet,所以请注意以下的select语句CreateExcelRecordset.Open Select * From &sheet&” $ ” , conn, 2, 2End Function 6）SQL Server 属于 Server 级的数据库，使用时要求比较严格，必须要求输入用户名及密码才能使用。Function CreateSQLServerRecordset( 计算机名称 ,用户 ID, 用户密码 ,数据库名称数据表或查看表或Select指令) Dim Params, conn Set CreatSQLServerConnection = Nothing Set conn = Server.CreateObject(ADODB.Connection) Params = Provider=SQLOLEDB.1 Params = Params & ;Data Source= & Computer Params = Params & ;User ID= & UserID Params = Params & ;Password= & Password Params = Params & .Initial Catalog=&数据库名称Conn open Paras Set CreateSQLServerRecordset = Server.CreateObject(ADODB.Recordset) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 6 页 - - - - - - - - - 6 CreateSQLServerRecordset.Open source, conn, 2, 2 End Function 利用上面的函数就可以打开常用类型的数据库，然后利用ADO 的 Recordset 对象的增加记录、删除记录、修改记录等功能就可以对数据库进行操作。但是要说明的是，在实际开发中我们发现，如果使用DBF 、DBC 、Excel 数据库，执行效率没有MDB 数据库效率高，最好尽可能用MDB 类型数据库。如果用用DBF、DBC 、Excel 数据库，下面几点要注意：Excel 数据库只能读取、增加记录、修改记录，但不能删除记录；DBF、DBC 可以读取记录、增加记录、删除记录、修改记录，但是在增加记录时，任何一个字段值都不能为空，由此可看出局限性很大，所以尽可能地用MDB 或 SQL 数据库。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 6 页 - - - - - - - - -