通過(guò)ASP與ACCESS數(shù)據(jù)庫(kù)建立連接（附源碼）(3)
（三）顯示/查看數(shù)據(jù)庫(kù)記錄：
<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
建立與數(shù)據(jù)庫(kù)的連接，與上同。
SQL="select * from 客戶 Order By 時(shí)間 DESC"
SET CustomerList=dbconnection.EXECUTE(SQL)
%>
建立SQL查詢語(yǔ)句，表示從"客戶"表中查詢所有記錄，Order By 時(shí)間 DESC表示"按時(shí)間降序排序，"這樣最后添加的信息再最上面顯示。下面一句執(zhí)行SQL查詢并將結(jié)果返回給Recordset對(duì)象CustomerList。
<html>
<body>
<FONT SIZE="5"><center>數(shù)據(jù)庫(kù)記錄</center></FONT>
<CENTER>
<TABLE BORDER=1>
<tr>
<td>編號(hào)</td>
<td>公司名稱</td>
<td>聯(lián)絡(luò)人姓名</td>
<td>所在城市</td>
<td>電話號(hào)碼</td>
</tr>
<% DO WHILE NOT CustomerList.EOF %>
檢測(cè)記錄是否到了最后一條。EOF表示End of File。
<TR>
<TD><% =CustomerList("客戶編號(hào)") %></TD>
<TD><% =CustomerList("公司名稱") %></TD>
<TD><% =CustomerList("聯(lián)絡(luò)人姓名") %></TD>
<TD><% =CustomerList("所在城市") %></TD>
<TD><% =CustomerList("電話號(hào)碼") %></TD>
</TR>
<% =CustomerList("客戶編號(hào)") %>可以說(shuō)是Response.Write方法的簡(jiǎn)寫(xiě)。將"客戶編號(hào)"字段內(nèi)的數(shù)據(jù)寫(xiě)入TD標(biāo)簽間。
<% CustomerList.movenext
loop
%>
如果還沒(méi)有到最后一條則指針移動(dòng)到下一條。用Do While ... Loop循環(huán)逐一取得所有的記錄。
</TABLE>
</CENTER>
<center>
<input type="button" value="添加數(shù)據(jù)">
</center>
</BODY>
</HTML>
缺陷：僅僅實(shí)現(xiàn)了最基本的功能。先不說(shuō)其它功能，僅就數(shù)據(jù)的添加和查看功能來(lái)看，比較完美的還應(yīng)該加入“分頁(yè)功能”。否則數(shù)據(jù)大到一定程度顯示全部數(shù)據(jù)基本上是不可能的。
本期至此全部完畢。
關(guān)鍵詞：ASP,ACCESS,數(shù)據(jù)庫(kù)
閱讀本文后您有什么感想? 已有 人給出評(píng)價(jià)!
- 1
- 1
- 1
- 1
- 1
- 1
