程式師世界 >> 數據庫知識 >> Access數據庫 >> 關於Access數據庫 >> 通過ASP與ACCESS數據庫建立連接（附源碼）(3)

通過ASP與ACCESS數據庫建立連接（附源碼）(3)

編輯：關於Access數據庫

三）顯示/查看數據庫記錄：

<%
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。

<Html>
<body>
<FONT SIZE="5"><center>數據庫記錄</center></FONT>
<CENTER>
<TABLE BORDER=1>
<tr>

<td>編號</td>
<td>公司名稱</td>
<td>聯絡人姓名</td>
<td>所在城市</td>
<td>電話號碼</td>
</tr>
<% DO WHILE NOT CustomerList.EOF %>

檢測記錄是否到了最後一條。EOF表示End of File。

<TR>
<TD><% =CustomerList("客戶編號") %></TD>
<TD><% =CustomerList("公司名稱") %></TD>
<TD><% =CustomerList("聯絡人姓名") %></TD>
<TD><% =CustomerList("所在城市") %></TD>
<TD><% =CustomerList("電話號碼") %></TD>
</TR>

<% =CustomerList("客戶編號") %>可以說是Response.Write方法的簡寫。將"客戶編號"字段內的數據寫入TD標簽間。

<% CustomerList.movenext
loop
%>

如果還沒有到最後一條則指針移動到下一條。用Do While ... Loop循環逐一取得所有的記錄。

</TABLE>
</CENTER>

<center>
<input type="button" onclick="Javascript:location.href='add.htm'" value="添加數據">
</center>
</BODY>
</Html>

缺陷：僅僅實現了最基本的功能。先不說其它功能，僅就數據的添加和查看功能來看，比較完美的還應該加入“分頁功能”。否則數據大到一定程度顯示全部數據基本上是不可能的。
本期至此全部完畢。