通過ASP與ACCESS資料庫建立串連(附源碼)(3)

來源:互聯網
上載者:User

三)顯示/查看資料庫記錄:

<%
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" value="添加資料">
</center>
</BODY>
</HTML>

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



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。