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"
-------^

...全文
91 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")&"<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
%>

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





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
  • 打赏
  • 举报
 回复
是的，是在一样根目录下
OK3W文章系统数据迁移至天人文章系统工具ACCESS数据库SEO版 v1.1.rar
OK3W文章系统数据迁移至天人文章系统工具ACCESS数据库SEO版 v1.1更新日志 美化界面，进行大数据量时的兼容容错性调整。 OK3W文章系统数据迁移至天人文章系统工具ACCESS数据库SEO版功能说明 * 本工具会迁移OK3W ...
Access2003中文版应用基础教程part1
本书分为12章，涵盖了使用Access 2003来设计数据库系统的相关概念与技巧，通过实例让读者轻松学会表、查询、窗体、数据访问页的制作，更有宏、控件、VBA等高级应用知识等待你去探索。 本书理论与实践相结合，解说...
asp在线考试系统(asp+access实现)
基于上述考虑，用Browser/Web模式来设计考试系统比较合适，服务器端我们采用Access数据库系统和 ASP组件来构成考试的应用服务系统；客户端采用浏览器来完成考试全过程，同时可进行远程系统维护和治理。 利用和数据库...
拓文asp.net网站内容管理系统 v6.9 beta1.rar
本程序用.net 2.0进行开发，服务器必须要安装.net 2.0 而且网站要设置为asp.net 2.0。   TopWinCMS支持动态、静态页面混合存在，减少了不必要生成静态页面的负担，功能： 定时任务，文章采集、会员管理、广告...
ASP设计在线考试系统OnlineTest
基于上述考虑，用Browser/Web模式来设计考试系统比较合适，服务器端我们采用Access数据库系统和 ASP组件来构成考试的应用服务系统；客户端采用浏览器来完成考试全过程，同时可进行远程系统维护和治理。 利用和数据库...
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章