不用數據源打開數據庫（DSNless connection)

2019-11-18 22:39:59

字體：大中小

來源：轉載

供稿：網友

每一個需要聯結數據庫的程序，首先必須在服務器上打開它。這里有許多的辦法！

使用系統數據源（DSN）
這個就必須在服務器上設置。這是數據訪問最好最快的方法。因為它只需在服務器上認證一下就行了，不需要聯結。

使用文件數據源
這不是一個值得推薦的方法。因為這樣的話，所有的用戶都被限制了！根本不適用于網絡。

不需要DSN的聯結
這種方法就不需要在服務器設置任何的東東，只要這個數據庫存在就行！當然你也得有訪問密碼。
這是一個沒有辦法的辦法，因為在服務器上沒有DSN設置，而且速度也沒有設置DSN快，因為每次都必須和服務器聯結一次

微軟有關于這方面的文章在
http://support.microsoft.com/support/kb/articles/q193/3/32.asp
在這里所有的DSNless聯結代碼。我們在這里只說一小部分，如果覺得我們說的不清楚就到那兒去看英文版吧！
哈哈。

DSNless聯結需你知道數據庫文件的名字(I.e. File based databases like access, Paradox, FoxPRo, etc.)或者數據庫的服務器地址（SQL Server就是這樣的）。還必須有打開這個數據庫的權限，比如密碼和用戶名。有了這些你就可以打開這個數據庫了！嘿嘿！

不過你要注意，如果你是用的Access數據庫你就必須知道它的絕對路徑，就像"C:/thatserver/account17/nwind.mdb"一樣。不過Sever.MapPath方法能夠將相對路徑轉為絕對路徑。我們就不用擔心了！

下面是一個例子例用了DSNless，用它來訪問名叫nwind.mdb的Access的數據庫。文件名為nwind.asp

<HTML><HEAD>
<TITLE>nwind.asp</TITLE>
<body bgcolor="#FFFFFF"></HEAD>
<%
accessdb="nwind.mdb"
myDSN="DRIVER={Microsoft Access Driver (*.mdb)};"
myDSN=myDSN & "DBQ=" & server.mappath(accessdb)
MySQL="select * from customers"

call query2table(mySQL,myDSN)
%>

</BODY>
</HTML>

下面的例子是使用DSN來訪問SQL Server,文件名為sqldsn.asp

<HTML><HEAD>
<TITLE>sqldsn.asp</TITLE>
<body bgcolor="#FFFFFF"></HEAD>
<%
accessdb="nwind.mdb"
myDSN="DSN=student;uid=student;pwd=magic"
mySQL="select * from publishers where state='NY'"

call query2table(mySQL,myDSN)
%>

</BODY>
</HTML>
下面的例子是用DSNless來訪問SQL Server數據庫的方法。

<HTML><HEAD>
<TITLE>sqlDSNless.asp</TITLE>
<body bgcolor="#FFFFFF"></HEAD>
<%

mydb="PROVIDER=MSDASQL;DRIVER={SQL Server};"
mydb=mydb & "SERVER=sql2.datareturn.com;DATABASE=;"
mydb=mydb & "UID=student;PWD=magic;"

mySQL="select * from publishers where state='NY'"

call query2table(mySQL,mydb)
%>

</BODY>
</HTML>
包含文件lib_dbtable.asp是以下的內容：

<%
sub query2table(inputquery, inputDSN)
dim conntemp, rstemp
set conntemp=server.createobject("adodb.connection")
conntemp.open inputDSN
set rstemp=conntemp.execute(inputquery)
howmanyfields=rstemp.fields.count -1%>
<table border=1><tr>
<% 'Put Headings On The Table of Field Names
for I=0 to howmanyfields %>
<td><b><%=rstemp(I).name%></B></TD>
<% next %>
</tr>
<% ' Now lets grab all the records
do while not rstemp.eof %>
<tr>
<% for I = 0 to howmanyfields
thisvalue=rstemp(I)
If isnull(thisvalue) then
thisvalue=" "
end if%>
<td valign=top><%=thisvalue%></td>
<% next %>
</tr>
<%rstemp.movenext
loop%>
</table>
<%
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
end sub%>
大家看明白了嗎？嘿嘿，不清楚，那就在到論壇中問問各位大蝦吧！

文章來自http://www.aspcn.com ASP中華網如要轉載請注明出處，謝謝

上一篇：Recordset對象方法詳解

下一篇：處理二進制數據