标题:recordset对象这个方法可以向数据库中添加数据成功,,,但是用execute方法 ...
取消只看楼主
twtrwr
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:39
专家分:102
注 册:2011-3-31
结帖率:100%
已结贴  问题点数:10 回复次数:2 
recordset对象这个方法可以向数据库中添加数据成功,,,但是用execute方法却无法向数据库中插入数据
<% dim str,conn
str = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("db/ly.mdb") '连接数据库路径
Set conn = Server.CreateObject("ADODB.Connection")
conn.open str
If Err Then
err.Clear
conn = Nothing
Response.Write "系统正在维护之中,暂时不能访问! 标准错误。。。。。"
Response.End
End If
IF Request.Form("B1")="tj" then
   On Error Resume Next   
   con.open str


'   set rs=server.createobject("adodb.recordset")
'   rs.open "select * from ly",conn,1,3
'   rs.addnew
'   
'   rs("name")=Request("name")
'   rs("title")=Request("title")
'   rs("content")=Request("content")
'   rs.update



sql="INSERT INTO ly (name,content,time,ip) VALUES ('"
          sql=sql & Request("name") & "','"  & Request("title") & "','" & Request("content") & "')"
        conn.execute(sql)
End if
为什么用recordset对象这个方法可以向数据库中添加数据成功,,,但是用execute方法却无法向数据库中插入数据,,,execute这段代码哪里有错误吗
搜索更多相关主题的帖子: 数据库 
2011-03-31 16:16
twtrwr
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:39
专家分:102
注 册:2011-3-31
得分:0 
回复 2楼 dzt0001
我的数据库有以下几个字段 id    ,name,  title, content, time,  ip
而改后的语句如下:
If Err Then
err.Clear
conn = Nothing
Response.Write "系统正在维护之中,暂时不能访问! 标准错误。。。。。"
Response.End
End If
IF Request.Form("B1")="tj" then
   On Error Resume Next   
   con.open str
'   set rs=server.createobject("adodb.recordset")
'   rs.open "select * from ly",conn,1,3
'   rs.addnew
'   
'   rs("name")=Request("name")
'   rs("title")=Request("title")
'   rs("content")=Request("content")
'   rs.update
sql="INSERT INTO ly (id,name,title,content,time,ip) VALUES ('"
          sql=sql & id &" ','"  & Request("name") & "','"  & Request("title") & "','" & Request("content") & "','"& now()&"','" &request.servervariables("REMOTE_ADDR") & "')"
        conn.execute(sql)

End if
但是还是无法插入数据向数据库中

男人无所畏惧,应越战越勇
2011-03-31 17:18
twtrwr
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:39
专家分:102
注 册:2011-3-31
得分:0 
回复 2楼 dzt0001
我的数据库有以下几个字段 id    ,name,  title, content, time,  ip
而改后的语句如下:
If Err Then
err.Clear
conn = Nothing
Response.Write "系统正在维护之中,暂时不能访问! 标准错误。。。。。"
Response.End
End If
IF Request.Form("B1")="tj" then
   On Error Resume Next   
   con.open str
'   set rs=server.createobject("adodb.recordset")
'   rs.open "select * from ly",conn,1,3
'   rs.addnew
'   
'   rs("name")=Request("name")
'   rs("title")=Request("title")
'   rs("content")=Request("content")
'   rs.update
sql="INSERT INTO ly (id,name,title,content,time,ip) VALUES ('"
          sql=sql & id &" ','"  & Request("name") & "','"  & Request("title") & "','" & Request("content") & "','"& now()&"','" &request.servervariables("REMOTE_ADDR") & "')"
        conn.execute(sql)
End if
但是还是无法插入数据向数据库中

男人无所畏惧,应越战越勇
2011-03-31 17:19



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-335303-1-1.html




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

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