access asp 练习一

access+asp 练习一    
练习一：
建立一简单数据库的添加、显示、查询功能实现 注：[采用access2000+asp,数据库：customer.mdb(字段: 公司名（字符型）、电话（数据型）、传真（数据型）、类别（字符型）、联系人（字符型）、备注（字符型））]
<在winxp pro+iis5.1环境下完成测试>
页面代码如下：
---add.html----

添加数据库记录

公司名:
电话：
传真：
类别：
联系人：
备注：

---adddatabase.asp---

添加数据库记录

公司名:
电话：
传真：
类别：
联系人：
备注：

---addnewdatabase.asp---
<%
rs.AddNew
rs("公司名") = CompanyName
rs("电话") = Tel
rs("传真") =Fax
rs("类别") = Classes
rs("联系人")=Cname
rs("备注")=Backups
rs.Update
%>
---viewdatabase.asp---
<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Dbpath '建立与数据库的连接，与上同。
SQL="select * from customers Order By 公司名 DESC"
SET CustomerList=dbconnection.EXECUTE(sql)
%>


数据库记录










<% DO WHILE NOT CustomerList.EOF
'检测记录是否到了最后一条。EOF表示End of File。
%>








<%
CustomerList.movenext
loop
'如果还没有到最后一条则指针移动到下一条。用Do While ... Loop循环逐一取得所有的记录。
%>

公司名	电话	传真	类别	联系人	备注
<% =CustomerList("公司名") %>	<% =CustomerList("电话") %>	<% =CustomerList("传真") %>	<% =CustomerList("类别") %>	<% =CustomerList("联系人") %>	<% =CustomerList("备注") %>

===================
所出现问题解决方法：
1.
<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Dbpath '建立与数据库的连接，与上同。
SQL="select * from customers Order By 公司名 DESC"
SET CustomerList=dbconnection.EXECUTE(sql)
%>
1).SQL="select * from customers Order By 公司名 DESC",当中若字段名“公司名”写错，如写成“公司”，则出现如下错误提示：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
/viewdatabase.asp, 第 6 行
把字段名改正与数据库字段正确的字段名。这样可正常显示正确的信息，如在用到网路猪浏览器时，会无法显示出默认项的 add.html 页面。原因不清楚
而在Mircrosoft Internet Explorer 和MyIe 以及火狐浏览器时可以正常显示到预期结果。
2.
<%
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "customers", dbconnection, adOpenDynamic,3
%>
1).adOpenDynamic,3
当以上的这个语句缺少时，将会得到以下结果：
错误类型：
ADODB.Recordset (0x800A0CB3)
当前记录集不支持更新。这可能是提供程序的限制，也可能是选定锁定类型的限制。
/adddatabase.asp, 第 26 行
这样看来Recordset 设置值当中， “adOpenDynamic,3” 同样地不可缺少。当然这当中的“3”含义应该是：当前数据记录只读，可自由移动。换成"2"也可以，而换成“1”或者不用，将不能正常显示预期结果
会显示成如上边的错误类型：
ADODB.Recordset (0x800A0CB3)
当前记录集不支持更新
==========================================================
摘录： sql="select * from 用户 where 帐号='"&zh&"' or 姓名='"&name&"'"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
1，1是一般的查询！3，3是可以分页的！2，2我没用过！
===============================================