|
1、
<html>
<head>
<title>数据库的基本操作</title>
</head>
<body>
<%
'连接数据库，建立Connection对象，address.mdb下面将建立
Dim db, strConn
strConn="DBQ=" & Server.Mappath("address.mdb")
& ";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
db.Open strConn
'查询记录
'以下建立Recordset对象实例rs
Dim strSql,rs '定义变量
strSql="select * from users"
Set rs=db.Execute(strSql)
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')"
db.Execute(strSql)
'更新记录，将李玫的电话号码改为66666666
strSql="update users set tel='66666666' where name='李玫'"
db.Execute(strSql)
'删除记录，删除李玫的记录
strSql="delete from users where name='李玫'"
db.Execute(strSql)
%>
</body>
</html>
2、
<%
'连接数据库，建立Connection对象，address.mdb下面将建立
Dim db, strConn
strConn="DBQ=" & Server.Mappath("address.mdb")
& ";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
db.Open strConn
'建立数据表
Dim strSql
StrSql=" Create Table temp1(Name char(100),age Int,birthday
Date,intro Memo)"
db.Execute(strSql)
'修改数据表
strSql=" Alter Table temp1 Add Column email char(100)"
'添加字段
db.Execute(strSql)
strSql=" Alter Table temp1 Drop Column intro" '删除字段
db.Execute(strSql)
'删除数据表
strSql="Drop Table temp1"
db.Execute(strSql)
%>
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
On Error Resume Next '如果发生错误，跳过执行下一句
db.BeginTrans
'删除记录，删除李玫的记录
strSql="delete from users where name='李玫'"
db.Execute(strSql)
'添加记录
strSql="insert into users(name,tel,email) values('李玫','88888888','limei@263.net')"
db.Execute(strSql)
If db.Errors.Count=0 Then
Db.CommitTrans
Else
Db.RollbackTrans
End If
%>
</body>
</html>
|
教学前言
相关的基础知识
Web的基本概念及相关知识