通过ASP与ACCESS数据库建立连接（附源码）(3)
（三）显示【xiǎn shì】/查看数【chá kàn shù】据库记✍录：
<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
建立【jiàn lì】与🧣数据库【shù jù kù】的连接【de lián jiē】🐥，与上同。
SQL="select * from 客户【kè hù】⛏ Order By 时间【shí jiān】🐃 DESC"
SET CustomerList=dbconnection.EXECUTE(SQL)
%>
建立【jiàn lì】🤺SQL查询语【chá xún yǔ】♈句⛴，表示从"客户【kè hù】⛏"表中查【biǎo zhōng chá】询所有记录，Order By 时间【shí jiān】🐃 DESC表示"按时间【shí jiān】🐃降序【jiàng xù】📓排序【pái xù】📓，"这样最后添加的信息再最上面显示【xiǎn shì】。下面一句⛴执行SQL查询并💴将结果【jiāng jié guǒ】返回给Recordset对象CustomerList。
<html>
<body>
<FONT SIZE="5"><center>数据库【shù jù kù】记✍录</center></FONT>
<CENTER>
<TABLE BORDER=1>
<tr>
<td>编号🍬</td>
<td>公司名【gōng sī míng】👘称🗑</td>
<td>联络人【lián luò rén】姓名🥡</td>
<td>所在城🕉市【shì】🧀</td>
<td>电话号【diàn huà hào】🤷码【mǎ】🆎</td>
</tr>
<% DO WHILE NOT CustomerList.EOF %>
检测记【jiǎn cè jì】录是【shì】否🐶到了最💅后一条。EOF表示End of File。
<TR>
<TD><% =CustomerList("客户编【kè hù biān】➗号🍬") %></TD>
<TD><% =CustomerList("公司名【gōng sī míng】👘称🗑") %></TD>
<TD><% =CustomerList("联络人【lián luò rén】姓名🥡") %></TD>
<TD><% =CustomerList("所在城🕉市【shì】🧀") %></TD>
<TD><% =CustomerList("电话号【diàn huà hào】🤷码【mǎ】🆎") %></TD>
</TR>
<% =CustomerList("客户编【kè hù biān】➗号🍬") %>可以说【kě yǐ shuō】是【shì】Response.Write方法的简写【jiǎn xiě】。将"客户编【kè hù biān】➗号🍬"字段内的数据写入TD标签间🙃。
<% CustomerList.movenext
loop
%>
如果还【rú guǒ hái】😛没有到最后一【zuì hòu yī】条则指🐵针移动🏀到下一条。用😋Do While ... Loop循环逐🏀一取得所有的记录。
</TABLE>
</CENTER>
<center>
<input type="button" value="添加数【tiān jiā shù】✋据">
</center>
</BODY>
</HTML>
缺陷：仅仅实【jǐn jǐn shí】现了最✔基本的功能【gōng néng】。先不说其它功👦能【néng】，仅就数据的添【jù de tiān】加和查看功能【gōng néng】来看，比较完【bǐ jiào wán】美的还应该加入“分页功【fèn yè gōng】能【néng】”。否则数【fǒu zé shù】🛢据大到【jù dà dào】一定程度显示【xiǎn shì】全部数【quán bù shù】据基本上是【shì】不可能【néng】的。
本期至此全部🚈完毕【wán bì】🚗。
关键词：ASP,ACCESS,数据库
阅读本文后您有什么感想? 已有 人给出评价!
- 1
- 1
- 1
- 1
- 1
- 1
