数据不能用ASP写入到ACCESS。没提示出错,但数据库表中是空的并没数据写入。

大漠孤沙 2003-07-29 12:34:21
如题。初学ASP，请多指教。

建了一个 test.mdb,有一个表，customer,包含以下字段：

CompanyName,CName,City,Tel.


前台代码如下： add.htm

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Add New Record</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<p align="center"><font size=5>添加新的数据库记录：</font></p>

<form method="post" action="http://localhost/adddatabase.asp">
<p></p>
<p>Company:
<input type="text" name="companyname" size="20"></P>
<P>Name:<input type="text" name="Cname" size="20"></P>
<p>City:<input type="text" name="city" size="20"></p>
<p>email:<input type="tel" name="tel" size="20"></p>
<br>
<input type="submit" Value="Submit" name="submit">
<input type="reset" Value="Reset" name="reset">
</form>

</body>
</html>



后台： adddatabase.asp

<%
dim conn
dim connstr

CompanyName=Request("CompanyName")
CName=Request("CName")
City=Request("City")
Tel=Request("Tel")

on error resume next

connstr="DBQ"+server.MapPath("test.mdb")+";DefaultDir=;Driver={Microsoft Access Driver(*.mdb)};"

Set conn=Server.CreateObject("ADODB.Connection")

conn.Open connstr

set rs=ServerCreateObject("ADODB.Recordset")

rs.Open "customer",conn,adOpenDynamic,3

rs.AddNew
rs("CompanyName")=CompanyName
rs("CName")=CName
rs("City")=City
rs("Tel")=Tel

rs.Update

Response.Write"<html><body><font size=10>你的数据已添加到数据库了~~~"

Response.Write"</font></body></html>"

%>

<html>
<head>
<title>add data</title>
</head>
<body>

</body>
</html>
...全文
307 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
prf8 2003-07-29
  • 打赏
  • 举报
 回复
使用如下代码：自己看吧，呵呵。。。

ShenBaoShiJian=session("paidanshijian")
strDBDSN = "DSN=Gongdan_list;uid=userdb;pwd=userdb"
' 数据库查询的SQL语法
strSQL = "insert into Gongdan (gongdanbianhao,shenbaoshijian,gongdanzhuti,guzhangleixing,paidanbumen,paidanren,lianxifangshi,shoulibumen,jinjichengdu,guzhangmiaoshu,guzhangchubuchulijieguo,guzhangchulijianyi,gongdanzhuangtai) values( '" & GongDanBianHao & "','" & ShenBaoShiJian & "','" & GongDanZhuTi & "','" & GuZhangLeiXing & "','" & PaiDanBuMen & "','" & PaiDanRen & "','" & LianXiFangShi & "','" & ShouLiBuMen & "','" & JinJiChengDu & "','" & GuZhangMiaoShu & "','" & GuZhangChuBuChuLiJieGuo & "','" & GuZhangChuLiJianYi & "','" & GongDanZhuangTai & "')"
' 建立数据库连接的对象
Set objDBConn = Server.CreateObject("ADODB.Connection")
' 打开数据库连接
objDBConn.Open strDBDSN
' 执行SQL的数据库查询
Set objRS = objDBConn.Execute(strSQL)
' 关闭数据库连接
objDBConn.Close
Set objDBConn = Nothing
prf8 2003-07-29
  • 打赏
  • 举报
 回复
CompanyName=Request("CompanyName")改为：
CompanyName=Request。Form("CompanyName")
大漠孤沙 2003-07-29
  • 打赏
  • 举报
 回复
connstr="DBQ"+server.MapPath("test.mdb")+";DefaultDir=;Driver={Microsoft Access Driver(*.mdb)};"

改为：

connstr="DBQ="+server.MapPath("test.mdb")+";DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};"

16行可以了。

还有：18行出错。
set rs=ServerCreateObject("ADODB.Recordset")
大漠孤沙 2003-07-29
  • 打赏
  • 举报
 回复
to: Primer2002cn(宠辱不惊)

~~~是这句出错了：conn.Open connstr


