用ASP连接各种数据库的方法(经典)

用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.UPDA TE 语句：创建更新查询来改变基于特定准则的指定表中的字段值。

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 = "fytb@"

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 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 = "fytb@"

sql = "update data set usermail='"&usermail&"' where ID="&CInt(ID)

conn.Execute(sql)

conn.Close

Set conn = Nothing