这个问题很烦人,请大家帮帮忙!我查了好多资料都不行!

wendy2003feng 2006-06-04 05:07:45
错误提示是:
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0xc3c Thread 0xd68 DBC 0x1199c3c Jet'。
/zhaopin/conn.asp, 第 6 行

界面是:
让客户添加个人信息,然后加到Access数据库中,
我从网上找了很多方法,可是都不行,我的是XP系统的,请大家帮帮忙!谢谢大家!
...全文
121 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
wendy2003feng 2006-06-05
  • 打赏
  • 举报
回复
没有人啊,自己顶!!
wendy2003feng 2006-06-05
  • 打赏
  • 举报
回复
我这是添加记录,sql语句我是要加条件的,因为不加条件怎么知道是加在哪一行的啊?一个用户有一条记录,上个页面是注册信息,这个页面是个人信息,我把这个全放在一条记录中的,所以SQL得加条件,不然就不知道加到哪了啊!!

自己顶一下!!
Ischema 2006-06-05
  • 打赏
  • 举报
回复
明显ACCESS文件丢失
重装
veking 2006-06-05
  • 打赏
  • 举报
回复
如果是更新:

<%
if request("action")="save" then
dim username,password,email
username=session("username")
password=sessionID
set rs=server.CreateObject("adodb.recordset")
sql="select * from person where username='" & username & "'and password='" & password & "'"
rs.open sql,conn,1,3

if not rs.eof or not rs.bof then

rs("name")=trim(request("name"))
rs("cardid")=trim(request("cardid"))
rs("sex")=trim(request("sex"))
rs("birth")=trim(request("birth"))
rs("minzu")=trim(request("minzu"))
rs("marry")=trim(request("marry"))
rs("hometown")=trim(request("hometown"))
rs("currcity")=trim(request("currcity"))
rs("phone")=trim(request("phone"))
rs("mobile")=trim(request("mobile"))
rs("edu")=trim(request("edu"))
rs("brief")=trim(request("brief"))
rs.update
rs.close
set rs=nothing

response.redirect("detail_edu.asp")
else
response.write("<script> alert('保存错误,请重新提交数据!');history.back(-1);</script>")
end if
end if
%>
我的连接文件是这样的conn.asp:
<%
dim conn,connstr
connstr="DBQ="+server.mappath("person\data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'connstr="Driver={sql server};uid=sa;pwd=sa;database=ceoa;server=ce2"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>

如果是插入新记录:

<%
if request("action")="save" then
dim username,password,email
username=session("username")
password=sessionID
set rs=server.CreateObject("adodb.recordset")
sql="select * from person"
rs.open sql,conn,1,3
rs.addnew
rs("name")=trim(request("name"))
rs("cardid")=trim(request("cardid"))
rs("sex")=trim(request("sex"))
rs("birth")=trim(request("birth"))
rs("minzu")=trim(request("minzu"))
rs("marry")=trim(request("marry"))
rs("hometown")=trim(request("hometown"))
rs("currcity")=trim(request("currcity"))
rs("phone")=trim(request("phone"))
rs("mobile")=trim(request("mobile"))
rs("edu")=trim(request("edu"))
rs("brief")=trim(request("brief"))
rs.update
rs.close
set rs=nothing

response.redirect("detail_edu.asp")
end if
%>
我的连接文件是这样的conn.asp:
<%
dim conn,connstr
connstr="DBQ="+server.mappath("person\data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'connstr="Driver={sql server};uid=sa;pwd=sa;database=ceoa;server=ce2"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
cjl8882000 2006-06-05
  • 打赏
  • 举报
回复
还有 你试试把connstr="DBQ="+server.mappath("person\data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
换成connstr="DBQ="+server.mappath("..\person\data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"试下
cjl8882000 2006-06-05
  • 打赏
  • 举报
回复
rs.update
response.redirect("detail_edu.asp")
rs.close
set rs=nothing
end if

刚发现还有个问题………… 你的REDIRECT放的太前面了吧 都转向你还怎么关闭记录集啊……
如果你前面的页面也都这么写的话 那就很有问题了…………
cjl8882000 2006-06-05
  • 打赏
  • 举报
回复
想问下 你是要加记录还是要修改记录啊?
加记录的话 查询语句就不要带条件了吧
如果是修改记录的话 就不要用RSN.ADDNEW了吧

你试试这样改行不行

CONN是没问题的 这是我找到程序里唯一的问题 如果还不行 就检查下你的机器设置了
wendy2003feng 2006-06-04
  • 打赏
  • 举报
回复
请问kafly(王者) 你的QQ是多少,能方便告诉我吗?我的是121733313
wendy2003feng 2006-06-04
  • 打赏
  • 举报
回复
刚才粘错了,有SQL语句,
<%
if request("action")="save" then
dim username,password,email
username=session("username")
password=sessionID
set rs=server.CreateObject("adodb.recordset")
sql="select * from person where username='" & username & "'and password='" & password & "'"
rs.open sql,conn,1,3
rs.addnew
rs("name")=trim(request("name"))
rs("cardid")=trim(request("cardid"))
rs("sex")=trim(request("sex"))
rs("birth")=trim(request("birth"))
rs("minzu")=trim(request("minzu"))
rs("marry")=trim(request("marry"))
rs("hometown")=trim(request("hometown"))
rs("currcity")=trim(request("currcity"))
rs("phone")=trim(request("phone"))
rs("mobile")=trim(request("mobile"))
rs("edu")=trim(request("edu"))
rs("brief")=trim(request("brief"))
rs.update
response.redirect("detail_edu.asp")
rs.close
set rs=nothing
end if
%>
我的连接文件是这样的conn.asp:
<%
dim conn,connstr
connstr="DBQ="+server.mappath("person\data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'connstr="Driver={sql server};uid=sa;pwd=sa;database=ceoa;server=ce2"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
kafly 2006-06-04
  • 打赏
  • 举报
回复
相当晕,狂晕


都没执行查询语句SQL
sql="select * from person where username='" & username & "'and password='" & password & "'"

后面加
rs.open sql,conn,1,3


还有conn建立了吗?
wendy2003feng 2006-06-04
  • 打赏
  • 举报
回复
别的能打开啊,我的代码是这样的:
<%
if request("action")="save" then
dim username,password,email
username=session("username")
password=sessionID
set rs=server.CreateObject("adodb.recordset")
sql="select * from person where username='" & username & "'and password='" & password & "'"

rs.addnew
rs("name")=trim(request("name"))
rs("cardid")=trim(request("cardid"))
rs("sex")=trim(request("sex"))
rs("birth")=trim(request("birth"))
rs("minzu")=trim(request("minzu"))
rs("marry")=trim(request("marry"))
rs("hometown")=trim(request("hometown"))
rs("currcity")=trim(request("currcity"))
rs("phone")=trim(request("phone"))
rs("mobile")=trim(request("mobile"))
rs("edu")=trim(request("edu"))
rs("brief")=trim(request("brief"))
rs.update
response.redirect("detail_edu.asp")
rs.close
set rs=nothing
end if
%>
kafly 2006-06-04
  • 打赏
  • 举报
回复
:( PWS坏了吧?别的ACCESS能打开?

28,408

社区成员

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

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