项目总结--ado基础-CSDN博客

一、 Asp页面访问数据库步骤
1、创建一个到数据库的ADO
2、打开数据库连接
3、创建ADO记录集
4、从记录集提取需要的数据
5、关闭记录集
6、关闭连接

二、创建一个ODBC数据库连接
现有一个名称为“Northwind”的ODBC数据库，可以使用以下asp代码连接到此数据库：
<%
Set conn=Server.CreateObject(“ADODB.Connection”)
conn.open “Northwind”
%>
三、创建ADO记录集
<%
Set conn =Server.CreateObject(“ADODB.Connection”)
conn.open “Northwind”
Set rs =Server.CreateObject(“ADODB.recordset”)
rs.open “select * from customers” ,conn ,1,1
%>
四、ado查询（从记录集中提取数据）
<%
Set conn =Server.CreateObject(“ADODB.Connection”)
conn.open “Northwind”
Set rs =Server.CreateObject(“ADODB.recordset”)
rs.open “select * from customers” ,conn ,1,1
For each x in rs.fields
Response.write(x.name)
Response.write(“=”)
Response.write(x.value)
Next
%>
五、ado查询（记录集的显示）
<%
Set conn =Server.CreateObject(“ADODB.Connection”)
conn.open “Northwind”
Set rs =Server.CreateObject(“ADODB.recordset”)
rs.open “select * from customers” ,conn ,1,1
%>
<table border=”1” width=”100%”>
<tr>
<% For each x in rs.fields
Response.write(“<th)” &x.name & “</th>”)
next
%>
</tr>
<do util rs.eof %>
<tr>
<%for each x in rs.fields%>
<td><%response.write(x.value)%></td>
<%next
rs.movenext%>
</tr>
<%loop
    rs.close
conn.close
%>
</table>
六、ado
    表单记录：
<form method=”post” action=” demo_add.asp”>
姓：<input type=”text” name=”fname”/>
<br/>
名：<input type=”text” name=”lname”/>
<br/>
<input type=”submit” value=”submit”/>
</form>

demo_add.asp中代码：
<html>
<body>
<%
Set conn =Server.CreateObject(“ADODB.Connection”)
conn.open “Northwind”
Set rs=Server.CreateObject(“ADODB.RecordSet”)

sql=”insert into customers(fname,lname)”
sql=sql & “values”
sql=sql&”(‘ “ &request.form(“fname”) &” ’, ”
sql =sql&” ‘ ” & request.form(“lname”) &” ‘)”

on error resume next
conn.execute sql,recaffected
if err<>0 then
  response.write (“No update permission!”)
else
  response.write(“record added”)
end if
conn.close
%>
</body>
</html>

七、更新记录
利用sql的update语句来更新记录集:demo_update.asp
<html>
<body>
<h2>Update Record</h2>
<%
Set conn =Server.CreateObject(“ADODB.Connection”)
conn.open “Northwind”
//Set rs=Server.CreateObject(“ADODB.RecordSet”)

cid =request.form(“customerid”)

if request.form(“fname”)=”” then
  set rs=Server.CreateObject(“ADODB.Recordset”)
  rs.open “select * from customers where customerid=’ “ &cid&” ’ ” ,conn
  %>
<form method=”post” action=”demo_update.asp”>
<table>
  <%for each x in rs.fields%>
<tr>
  <td><%=x.name%></td>
  <td><input name=”<%=x.name%>” value=”<%=x.value%>”</td>
  <%next%>
</tr>
</table>
<br/>
<input type=””submit” value=”Update record”/>
</form>

<%
Else
sql=”update customers set”
sql=sql & “fname=’” & request.form(“fname”)&”’,”
sql="lname=' " & Request.Form("lname") & " ' "
sql =sql&” where customerid =’”&cid&”’”