如何用ADO 修改数据?

sunredday

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

rs.Open "select 报价表.* from 报价表"

rs.MoveFirst

Do Until rs.EOF

rs.Fields("f5") = 1

rs.MoveNext

Loop

为什么不行

zhengjialon

rs.Fields("f5") = 1

的后面要加一句：rs.update吧

sunredday

连接无法用于执行此操作,在此上下文中它可能已经被关闭或无效

sunredday

rs.Open "select 报价表.* from 报价表"一个从该表而来的查询是窗体的数据源,该窗体开着,就是当前窗体

zhengjialon

你的代码贴全了就是这样啊？那少了：        Dim con As Object

        Set con = Application.CurrentProject.Connection'或者改成其它的数据库连接

        '打开记录集没有数据库连接：        rs.Open stSql, con, 3,3

sunredday

感谢.本以为做为默认值可以不设定呢.

zhengjialon

以下是引用sunredday在2004-7-12 12:25:35的发言：



rs.Open "select 报价表.* from 报价表"

一个从该表而来的查询是窗体的数据源,该窗体开着,就是当前窗体

这样也可以的，你只要用RecordsetClone的属性就行了。

sunredday

开始使用RECORDSETCLONE但是没有成功Dim rs As ADODB.RecordsetSet rs = ME.RECORDSETCLONE但是不行好象有问题

tz-chf

默认打开的记录集好象只能向前，不能用movefirst

sunredday

2005年2月26日有遇到这样的问题。完全一样的问题。证明自己的水平一点也没有进步。业余人员就是如此吧。