ASP基础学习：access asp 练习一

'检测记录是否到了最后一条。EOF表示End of File。
%>
<TR>
<TD><% =CustomerList("公司名") %></TD>
<TD><% =CustomerList("电话") %></TD>
<TD><% =CustomerList("传真") %></TD>
<TD><% =CustomerList("类别") %></TD>
<TD><% =CustomerList("联系人") %></TD>
<TD><% =CustomerList("备注") %></TD>
</TR>

<%
CustomerList.movenext
loop
'如果还没有到最后一条则指针移动到下一条。用Do While ... Loop循环逐一取得所有的记录。
%>
</TABLE>
</CENTER>
<center>
<input type="button" onclick="javascript:location.href='add.html' " value="添加数据">
</center>
</BODY>
</HTML>

===================

所出现问题解决方法：

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我没用过！
===============================================

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!