115下载配额破解:问一个关于VB和sql的问题

来源:百度文库 编辑:中科新闻网 时间:2024/04/30 02:08:55
现在我从access 数据库里读取一些纪录(recordset)(很多条)
然后我想改写读出来的这些recordset中的每一条 的 某一个field的值
然后再写回进数据库

比如
Set myTableRS = New ADODB.Recordset
myTableRS.Open "SELECT * FROM SCAG_Table", testdb, adOpenDynamic, adLockPessimistic
myTableRS.MoveFirst

现在怎么样才能改写每一条recordset的某一个field的值,再写回数据库中呢?
多谢!
现在我用VB从access 数据库里读取一些纪录(recordset)(很多条)
然后我想改写读出来的这些recordset中的每一条 的 某一个field的值 (这个值是通过复杂的计算算出来的,所以不能用SQL直计算), 然后再写回进数据库

Set myTableRS = New ADODB.Recordset
myTableRS.Open "SELECT * FROM SCAG_Table", testdb, adOpenDynamic, adLockPessimistic
myTableRS.MoveFirst

Do Until myTableRS.EOF

' Computing for a value
' write to database
myTableRS.MoveNext

loop

现在怎么样才能改写每一条recordset的某一个field的值,再写回数据库中呢?
多谢!

按你刚才的例子来举例:
Set myTableRS = New ADODB.Recordset
myTableRS.Open "SELECT * FROM SCAG_Table", testdb, adOpenDynamic, adLockPessimistic
myTableRS.MoveFirst

''改写每一条recordset的某一个field的值
myTableRS.fields[0].value=赋值''0代表字段的序号.1就是第二个字段,0是第一个字段.
myTableRS.fields["字段名"].value=赋值''以字段名赋值.

''当赋值结束后就可以写回数据库中了
myTableRS.update

的update方法也可以写入,不过我个人认为用一条update语句写回更直接一些,而且安全。

myTableRS("字段名称")=值
myTableRS.update
就可以了