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
While Not objADORs.EOF
objADORs.Fields("ID").Value = lngTemp
objADORs.Update '<---加上这句
lngTemp = lngTemp + 1
objADORs.MoveNext
Wend
objADOConn.CursorLocation = adUseClient
objADOConn.Open mdlPublic.gstrConn
