如何用ADO 修改数据?

异乡客

你的日子过的够快的：）

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

无法更新

sunredday

up

CHENZHIRONG

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

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

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