HTTP 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（适用于支持人员）

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
/adddatabase.asp, 第 16 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

页：
POST 54 bytes to /adddatabase.asp

POST 数据:
CompanyName=gds&Cname=ds&City=fds&Tel=sf&submit=Submit

时间：
2003年7月29日, 12:35:01

xiaobird1 2003-07-29
  • 打赏
  • 举报
 回复
action="adddatabase.asp" 使用物理路径。
Primer2002cn 2003-07-29
  • 打赏
  • 举报
 回复
把on error resume next这句注释掉看提示什么
xiaobird1 2003-07-29
  • 打赏
  • 举报
 回复
action="http://localhost/adddatabase.asp"???
conner 2003-07-29
  • 打赏
  • 举报
 回复
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("test.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
大漠孤沙 2003-07-29
  • 打赏
  • 举报
 回复
另外， prf8(风筝）朋友说的:

CompanyName=Request.Form("CompanyName")

也可以正常操作。
大漠孤沙 2003-07-29
  • 打赏
  • 举报
 回复
Sorry,是：

connstr="DBQ="+server.MapPath("test.mdb")+";DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};"
大漠孤沙 2003-07-29
  • 打赏
  • 举报
 回复
to： xiaobird1(小鸟儿)
Primer2002cn(宠辱不惊)
prf8(风筝) ( )

谢谢三位朋友的关注，此问题已解决。

调试后发现以上代码有三点错误：

16行：connstr="DBQ"+server.MapPath("test.mdb")+";DefaultDir=;Driver={Microsoft Access Driver(*.mdb)};"

1。“DBQ”内少了一个“=”；
2。Driver和(*.mdb)};"之间少一个空格；

正确如下：

connstr="DBQ+"+server.MapPath("test.mdb")+";DefaultDir=;Driver={Microsoft Access Driver (*.mdb)};"



18行：set rs=ServerCreateObject("ADODB.Recordset")

3。ServerCreateObject中少了一个"."

正确如下：

set rs=Server.CreateObject("ADODB.Recordset")




asp.net将Excel数据写入Access数据库中
asp.net将Excel数据写入Access数据库中,asp.net源码，
ASP读取Excel文件并写入Access数据库
尝试了一下：ASP读取Excel文件并写入Access数据库。测试成功。把程序拿出来共享一下。
asp获取微信公众号网页授权和用户信息（code、access_token、openid等）
讲解用户在微信客户端中访问第三方网页，公众号可以通过微信网页授权机制，来获取用户基本信息，进而实现业务逻辑。获取code、access_token、openid、用户昵称、地区、性别、头像等官方文档https://developers.weixin.qq.com/doc/offiaccount/OA_Web_Apps/Web_Developer_Tools.html#1开发步骤1、引导用户进入授权页面同意授权，获取code2、通过code换取网页授权access_token（与基础支持中的access_token不同）3、如果需要，开发者可以刷新网页授权access_token，避免过期4、通过网页授权access_token和openid获取用户基本信息（支持UnionID机制）asp获取微信公众号网页授权和用户信息（code、access_token、openid等）01-asp获取微信公众号网页授权和用户信息演示02-asp获取远程网页内容03-官方文档概要04-获取用户同意授权05-拿到code后获取返回信息06-获取access_token内容07-获取微信用户openid数据08-获取微信用户的所有信息09-用户头像、昵称、区域、性别
web程序--表单如何写入access数据库（求助）
web程序--表单如何写入access数据库（求助） 写入数据库的同时，跳转到下一个页面
asp采集目标网站内容并写入数据库access中程序源码
【程序老媛出品，必属精品，亲测校正，质量保证】 资源名：asp采集目标网站内容并写入数据库access中程序源码 资源类型：程序源代码 源码说明： asp采集目标html页面的内容并写入数据库access之中 设定每20秒（可自定义）采集 主要为学习 理解asp采集 入库access原理 适合人群：新手及有一定经验的开发人员
ASP

28,390

社区成员

357,060

社区内容

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

加载中

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

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

+ 用AI写文章