VB如何更改已存在的记录,用recordset的方式，而不是ＳＱＬ方式？

Question

rst_test.open
用动态方式打开
如果不行，检查你的数据库连接参数是否正确。
就是你的连接串。

Answer 1

cnn1.Open "........",1,3;
;
;
rst_test.update
rst_test.Close
Set rst_test = Nothing

Answer 2

Set rst_test= New ADODB.Recordset
    rst_test.CursorLocation = adUseClient
    rst_test.Open "........", , adOpenStatic, adLockOptimistic, adCmdText;
;
;
If rst_test.EOF = False Then '记录不存在,为了生成新记录:产生chworkid    rst_test.AddNew
    rst_test!plan = "0"
    ......
End Ifrst_test.updaterst_test.Close
Set rst_test = Nothing

Answer 3

这样写应该可以
dim rs as new recordset
dim conn as new  Connection
......
......
conn.open
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Open "select * from ... where ......", conn, , , adCmdText
Do Until rs.EOF  '此处不知道你地要求是想得到纪录还是。
   rst_test.MoveFirst
    rst_test!plan = "0"
loop
rs.update
rst_test.Close
Set rst_test = Nothing

Answer 4

cnn1.open"....",1,3 
这句话,我执行时出错了,cnn1是连接,后面的参数1和3是什么意思啊.我加参数的时候,看到是userid和password呀.

Answer 5

rst_test.addnew
…………
……
……
rst_test.update

Answer 6

各位,以上方式都不行,到底有什么好办法,在读出的recordset中修改已存在的记录呢?

Answer 7

问题不是addnew ,我知道addnew 没有问题,问题是在于,recordset中读到了记录,而我要对已读到的记录进行修改,可以用"rst!字段名=值"来进行赋值吗?

Answer 8

这个当然可以
BLOB类型的字段除外

Answer 9

连接串没问题.
cn6000.Open "Provider=MSDASQL.1;Password=111;Persist Security Info=True;User ID=sa;Data Source=sybase_ju;charset=iso_1"因为我可以读出rst_test中每一个字段的值,但是,我无法更改.无法给它赋值.
我的目的很简单.就是从数据库中查找,如果没有SQL指定的记录,就用addnew增加，这没问题．问题在于，如果有记录，那么记录已读到recordset中了，我怎么更改读出的值，能直接给recordset赋值吗？

Answer 10

rs.CursorType = adOpenKeySet

Answer 11

rst.open "查询语句",conn,adOpenDynamic,adLockOptimistic
rst.fields("字段名").value=值
rst.update
rst.close

Answer 12

哈哈，这个问题我遇到过，因为在 Select 语句中加有类似于 Count(*) 或者别的有计算的关键字，当时只是一个小BUG而已，不知你是否也是这样，或者是你Recordset打开的不是表，而是一个视图，视图可能有类似的语句。以上可供参考。