99久久全国免费久久爱_ 用ASP連接讀寫(xiě)ACCESS數據庫實(shí)例

用ASP連接讀寫(xiě)ACCESS數據庫實(shí)例- -

（一）數據庫的選擇：

有許多的數據庫你可以選擇，SQL SERVER、ACCESS(*.mdb)、EXCEL(*.xls)、FOXPRO(*.dbf)甚至普通的文本文件(*.txt)都可以達到存儲數據的功能。那么到底選擇什么數據庫最合適呢？其中SQL SERVER是服務(wù)器級的，足以應付每天上萬(wàn)次的訪(fǎng)問(wèn)量。對于非服務(wù)器級的數據庫建議使用ACCESS97。

因為：
（1）只要安裝了PWS或IIS4肯定有ACCESS的ODBC驅動(dòng)，即你的系統肯定支持ACCESS數據庫的存取。
（2）ACCESS支持的SQL指令非常齊全。
（3）ACCESS ODBC驅動(dòng)程序的效率非常高。雖然它不是服務(wù)器級的數據庫，但是作為中小型企業(yè)內部網(wǎng)的數據庫支持還是綽綽有余的。
（4）ACCESS97在OFFICE97中就有，非常方便得到和使用。

本文就以ACCESS數據庫為準介紹基于WEB的數據庫存取方法。

（二）例子：我們建立一個(gè)“客戶(hù)”數據庫，需要保存如下的客戶(hù)資料：客戶(hù)名稱(chēng)、聯(lián)絡(luò )人姓名、所在城市、電話(huà)號碼。

（1）首先建立ACCESS數據庫customer.mdb(今后有用的)。
建立如下字段：客戶(hù)名稱(chēng)、聯(lián)絡(luò )人姓名、所在城市、電話(huà)號碼、客戶(hù)編號、時(shí)間。將表保存為"客戶(hù)"(今后有用的,===>看看圖)。注意：建立字段時(shí)多作了2個(gè)(客戶(hù)編號、時(shí)間)，因為在今后排序時(shí)要用到它們。建議今后做數據庫時(shí)最好都加上這2項，不會(huì )沒(méi)用的。此外，在保存表時(shí)ACCESS會(huì )詢(xún)問(wèn)是否建立一個(gè)住關(guān)鍵字，我們不需要它所以不必建立。還有：時(shí)間字段的"默認值"設成"now()"，即去系統當時(shí)的時(shí)間。同時(shí)將索引項設成"有(允許重復)"，含義：WEB上極有可能同時(shí)存取數據，所以允許重復，索引設成"有"可以加快排序速度。===>看看圖

（2）建立遞交表單add.htm：

源代碼如下：

<html>
<head>
<title>添加數據庫記錄</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
<p align="center"><font size="5">添加數據庫記錄</font></p>
<form method="post" action="adddatabase.asp">
<div align="center">
<table width="46%" border="0">
<tr>
<td width="28%">
<div align="right">公司名稱(chēng)： </div>
</td>
<td width="72%">
<input type="text" name="CompanyName">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">聯(lián)絡(luò )人姓名： </div>
</td>
<td width="72%">
<input type="text" name="CName">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">所在城市： </div>
</td>
<td width="72%">
<input type="text" name="City">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">電話(huà)號碼：</div>
</td>
<td width="72%">
<input type="text" name="Tel">
</td>
</tr>
<tr>
<td width="28%">
<div align="right"> </div>
</td>
<td width="72%">
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="reset" value="Reset">
</td>
</tr>
</table>
</div>
</form>
</body>
</html>

這與普通的HTML沒(méi)有任何區別，關(guān)鍵部分已經(jīng)用紅色標記了。遞交方法用POST，遞交后處理的程序是adddatabase.asp（下一步就重點(diǎn)討論它）。

（3）關(guān)鍵部分：建立與數據庫的聯(lián)系并將表單中收集到的信息添加到ACCESS數據庫中。

ASP代碼放在〈%和%>之間。

adddatabase.asp程序內容:

<%
CompanyName = Request("CompanyName")
CName = Request("CName")
City = Request("City")
Tel = Request("Tel")
%>
以上，首先取得表單中填寫(xiě)的數據，使用ASP的Request對象非常容易可以實(shí)現數據的收集。雙引號中的就是上個(gè)文件中建立的各個(gè)輸入框中的名字紅色部分（NAME=）。所以今后為每個(gè)輸入框起名字是個(gè)好習慣，盡管有時(shí)候并不一定用得到。這樣取得的數據就保存在等號坐側的變量中了。

