如何用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

为什么不行

CHENZHIRONG

什么问题?看代码很难猜的.

sunredday

还是有问题Dim n As Integer

n = Me.列表44.Column(0)

Dim rs As adodb.Recordset

Dim con As adodb.Connection

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

    Dim strSQL As String

    strSQL = "SELECT 信息追加表.* FROM 信息追加表 WHERE (((单价)<> 0))"

     rs.Open strSQL, con, adOpenKeyset, adLockOptimistic'    rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

     rs.MoveFirst

    Do Until rs.EOF    rs.Fields("厂商ID") = n  '??????????????????----------------------  

     rs.Update    rs.movenext

    Loop

CHENZHIRONG

少了rs.movenext把文件贴上来吧.

sunredday

up

sunredday

无法更新

sunredday

Dim n As Integer

n = Me.列表44.Column(0)

Dim rs As adodb.Recordset

Dim con As adodb.Connection

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

    Dim strSQL As String

    strSQL = "SELECT 信息追加表.* FROM 信息追加表 WHERE (((单价)<> 0))"

     rs.Open strSQL, con, adOpenKeyset, adLockOptimistic'    rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

     rs.MoveFirst

    Do Until rs.EOF    rs.Fields("厂商ID") = n  '??????????????????

     rs.Update

    Loop

   

异乡客

你的日子过的够快的：）

sunredday

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

tz-chf

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