请教数据库更新问题

SP12345678902 2012-03-01 02:26:37



Dim lngTemp As Long

Dim objADOConn As New ADODB.Connection

Dim objADORs As New ADODB.Recordset

    If lngTemp > 20 Then

        objADORs.Open "select ID  from t_OrderDownloadLog order by ID", objADOConn, adOpenStatic, adLockOptimistic, adCmdText

        lngTemp = 1

         While Not objADORs.EOF

            objADORs.Fields("ID").Value = lngTemp

            lngTemp = lngTemp + 1

            objADORs.MoveNext

         Wend

        objADORs.Close

    End If

我改变了objADORs.Fields("ID")的值
那么这个改变会不会体现到数据库中呢

...全文

131 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

SP12345678902 2012-03-01

打赏
举报

SP12345678902 2012-03-01

打赏
举报

SP12345678902 2012-03-01

打赏
举报

不好意思
我代码少拷贝了几句话



objADOConn.CursorLocation = adUseClient

objADOConn.Open mdlPublic.gstrConn

贝隆 2012-03-01

打赏
举报

我觉得你得代码有问题
1、你的代码中都没有连接数据库的语句，也就是objADOConn实例化的语句，
2、你的想法是查询数据库，也就是从数据库中读出数据，而非写入数据，所以，是不会改变数据库中的数据的。除非你试用Update更新数据库。
参考一
参考二

饮水需思源 2012-03-01

打赏
举报

While Not objADORs.EOF

    objADORs.Fields("ID").Value = lngTemp

    objADORs.Update    '<---加上这句

    lngTemp = lngTemp + 1

    objADORs.MoveNext

Wend