access asp 练习一
来源:百度文库 编辑:神马文学网 时间:2024/05/15 14:07:18
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)
%>
数据库记录
===================
所出现问题解决方法:
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我没用过!
===============================================
练习一:
建立一简单数据库的添加、显示、查询功能实现 注:[采用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)
%>
公司名 | 电话 | 传真 | 类别 | 联系人 | 备注 |
<% =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我没用过!
===============================================