If CompanyName = "" Or CName = "" Or City = "" Or Tel = "" Then
Response.Write "<html><body><center><font size=5>請將資料填寫(xiě)完整。</font></center></body></html>"
'Response.Redirect "error.htm"
Response.End
End If

這里是檢測各個(gè)項目是否輸入了東西，如果為空則不往下繼續執行，顯示錯誤信息。注意：你可以使用兩種方法。我都列出了。
方法一：使用Response.Write方法寫(xiě)一個(gè)出錯頁(yè)面，類(lèi)似于java scripts的document.write寫(xiě)法，只是ASP使用Response.write罷了。
方法二：使用Response.Redirect方法導向出錯頁(yè)面error.htm。我在方法一的代碼前加上單引號表示注釋。（'ASP中表示注釋用單引號'）。

<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>

程序解釋:
（1）建立Connection對象：dbconnection，建立一個(gè)連接(Connection)是數據庫存取的開(kāi)始。我們使用ASP的內建對象方法Server.Createobject建立與數據庫的連接。ADODB是ASP的數據庫存取組件，不必擔心只要有ASP就有它了，是內置的。
（2）使用dbconnection.open方法打開(kāi)數據庫customer.mdb。driver參數語(yǔ)法： driver={Microsoft Access Driver (*.mdb)}必須這么寫(xiě)。告訴系統使用ACCESS ODBC驅動(dòng)處理。dbq參數用來(lái)指定打開(kāi)的數據庫文件，它必須是完整的路徑。例如"c:\inetpub\wwwroot\customer\customer.mdb"，我們使用Server.MapPath的方法取得數據庫的完整路徑。

<%
Set rs = Server.CreateObject("ADODB.Recordset")
%>

建立Recordset對象rs。Connection僅僅是建立了與數據庫間的連接，要存取數據還應該再建立Recordset對象。

rs.Open "客戶(hù)", dbconnection, adOpenDynamic, 3

打開(kāi)數據庫中的表"客戶(hù)"（客戶(hù)是表名）。語(yǔ)法：

rs.open 數據表名或SQL指令，已經(jīng)建立的Connection對象（這里是dbconnection）, 鎖定類(lèi)型

<%
rs.AddNew
rs("公司名稱(chēng)") = CompanyName
rs("聯(lián)絡(luò )人姓名") = CName
rs("所在城市") = City
rs("電話(huà)號碼") = Tel
rs.Update
%>

用AddNew向數據庫請求添加數據。最后用Update寫(xiě)入。注意：等號右側的變量保存著(zhù)用Request取得的表單數據。雙引號內的就是數據庫的字段，應該與數據庫的一致啊。否則會(huì )出錯的。這樣變量?jì)鹊臄祿蛯?xiě)入了數據庫對應的字段內了。

Response.Write "<html><body><center><font size=5>祝賀，您的數據已經(jīng)添加進(jìn)數據庫了！<p>"
Response.Write "<a href='viewdatabase.asp'>查看數據</a>"
Response.Write "</font></center></body></html>"

'寫(xiě)入成功后顯示祝賀信息并建立查看數據庫記錄的連接。

%>

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

<%
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

'建立與數據庫的連接，與上同。

SQL="select * from 客戶(hù) Order By 時(shí)間 DESC"
SET CustomerList=dbconnection.EXECUTE(SQL)
%>

建立SQL查詢(xún)語(yǔ)句，表示從"客戶(hù)"表中查詢(xún)所有記錄，Order By 時(shí)間 DESC表示"按時(shí)間降序排序，"這樣最后添加的信息再最上面顯示。下面一句執行SQL查詢(xún)并將結果返回給Recordset對象CustomerList。

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

<td>編號</td>
<td>公司名稱(chēng)</td>
<td>聯(lián)絡(luò )人姓名</td>
<td>所在城市</td>
<td>電話(huà)號碼</td>
</tr>
<% DO WHILE NOT CustomerList.EOF %>

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

<TR>
<TD><% =CustomerList("客戶(hù)編號") %></TD>
<TD><% =CustomerList("公司名稱(chēng)") %></TD>
<TD><% =CustomerList("聯(lián)絡(luò )人姓名") %></TD>
<TD><% =CustomerList("所在城市") %></TD>
<TD><% =CustomerList("電話(huà)號碼") %></TD>
</TR>

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

<%

CustomerList.movenext

loop

%>

如果還沒(méi)有到最后一條則指針移動(dòng)到下一條。用Do While ... Loop循環(huán)逐一取得所有的記錄。

</TABLE>
</CENTER>

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

本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請點(diǎn)擊舉報。

欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

用ASP連接讀寫(xiě)ACCESS數據庫實(shí)例- -