《WEB程序设计与应用》网络教学平台

<html>
<head>
<title>利用Command对象进行数据库的基本操作</title>
</head>
<body>
<%
'建立Connection对象
Dim db, strConn
strConn="DBQ=" & Server.Mappath("address.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
db.Open strConn
'建立Command对象
Dim cmd
Set cmd= Server.CreateObject("ADODB.Command")
cmd.ActiveConnection=db
'查询记录
Dim rs,strSql
strSql="Select * From users"
cmd.CommandText= strSql
Set rs=cmd.Execute
Do While Not rs.Eof
Response.Write rs("name") & "<br>"
rs.Movenext
Loop
'添加记录
strSql ="insert into users(name,tel,email) values('李玫','88888888','limei@263.net')"
cmd.CommandText=strSql
cmd.Execute
'更新记录
strSql ="update users set tel='66666666' where name='李玫'"
cmd.CommandText=strSql
cmd.Execute
'删除记录，删除李玫的记录
strSql="delete from users where name='李玫'"
cmd.CommandText=strSql
cmd.Execute
db.close
set db=nothing
%>
</body>
</html>

2、

3、

<html>
<head>
<title>非参数查询</title>
</head>
<body>
<%
'建立Connection对象
Dim db, strConn
strConn="DBQ=" & Server.Mappath("address.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
db.Open strConn
'建立Command对象
Dim cmd
Set cmd= Server.CreateObject("ADODB.Command")
cmd.ActiveConnection=db
'下面建立一个参数对象prm，并将该对象加入到参数集合中。
Dim prm_name,prm_type,prm_direction,prm_size,prm_value
prm_name="input_name" '参数名称，在list2中的变量
prm_type=200 '参数类型，200表示是变长字符串
prm_direction=1 '参数方向，1表示输出
prm_size=10 '参数大小，最大字节数为10
prm_value="李玫" '要传入的参数值
Dim prm '声明一个参数对象
Set prm=cmd.CreateParameter(prm_name,prm_type,prm_direction,prm_size,prm_value)
cmd.Parameters.Append prm '将参数对象prm加入到参数集合中
'下面执行查询list2
Dim rs
cmd.CommandType=4 '指定查询信息是查询名
cmd.CommandText= "list2" '指定查询名称
Set rs=cmd.Execute
Do While Not rs.Eof
Response.Write rs("name") & "<br>"
rs.Movenext
Loop
'关闭Connection对象
db.Close
Set db=nothing
%>
</body>
</html>

~ 江西信息应用技术职业学院信息技术系制作 ~

E-Mail:lxlz2050@163.net Tel:0791-5275546