Buongiorno a tutti,
ho un problema con la gestione di un recorset ADODB in una macro VBA.
Quando vado a testare la differenza tra il valore dalla cella del foglio Excel e il valore del campo sul DB (SQL Server), se il valore del campo sul DB è NULL VB non trova differenze
codice:
If rsDB(0) = L(rL, 1) Then 'Verifico Campo uguale
For iarL = 1 To 30 'Verifico tutti i Campi
If rsDB(iarL) <> L(rL, iarL + 1) Then
'Se il valore del campo è cambiato lo aggiorno
rsDB(iarL) = L(rL, iarL + 1)
rsDB.Update
End If
Next
rsDB.MoveNext
rL = rL + 1
Else
'Scrivo nuovo record in matrice
End If
Ho provato anche a testare il campo con If rsDB(iarL) =NULL e If rsDB(iarL)="" senza alcun risultato: non si accorge mai che i valori sono diversi e quindi non entra in modifica
Grazie
Ciao a tutti
R