一个[Microsoft][ODBC Microsoft Access Driver]行中有错误

zhangjinwei 2004-01-10 03:47:05

<%if request("act")="add" then
user=server.htmlencode(request.form("user"))
money=server.htmlencode(request.form("money"))
acti=server.htmlencode(request.form("acti"))
memo=server.htmlencode(request.form("memo"))
set rsa=server.createobject("adodb.recordset")
sqla="select * from user where uid='"& user &"'"
rsa.open sqla,conn,1,1
if rsa.eof and rsa.bof then
response.write"<div align=center> 该用户不存在！</div>"
response.end
rsa.close
set rsa=nothing
end if

set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from sys_money"
rs.open sql,conn,3,3
rs.addnew
rs("uid")=user
rs("actions")=acti
rs("savemoney")=savemoney
rs("note")=memo
rs.update
rs.close
set rs=nothing
response.write"<div align=center> 更新成功！</div>"
end if %>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="css2.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><a href="money.asp">款项查询</a></div></td>
<td height="15"><div align="center"><a href="inmoney.asp">财务入帐</a></div></td>
<td><div align="center"><a href="outmoney.asp">财务扣款</a></div></td>
<td><div align="center"><a href="inmoney.asp?act=b">还款入户</a></div></td>
<td><div align="center"><a href="outmoney.asp?act=o">消费扣款</a></div></td>
</tr>
<tr bgcolor="#000000">
<td height="1" colspan="5"></td>
</tr>
</table>
<br>
<table align=center border=1 cellpadding=3 cellspacing=0 width=80% bordercolor=#61BCF6 bordercolordark=#FFFFFF>
<form action="inmoney.asp?act=add" method=post><tr>
<td width="100" bgcolor="#D9EEFD"><div align="center">用户名：</div></td>
<td width="450">
<input name=user id="user" size="20">
　</td>
</tr>
<tr>
<td width="100" bgcolor="#D9EEFD"><div align="center">金　额：</div></td>
<td width="450">
<input name=money id="money" size="20">
　元</td>
</tr>
<tr>
<td width="100" bgcolor="#D9EEFD"><div align="center">类　型：</div></td>
<td width="450">
<select name="acti" id="acti">
<option value="收入" selected>收入</option>
<option value="还款">还款</option>
</select>
　</td>
</tr>
<tr>
<td width="100" bgcolor="#D9EEFD"><div align="center">备　注</div></td>
<td width="450">
<input name=memo id="memo" size="20">
　</td>
</tr>
<tr>
<td colspan=2 align=center><input type="submit" name="Submit" value="提交"></td>
</tr></form>
</table>
</body>
</html>
运行后提示:
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver]行中有错误

/admin3203/inmoney.asp，行 25

数据库结构如下:
表名:sys_money
id 自动编号
uid 文本用户名
actions 文本操作
savemoney 文本业务发生金额
date 日期/时间日期
note 备注备注

...全文

195 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

xieyj 2004-01-10

打赏
举报

try:
rs.open sql,conn,3,3

change to

rs.open sql,conn,1,1

将最后几个数字在 1 和 3 之间变一下

zhangjinwei 2004-01-10

打赏
举报

发现错误，错误信息是：[Microsoft][ODBC Microsoft Access Driver]行中有错误
错误提示我已写在上边了,

aoeiuvcom 2004-01-10

打赏
举报

提交了什么数据？

笔误：money 写成 savemoney

这是个不好的习惯，请加上强制变量检查

<% Option Explicit %>

xieyj 2004-01-10

打赏
举报

不好意思，回答错了，第一贴子的UP搞错地方了，第二贴子是回复。

xieyj 2004-01-10

打赏
举报

在rs.update加一个错误处理：

使用异常处理，捕捉错误信息，具体方法如下：
On Error Resume Next '过滤错误
rs.update
If Err.Number <> 0 Then '发现错误
Response.Write "发现错误，错误信息是：" & Err.Description '写出错误信息
Response.End '结束运行
End If

看显示什么错误？

xieyj 2004-01-10