走投无路 数据库连接问题 未发现数据源名称并且未指定默认驱动程序

[coalmine]

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/riji/conn.asp, 第 3 行


conn.asp
<%
set conn=server.CreateObject("adodb.connection")
str="driver={microsoft access driver(*.mdb)};pwd=gkn;dbq="&server.MapPath("top.mdb")
conn.open str
%>
第三行是 conn.open str

[eafin]

Set conn = Server.CreateObject("ADODB.Connection")
str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("top.mdb")
conn.Open str

[umbrella1984]

大小写Microsoft Access Driver

[xzq686]

下面那样写就对了。
Set conn = Server.CreateObject("ADODB.Connection")
str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("top.mdb")
conn.Open connstr

[coalmine]

为什么要那么写啊
Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("top.mdb")

[cngis]

最好用Provider

[coalmine]

而且我照瞬那样写了
仍然有问题
错误类型：
Microsoft JET Database Engine (0x80004005)
找不到可安装的 ISAM。
/riji/conn.asp, 第 4 行

[zhh310]

我也是这个问题,我试了好多方法,都不管用重装系统吧.

[bzscs]

加密码了没？
Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("top.mdb")&";user id=yourname;password=yourpsw"

[blueice2002]

asp与sql server 数据库的连接
<%
'连接数据库————————————————————————————
set conn=server.createobject("adodb.connection")
Connstr="Provider=SQLOLEDB;Data Source=127.0.0.1;UID=sa;PWD=sa;DataBase=web"
'打开数据库——————————————————————————————————
conn.open connstr
'写数据查询语句————————————————————————
set rs=conn.execute("select * from asp where id>2")
'输出查询结果——————————————————————————
do until rs.eof
response.write rs("id")&"<br>"
response.write rs("name")&"<br>"
rs.movenext
loop
%>
************************************
asp与access 数据库的连接
********************************
<% dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("login.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
if err then
err.clear
end if
end if
set rs=conn.execute("select * from login_info where id>1")
do until rs.eof
response.write rs("id")&"<br>"
response.write rs("username")&"<br>"
response.write rs("password")&"<br>"
rs.Movenext
loop %>

*****************************************************
*****************************************************
<!--#include file="conn.asp"-->
<%
set rs=conn.execute("select * from login_info where id>2")
'set rs=server.createobject("adodb.recordset")
'sql="select * from login_info where id > ='1' "
'rs.open sql,conn,1,1
do until rs.eof
response.write rs("id")&"<br>"
response.write rs("username")&"<br>"
response.write rs("password")&"<br>"
rs.Movenext
loop
%>

**********************************************************
***********************************************************

连结其他数据库的方法(*.dbf,*.txt,excel,foxpro等) ----收藏
2002-10-30 18:41:05 浏览次数:145

'连结dbf文件
<%
' 建立Connection 对象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Visual FoxPro Driver};"
SourceType = "SourceType=DBF;"
DBPath = "SourceDB=" & Server.MapPath( "Dbf" )

' 调用Open 方法连接数据库
conn.Open Driver & SourceType & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
' 打开数据源，参数二为Connection对象
rs.Open "Select * From sample", conn, 2, 2
%>
'连结foxpro文件
<%
' 建立Connection 对象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Visual FoxPro Driver};"
SourceType = "SourceType=DBC;"
DBPath = "SourceDB=" & Server.MapPath( "Dbf/Sample.dbc" )

' 调用Open 方法连接数据库
conn.Open Driver & SourceType & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
' 打开数据源，参数二为Connection对象
rs.Open "Select * From sample", conn, 2, 2
%>

'连结excel文件
<%
' 建立Connection对象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "Sample.xls" )

' 调用Open 方法连接数据库
conn.Open Driver & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
' 打开数据源，参数二为Connection对象
rs.Open "Select * From [成绩单$]", conn, 2, 2
%>

'连结txt文件
<%
' 建立Connection 对象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Text Driver (*.txt; *.csv)};"
DBPath = "DBQ=" & Server.MapPath( "Text" )

' 调用Open 方法连接数据库
conn.Open Driver & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
' 打开数据源，参数二为Connection对象
rs.Open "Select * From sample.txt", conn, 2, 2
%>






SELECT语法：(基本)



*************************************************************
**********************************************************
SELECT [DISTINCT]
(column [{, column } ] )| *
FROM table [ { , table} ]
[ORDER BY column [ASC] | [DESC
[{ , column [ASC] | [DESC } ] ]
WHERE predicate [ { logical-connector predicate } ];
------------------------------------------------------

INSERT语法：

INSERT INTO table
[(column { ,column})]
VALUES
(columnvalue [{,columnvalue}]);
------------------------------------------------------

UPDATE语法：

UPDATE table
SET column = value [{, column = value}]
[ WHERE predicate [ { logical-connector predicate}]];
------------------------------------------------------

DELETE语法：

DELETE FROM table
[WHERE predicate [ { logical-connector predicate} ] ];
------------------------------------------------------
blueice2002 2003-03整理----hshlin.8u8.com qq:14605617
msn:[e-mail]

[cdsun]

添加数据源吧！

也就是dsn

[crj700]

我也有遇到这个问题,不过我在本机上测试正常,可上传到空间上就出现这个问题,谁知道这是怎么回事?