新微赢技术网

标题: SQL更新 [打印本页]

作者: ('葒諺禍氺 时间: 2010-1-10 23:01
标题: SQL更新
本意是想修改更新以后在添加到数据库里面，下面是代码：

Dim Conn,objRS,SQL

  '初始化数据库连接
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.ConnectionString ="provider=sqloledb;data source=local;uid=sa;pwd= ;database=****"

  '打开数据库连接
  Conn.Open

  'SQL语句
  SQL = "SELECT * FROM sj_info Where  user_id=" &User_id


  '打开数据集
  Set RS = Server.CreateObject("ADODB.Recordset")
  RS.Open SQL, Conn,1,3


RS.Update Array("sj_name", "sj_tel", "sj_di", "sj_hy", "sj_jf","sj_jj","sj_hd","sj_lx","sj_emali","sj_zp","sj_gg","sj_bh","sj_lb","sj_cd","sj_sy","sj_time"),Array(name, tel, di, hy, jf,jj,hd,lx,email,zp,gg,bh,lb,cd,sy,times)

报了下面的错误：
Description: 在对应所需名称或序数的集合中，未找到项目。

我都是按照着表中的列来填写的啊，数据库也打开了，测试sql语句也是正确的，但是就是在更新的时候报了上述的错误.

作者: ミつン戀ン 时间: 2010-1-10 23:01
楼上兄弟总喜欢这样来修改或添加信息，这样写法虽然不用考虑字段类型，但效率很低的

conn.execute "update 表名 set 字段1='"&变量名1&"',字段2='"&变量名2&"' where id="&id

作者: 絕版kun騙孖 时间: 2010-1-10 23:01
'打开数据集
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Conn,1,3
Rs("sj_name")=name
Rs("sj_tel")=tel
Rs("sj_di")=di
Rs("sj_hy")=hy
Rs("sj_jf")=jf
Rs("sj_jj")=jj
Rs("sj_hd")=hd
Rs("sj_lx")=lx
Rs("sj_emali")=email
Rs("sj_zp")=zp
Rs("sj_gg")=gg
Rs("sj_bh")=bh
Rs("sj_lb")=lb
Rs("sj_cd")=cd
Rs("sj_sy")=sy
Rs("sj_time")=times
Rs.Update

作者: 夜流冰 时间: 2010-1-10 23:01
谢谢两位版主的帮忙！
搞定了，我是用了hmhz版主的方法，我是觉得hmhz版主的方法直观一点！

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)