| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 631 人关注过本帖
标题:[求助]问题以解决,谢谢各位帮忙
只看楼主 加入收藏
wjzhihua1
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2005-8-15
收藏
 问题点数:0 回复次数:11 
[求助]问题以解决,谢谢各位帮忙
问题以解决,谢谢各位帮忙

[此贴子已经被作者于2005-8-25 16:55:26编辑过]

搜索更多相关主题的帖子: 谢谢 
2005-08-24 22:15
守护亡灵
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2005-8-24
收藏
得分:0 
出错的那行是哪行啊?conn.execute exec 这行?

老婆~我想买部车和你去兜兜风!然后对你说:我爱你~~宝贝!我想我们要结婚了~~~~~~~~~~!!
2005-08-24 22:40
守护亡灵
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2005-8-24
收藏
得分:0 
set conn=server.createobject("adodb.connection")
sql="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
conn.open sql,conn,1,1
我觉得改成这样!但不确定对!我也才学不久!如有错也别骂我哈~~~~~

老婆~我想买部车和你去兜兜风!然后对你说:我爱你~~宝贝!我想我们要结婚了~~~~~~~~~~!!
2005-08-24 23:10
wjzhihua1
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2005-8-15
收藏
得分:0 
感谢这个大哥,但是我是Access数据库,刚刚也试了一下你的说法,但是还是不行?
再次求助
2005-08-25 00:10
守护亡灵
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2005-8-24
收藏
得分:0 

set conn=server.createobject("adodb.connection") 这句里面的conn你换个名称试试吧!我知道你是Access数据库! 这是我在用的一个人员添加的原代码,只是一部分,也不知道对你有用不!反正发出来看看哈!研究研究!!观注这帖的结果! 下面是添加部分: <%

Dim MM_tableValues Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close call fnCreateLog("添加新员工") If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If

End If %> 下面是提交页面: <script>

if(!confirm("新增员工成功.\n您是否要继续添加新员工?")){ window.opener.location.reload() self.close() } else{ window.location.href="AddNew.asp" '添加成功,如选择继续添加新员工则返回AddNew.asp继续添加 }

</script> 我的也是Access数据库做的!

[此贴子已经被作者于2005-8-25 5:18:54编辑过]


老婆~我想买部车和你去兜兜风!然后对你说:我爱你~~宝贝!我想我们要结婚了~~~~~~~~~~!!
2005-08-25 05:13
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
收藏
得分:0 
"+name+"',"+tel+",'"+message+" 是不是有空的
2005-08-25 08:06
wjzhihua1
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2005-8-15
收藏
得分:0 
真奇怪,现在我把这个改了一下,但是问题出来了,提示记录成功,但不写入数据库 set conn=server.createobject("adodb.connection") sql="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb") conn.open sql,conn,1,1 name=request.form("name") tel=request.form("tel") message=request.form("message") exec="insert into guestbook(name,tel,message)values('"+name+"',"+tel+",'"+message+"')" conn.open sql conn.close set conn=nothing response.write "记录添加成功!"
2005-08-25 10:46
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5810
专家分:118
注 册:2005-4-7
收藏
得分:0 
把+换成&amp;试试

2005-08-25 10:48
wjzhihua1
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2005-8-15
收藏
得分:0 
以下是引用hxfly在2005-8-25 10:48:59的发言: 把+换成&试试
还是不行,不知道怎么回事!!!!
2005-08-25 11:54
belin2000
Rank: 3Rank: 3
等 级:论坛游侠
威 望:5
帖 子:975
专家分:194
注 册:2004-6-2
收藏
得分:0 
换驱动。。。。 conn.opne "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("example3.mdb")看看

59ita点com(我就爱TA)
2005-08-25 12:52
快速回复:[求助]问题以解决,谢谢各位帮忙
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.053112 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved