您的位置：首页 → 网页设计 → ASP实例 → 通过ASP与ACCESS数据库建立连接（附源码）3

通过ASP与ACCESS数据库建立连接（附源码）3

时间：2004/11/7 2:51:00来源：本站整理作者：蓝点我要评论(0)

（三）显示/查看数据库记录：



<%

set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")

DBPath = Server.MapPath("customer.mdb")

dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath



建立与数据库的连接，与上同。



SQL="select * from 客户 Order By 时间 DESC"

SET CustomerList=dbconnection.EXECUTE(SQL)

%>



建立SQL查询语句，表示从"客户"表中查询所有记录，Order By 时间 DESC表示"按时间降序排序，"这样最后添加的信息再最上面显示。下面一句执行SQL查询并将结果返回给Recordset对象CustomerList。







数据库记录





















<% DO WHILE NOT CustomerList.EOF %>



检测记录是否到了最后一条。EOF表示End of File。



















<% =CustomerList("客户编号") %>可以说是Response.Write方法的简写。将"客户编号"字段内的数据写入TD标签间。



<% CustomerList.movenext

loop

%>



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

编号	公司名称	联络人姓名	所在城市	电话号码
<% =CustomerList("客户编号") %>	<% =CustomerList("公司名称") %>	<% =CustomerList("联络人姓名") %>	<% =CustomerList("所在城市") %>	<% =CustomerList("电话号码") %>

缺陷：仅仅实现了最基本的功能。先不说其它功能，仅就数据的添加和查看功能来看，比较完美的还应该加入“分页功能”。否则数据大到一定程度显示全部数据基本上是不可能的。

本期至此全部完毕。

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论