请教数据库更新问题
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")的值
那么这个改变会不会体现到数据库中呢
--------------------编程问答--------------------
While Not objADORs.EOF--------------------编程问答-------------------- 我觉得你得代码有问题
objADORs.Fields("ID").Value = lngTemp
objADORs.Update '<---加上这句
lngTemp = lngTemp + 1
objADORs.MoveNext
Wend
1、你的代码中都没有连接数据库的语句，也就是objADOConn实例化的语句，
2、你的想法是查询数据库，也就是从数据库中读出数据，而非写入数据，所以，是不会改变数据库中的数据的。除非你试用Update更新数据库。
参考一
参考二 --------------------编程问答-------------------- 不好意思
我代码少拷贝了几句话
objADOConn.CursorLocation = adUseClient
objADOConn.Open mdlPublic.gstrConn
--------------------编程问答-------------------- [img=http://hi.csdn.net/space-2010391-do-album-picid-1067878-goto-down.html][/img] --------------------编程问答-------------------- [img=http://hi.csdn.net/space-2010391-do-album-picid-1067878.html][/img]
补充：VB , 数据库(包含打印，安装，报表)
