保存为datA.mdb文件
2.连接数据库
Set conn= (1)
conn.Open'driver={Microsoft Access Driver.mdb)};dbq='&Server.MapPath('datA.mdb')
注意:一个页面中,只要连接一次就可以了,数据库使用完后要及时关闭连接。
conn.Close
Ser conn=Nothing
3.添加新记录到数据库
Set conn=Server.CreateObject('ADOD
B.Connection')
conn.Open'driver={Microsoft Access Driver(.mdb};dbq='&Server.MapPath('datA.mdb')
username='程序员'
usermail='xj@163.com'
indate=Now()
sql='insert into data(username,usermail,indata)values('&username&','&usermail&','&indate&')'
(2)
conn.Close
Set conn=Nothing
4.选择数据库里的记录
1)选择所有记录的字段(按记录倒序排序): (3) 。
2)选择所有记录的姓名和Email字段(不排序):sql= 'select username,usermail from data'。
3)选择姓名为“程序员”的所有记录: (4) 。
4)选择使用163信箱的所有记录(按查看次数排序):sql='selectfrom data where usermail like%'@163.com'%order by view desc'。
5)选择最新的10个记录:sql='select top 10from data order by ID desc'。
SQL语句已经知道了,不过在Web应用时,还得创建一个RecordSet对象得到记录集,才能把从数据库里取出的值应用在网页上,如果现在将所有的记录显示在网页上就使用如下代码:
Set conn=Server.CreateObject('ADOD
B.Connection')
conn.Open'driver={Microsoft Access Driver(*.mdb)};dbq='&Server.MapPath('datA.mdb')
sql='select*from data'
Set rs=Server.CreateObject('ADOD
B.RecordSet')
rs.Open sql,conn,1,1
Do While Not rs.Eof
Response.Write'<p>姓名:'& rs('username')&'E-maih:'& rs('usermail')&'查看:'& rs('view')&'次'& rs('indate')&'加入</p>'
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
说明:建立数据库连接;创建rs得到记录集;循环显示记录,rs.Eof表示记录末,rs.MoveNext表示移到下一个记录;最后关闭。
5.修改(更新)数据库记录
修改记录的Email:
Set conn=Server.CreateObject('ADOD
B.Connection')
cons.Open'driver={Microsoft Access Driver(*.mdb)};dbq='&Server.MapPath('datA.mdb')
ID=1
usermail='xj@163.com'
sql='update data set usermail='&usermail&'where ID='&CInt(ID)
conn.Execute(sql)
conn.Close
Set conn=Nothing
说明:建立数据库连接;获取记录ID、新Email字符串;使用update语句修改记录;conn.Execute来执行;最后关闭。如果使记录的查看值加1,则sql='update data set view=view+1 where ID='&CInt(ID)
6.删除数据库记录
删除某一条记录:
Set conn=Server.CreateObject('ADOD
b.Connection')
conn.Open'driver={Microsoft Access Driver(*.mdb)};dbq='&Server.MapPath('datA.mdb')
ID=1
sql= (5)
conn.Execute(sql)
conn.Close
Set conn=Nothing