在往Sql server2000中新增记录时,用以下语句:
rs.addnew
rs.fields("productname")=txtcontent(0)
rs.fields("productkey")=rs.fields("ID")
'ID字段是表示列,自动增加
rs.update发现rs.fields("productkey")=rs.fields("ID")此处赋值不成功。如何才能成功赋值(将本条记录的ID字段赋给productkey字段)?
rs.addnew
rs.fields("productname")=txtcontent(0)
rs.fields("productkey")=rs.fields("ID")
'ID字段是表示列,自动增加
rs.update发现rs.fields("productkey")=rs.fields("ID")此处赋值不成功。如何才能成功赋值(将本条记录的ID字段赋给productkey字段)?
解决方案 »
- vb加入ShockwaveFlash控件后不能保存
- 请问vb的textbox最大能输入多少字符串
- 急啊,请高手帮我看看这个程序那里错了,在线等!~
- printer的简单问题 感谢感谢 (帮顶有分)
- 求教VB6操作XML问题!
- 对listView控件加载的数据进行修改,怎么得到修改后的值呢???
- BIOS有问题,每次在程序中启动时修改客户端系统时间?
- 想问VB+ACCESS数据库方面的速度问题?急
- 开发三层结构的数据库系统,DELPHI和VB.NET谁比较适合?
- 求大神交流如何用VB6.0写类似于QQ的聊天软件。。
- 请问窗体的显示控件尺寸和窗体自身尺寸的关系
- 求VSnetMenu 3.5的注册码
dim idkey as long
rs.movelast
idkey=rs.fields("id")
rs.addnew
rs.fields("productkey")=idkey+1
rs.fields("productname")=txtcontent(0)
rs.fields("productkey")=rs.fields("ID")
'ID字段是表示列,自动增加
rs.update之所以不成功是因为addnew时数据库并没有增加记录,当Update时才写入数据库
所以addnew时rs.fields("ID")值不存在,所以赋值不成功你可以addnew,之后Update
然后查询出这条记录,然后在赋值update道理和qingming81(晴明) 的一样,只是不再加1了
如果qingming81(晴明) ( ) 的说法在多机使用时就有可能出错。dim idkey as long
rs.movelast
idkey=rs.fields("id")
之后,本机
rs.fields("productname")=txtcontent(0)
rs.fields("productkey")=rs.fields("ID")
'ID字段是表示列,自动增加
rs.update
之前
有别的机子写入数据,这时IDKEY就不是最后一条了
update之前,数据是会写入表中的,但如果只AddNew,不进行Update,那么这条数据会被放弃的。