数据库写入问题

jjld 发布于 2010-08-02 07:43， 346 次点击

set rst=server.CreateObject("adodb.recordset")
conn.begintrans
rst.open "pinglun",conn,1,3
rst.addnew'插入数据到user表
rst("p_user")=session("user")
rst("p_upid")=request.QueryString("id")
rst("p_neirong")=request.form("pinglun")
rst.update
rst.close
如果是第一次向数据库中写入数据，上面的代码实现不了，应如何做呢？
是不是插入和追加有区别呢？请给出代码。

2 回复

jjld2010-08-02 08:09

set rst=server.CreateObject("adodb.recordset")
conn.begintrans
rst.open "pinglun",conn,1,3
if rs.eof and rs.bof then
sql= "insert into pinglun(p_user,p_upid,p_neirong) values('"&session("user")& "',"&request.QueryString("id")&",'"&request.form("pinglun")& "')"
conn.execute sql
else
rst.addnew'插入数据到user表
rst("p_user")=session("user")
rst("p_upid")=request.QueryString("id")
rst("p_neirong")=request.form("pinglun")
rst.update
end if
rst.close
第一次向数据库中写入数据时出现“对象关闭时，不允许操作。”

hams2010-08-02 08:45

①直接连接数据库文件
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("database/yanhang.mdb")
这样的数据库连接方式，添加语句：
set rs=server.createobject("adodb.recordset") '(正确写法)
rs.open "select * from dndj",conn,1,3
rs.addnew
rs("bh") = bh
rs("bm") = bm
rs("xm") = xm
rs("xsq") = xsq
rs.update
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset") '(错误写法)
sql="insert into dndj(bh,bm,xm,xsq) values('bh','bm','xm','xsq')"
rs.open sql,conn,1,3