access数据库设了密码，用asp怎么连呀,在线等待，谢谢

flybat 2003-09-13 10:15:25

<%
set conn=server.createobject("adodb.connection")
provider="provider=microsoft.jet.oledb.4.0;"
ss=jet OLEDB:Database password=hl //这里要怎么改呀
dbpath="data source="& server.mappath("db1.mdb")
conn.open provider & dbpath & ss

set rs=server.createobject("adodb.recordset")

rs.open "表2",conn,cursor,2
%>
错误显示:
Microsoft VBScript 编译器错误错误 '800a0401'

语句未结束

/hongli/s.asp, 行4

ss=jet OLEDB:Database password="hl"
-------^

...全文

92 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

yangsm 2003-09-13

打赏
举报

楼主做得怎么样？能打开了吗？还存在什么问题？

yangsm 2003-09-13

打赏
举报

楼主打的数据库是不是在同一个根目录下，如果不是，就得加入文件夹名比如：mdbfile="server.mappath("/")&"database/db.mdb"

flybat 2003-09-13

打赏
举报

to yangsm(yangsm)
Microsoft VBScript 编译器错误错误 '800a0408'

无效字符

/hongli/s.asp, 行2

　　mdbfile=server.mappath("db1.mdb")
^
打不开

flybat 2003-09-13

打赏
举报

to ： yjshm(自由与成长)
Microsoft VBScript 编译器错误错误 '800a0401'

语句未结束

/hongli/s.asp, 行5

ss=jet OLEDB:Database password=hl;dbpath="data source="& server.mappath("db1.mdb")
-------^

fj47 2003-09-13

打赏
举报

dim conn,db
　　db=server.mappath("数据库名称.mdb")
　　set conn=server.createobject("adodb.connection")
　　conn.open "driver={microsoft access driver (*.mdb)};pwd=******;dbq=" & db

yjshm 2003-09-13

打赏
举报

<%
set conn=server.createobject("adodb.connection")
provider="provider=microsoft.jet.oledb.4.0;"
ss=jet OLEDB:Database password=hl;dbpath="data source="& server.mappath("db1.mdb")
conn.open provider & dbpath & ss

set rs=server.createobject("adodb.recordset")

rs.open "表2",conn,cursor,2
%>

这样试试看

yangsm 2003-09-13

打赏
举报

不知楼主能否实现，前些天我也同样做加过密码的ACCESS数据库，但一直没有打开，后来只有把密码删除后才能用。

yangsm 2003-09-13

打赏
举报

dim conn,mdbfile
　　mdbfile=server.mappath("数据库名称.mdb")
　　set conn=server.createobject("adodb.connection")
　　conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码
;dbq="&mdbfile

blueice2002 2003-09-13

打赏
举报

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")&" "
response.write rs("name")&" "
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")&" "
response.write rs("username")&" "
response.write rs("password")&" "
rs.Movenext
loop %>

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

<%
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")&" "
response.write rs("username")&" "
response.write rs("password")&" "
rs.Movenext
loop
%>

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

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} ] ];
------------------------------------------------------
blueice 2003整理 http://hshlin.8u8.com
*************************************************

yangsm 2003-09-13

打赏
举报

<% @ language=Vbscript%>
<%
dim conn,mdbfile
mdbfile=server.mappath("database/db2.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=everyone;pwd=123;dbq="&mdbfile
sql="select * from news"
set rs=conn.execute(sql)
do while not rs.eof
response.write rs("title")
rs.movenext
loop
set rs=nothing
set conn=nothing
%>
注册成功！

yangsm 2003-09-13

打赏
举报

人兄，有很大的一个错误，你没有发现吗？
set mytext=conn.execute(sql)
do while not mytext.eof
改为set rs=conn.execute(sql)
do while not rs.eof
不要忘了加上
set rs=nothing
set conn=nothing

flybat 2003-09-13

打赏
举报

<% @ language=Vbscript%>
<%
dim conn,mdbfile
mdbfile=server.mappath("database/db1.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=everyone;pwd=hl;dbq="&mdbfile
sql="select * from news"
set mytext=conn.execute(sql)
do while not mytext.eof
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 2</title>
</head>

<body>
<%

rs.AddNew
rs("学号") =request("t1")
rs("姓名") =request("t2")

rs.movenext
loop
%>
注册成功！

</body>

</html>

yangsm 2003-09-13

打赏
举报

你把代码全贴出来吧！

flybat 2003-09-13

打赏
举报

Microsoft VBScript 编译器错误错误 '800a03fb'

缺少 'Loop'

/hongli/s.asp, 行28

yangsm 2003-09-13

打赏
举报

你的数据库打开了吗？还有什么问题？把出现的错误贴出来吗？我现在网上，我在这边测试的已经可以用了。代码如下：
<% @ language=Vbscript%>
dim conn,mdbfile
mdbfile=server.mappath("database/db2.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=everyone;pwd=123;dbq="&mdbfile
sql="select * from news"
set mytext=conn.execute(sql)
do while not mytext.eof
你再试试看！

flybat 2003-09-13