通過ASP與ACCESS數據庫建立（lì）連接（附（fù）源碼）(3)
（三）顯示/查看數據庫記錄：
<%
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)
%>
建立（lì）SQL查詢語句，表示從"客戶"表（biǎo）中查詢所有記錄，Order By 時間（jiān） DESC表示（shì）"按時間降序排序，"這樣（yàng）最後添加的信息（xī）再最上麵顯示（shì）。下麵一句（jù）執行（háng）SQL查詢並將結（jié）果返回給Recordset對象CustomerList。
<html>
<body>
<FONT SIZE="5"><center>數據庫記錄</center></FONT>
<CENTER>
<TABLE BORDER=1>
<tr>
<td>編號</td>
<td>公司名稱</td>
<td>聯絡人（rén）姓（xìng）名</td>
<td>所（suǒ）在城市</td>
<td>電話（huà）號（hào）碼</td>
</tr>
<% DO WHILE NOT CustomerList.EOF %>
檢測記錄是否到了最（zuì）後一條。EOF表示End of File。
<TR>
<TD><% =CustomerList("客戶編號（hào）") %></TD>
<TD><% =CustomerList("公司名稱") %></TD>
<TD><% =CustomerList("聯絡人姓名") %></TD>
<TD><% =CustomerList("所在城市") %></TD>
<TD><% =CustomerList("電話號碼") %></TD>
</TR>
<% =CustomerList("客戶編號") %>可（kě）以說是Response.Write方（fāng）法（fǎ）的簡寫。將"客戶編號"字段內的數據寫入TD標簽間。
<% CustomerList.movenext
loop
%>
如果（guǒ）還沒有到最（zuì）後一條則指針移動到下一條。用Do While ... Loop循環逐一取（qǔ）得所有的記錄。
</TABLE>
</CENTER>
<center>
<input type="button" value="添加數據">
</center>
</BODY>
</HTML>
缺陷：僅僅實現了最基本的功能（néng）。先不說其它功能，僅就（jiù）數據的添加和查看功能來看（kàn），比較完美的還應該加入“分頁功能”。否則數據大到一定程度顯示全部數據基本（běn）上是不可能的。
本期至此全部完畢。
關鍵詞：ASP,ACCESS,數據庫
閱（yuè）讀本（běn）文（wén）後您有（yǒu）什麽感想? 已有 人給出評價!
- 1
- 1
- 1
- 1
- 1
- 1
