ACCESS数据库在ASP中的应用

本人是计算机软件开发专业的,根据本人总结:觉得每一种语言的开发都离不开数据库的应用,所为学习编程重点在于数据库的应用及灵活的编程思想。以下本人向大家介绍一下ASP语言中ACCESS数据库的连接及其几个操作：

数据库的连接：

<%

datafile="data.mdb"

set rs=server.createobject("adodb.connection")

conn="DRIVER={Microsoft Access Driver (*.mdb)}; data source=" & server.mappath(""& datafile &"")

rs.open conn

%>

添加数据：

<%

set rs=server.createobject("adodb.recordset")

sql="select*from tablename"'tablename为数据中表的名称

rs.open sql,conn,1,1

rs.addnew

rs("data1")="new1"

rs("data2")="new2"

rs("data3")="new3"

……

rs("datan")="newn"

rs.update

rs.close

conn.close

set rs=nothing

set sql=nothing

%>

删除数据：

<%

set rs=server.createobject("adodb.recordset")

sql="select*from tablename where del=del"'第二个del为你想要删除的数据

rs.open sql,conn,1,1

if rs.eof and rs.bof then

response.write "数据不存在"

else

rs.delete

response.write "数据已经删除"

end if

%>

数据查询：

<%

set rs=server.createobject("adodb.recordset")

sql="select*from tablename where data=data"'第二个del为你想要查询的数据,也可为多个，用“，”号分开

rs.open sql,conn,1,1

if rs.eof and rs.bof then

response.write "数据不存在"

else

rs.delete

response.write rs("data")'如果有多个相同的数据，这可用for ……next 循环语句

end if

%>

数据显示：

<%

set rs=server.createobject("adodb.recordset")

sql="select*from tablename"

rs.open sql,conn,1,1

if rs.eof and rs.bof then

response.write "数据库中没有数据"

else

while not rs.eof

response.write rs("data1")

response.write rs("data2")

response.write rs("data3")

……

response.write rs("datan")

rs.movenext

wend

end if%>