首先，数据库连接。以下语句为示例语句，请根据实际情况修改
$conn = @new COM(”ADODB.Connection”) or die (”ADO Connection faild.”);
$connstr = “DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=” . realpath(”data.mdb”);
$conn->Open($connstr);
数据查询
$rs = @new COM(”ADODB.RecordSet”);
$rs->Open(”select * from user”,$conn,1,3);
/* 循环读取数据 */
while(!$rs->eof){
echo $rs->Fields["username"];
echo “<br/>”;
$rs->Movenext();
}
数据更新
$rs = @new COM(”ADODB.RecordSet”);
$username = “xefan.cn”;
$password = www.xefan.cn;
$rs->Open(”update user set username=’$username’,password=’$password’ where id=15″,$conn,1,3);
数据插入
$rs = @new COM(”ADODB.RecordSet”);
$username = “xefan.cn”;
$password = www.xefan.cn;
$rs->Open(”insert into user (username,password) values (’$username’,'$password’)”,$conn,1,1);
数据删除
$rs = @new COM(”ADODB.RecordSet”);
$rs->Open(”delete from user where id=13″,$conn,1,1);
关闭连接
$conn->close();
首先连接数据库，方法：http://www.xefan.cn/archives/65914.html。
ID = 3
sql = “delete from test where ID=”&ID
Conn.Execute(sql)
首先连接数据库，方法：http://www.xefan.cn/archives/65914.html。
法一：
ID = “4″
nm= “www.xefan.cn”
pw = “xefan.cn”
sql=”update test set password=’”&pw&”‘,username=’”&nm&”‘ where ID=”&ID&” ”
conn.Execute(sql)
法二：
ID = “4″
nm= “www.xefan.cn”
pw = “xefan.cn”
sql = “select * from 44 where ID=”&ID&”"
rs.Open sql,conn,1,3
rs(”password”)=pw
rs(”username”)=nm
rs.update
首先连接数据库，方法：http://www.xefan.cn/archives/65914.html。往数据库的test表中字段名为username、password插入数据。
法一：
username = “www.xefan.cn”
password = “xefan.cn”
sql=”select * from test”
rs.open sql,conn,1,3
rs.addnew
rs(”username”)=username
rs(”password”)=password
rs.update
rs.close
法二：
username = “www.xefan.cn”
password = “xefan.cn”
sql=”insert into test (username,password) values (’”&username&”‘,’”&password&”‘)”
conn.execute(sql)
首先连接数据库，方法：http://www.xefan.cn/archives/65914.html。从数据库的test表中读取字段名为username、password的数据。
sql = “select * from test”
rs.Open sql,conn,1,1
Do While Not rs.Eof ‘循环输出
Response.Write “<p>账号：”& rs(”username”) &” 密码：”& rs(”password”) &” </p>”
rs.MoveNext
Loop
连接数据库
法一：
Set conn = Server.CreateObject(”ADODB.Connection”)
conn.Open “driver={Microsoft Access Driver (*.mdb)};dbq=”&Server.MapPath(”data.mdb此为数据库名“)
法二：
dim db,conn,myconn
db=”data.mdb此为数据库名”
Set Conn = Server.CreateObject(”ADODB.Connection”)
myconn=”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & Server.MapPath(db)
Conn.Open MyConn
关闭连接
conn.Close
Set conn = Nothing
