Executo o update pelas intruções abaixo. Seguindo-as passo-a-passo, verifico que tudo é executado mas os registros não são atualizados e nenhuma messagem de erro é exibida. O que pode estar acontecendo ?
Ja verifiquei e todas as condições da Cláusula WHERE são verdadeiras.
strSQL = "UPDATE CustoOper1 SET "
strSQL = strSQL & " descrição = '" & rst1(0) & "', "
strSQL = strSQL & " itinerario = '" & rst1(1) & "' "
strSQL = strSQL & " Where month(data) = " & MesProcess
strSQL = strSQL & " And year(data) = " & AnoProcess
strSQL = strSQL & " And linha = ' " & rst(0) & "'"
dbs.Execute (strSQL)
Ja verifiquei e todas as condições da Cláusula WHERE são verdadeiras.
strSQL = "UPDATE CustoOper1 SET "
strSQL = strSQL & " descrição = '" & rst1(0) & "', "
strSQL = strSQL & " itinerario = '" & rst1(1) & "' "
strSQL = strSQL & " Where month(data) = " & MesProcess
strSQL = strSQL & " And year(data) = " & AnoProcess
strSQL = strSQL & " And linha = ' " & rst(0) & "'"
dbs.Execute (strSQL)