标题:不用DSN,如何访问数据库?
只看楼主
tml327
Rank: 1
等 级:新手上路
帖 子:510
专家分:0
注 册:2007-10-30
 问题点数:0 回复次数:3 
不用DSN,如何访问数据库?

任何一个要访问数据库的ASP脚本都必须首先在服务器上打开数据库,
我们有两种方法:
.通过DSN建立连接
.不用DSN建立连接

一个DSN连接需要服务器的系统管理员在服务器上用控制面板中的ODBC
工具设置一个DSN,或者使用一个第三方的服务器组件,让你的ASP脚本
在需要时通过修改注册表建立DSN.我将提供一个DSN建立组件供下载.

一个DSN连接通常需要的参数有:DSN名,用户名,口令,例如我们用用户名
"student",口令"magic",通过DSN"student"建立连接:

1. set conntemp=server.createobject("adodb.connection")
2. conntemp.open "DSN=Student; uid=student; pwd=magic"
3. set rstemp=conntemp.execute("select * from authors")

如果我们没有DSN,该怎么做呢?
但是我们知道文件名(比如,Access,Paradox,FoxPro的数据库)或者数
据源名(例如,SQLserver的数据库).这里有一个方法,我们不要DSN就
可以访问数据库.注意,你必须知道实际的文件路径!
比如: "C:\thatserver\account17\nwind.mdb".
幸好,方法 server.mappath 可以返回服务器上的地址.

1. set conntemp=server.createobject("adodb.connection")
2. cnpath="DBQ=" & server.mappath("yourtable.mdb")
3. conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
4. set rstemp=conntemp.execute("select * from authors")

<HTML><HEAD>
<TITLE>nwind.asp</TITLE>
<body bgcolor="#FFFFFF"></HEAD>
<%
set conntemp=server.createobject("adodb.connection")

' 不用DSN建立连接
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("nwind.mdb")
conntemp.Open DSNtemp
' 不用DSN建立连接

set rstemp=conntemp.execute("select * from customers where country='germany'")
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%>
<td valign=top><%=rstemp(i)%></td>
<% next %>
</tr>
<% rstemp.movenext
loop
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing%>
</table>
</BODY>
</HTML>

下面是典型的DRIVER参数值:

{Microsoft Access Driver (*.mdb)}
driver=SQL Server; server=127.0.0.1
^ SQLServer的IP地址

搜索更多相关主题的帖子: DSN 数据库 访问 
2007-11-17 15:18
kira007
Rank: 2
等 级:论坛游民
帖 子:294
专家分:27
注 册:2007-6-28
得分:0 

<%
dim conn
dim connstr
dim db
db="data/###gz###office.asa" '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

sub CloseConn()
conn.close
set conn=nothing
end sub

%>


生活的理想,就是为了理想的生活。
2007-11-17 15:38
tml327
Rank: 1
等 级:新手上路
帖 子:510
专家分:0
注 册:2007-10-30
得分:0 
当然不是完全脱离!

轻狂如我,心伤谁知!
2007-11-17 16:32
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
得分:0 

不用DSN可以直接使用数据库驱动程序直接连接数据库。

[此贴子已经被作者于2007-11-18 15:14:36编辑过]

2007-11-18 15:14



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-186738-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.103423 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved