comparer deux adodb.field de type blob(adbinary)
Bonjour a tous,
voilà je cherche a comparer deux champs (de type blob dans ma base source et ma base cible). Je crée donc deux recordset qui me renvoient la valeur de ce champ (1 dans ma base source l'autre dans ma base cible). je met le résultat de chaque recordset dans deux adodb.field et quand je compare (.Value <> srcField.Value) j'ai une erreur "Type mismatch" :cry: . Quelqu'un serait d'où vient l'erreur ? Y a t'il une autre manière de comparer deux champs blob ? Merci pour votre aide... :(
le code est le suivant :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Set srcRs = srcDb.getDBConnection.Execute(aSql)
If Not srcRs.EOF Then
Set targetRs = targetDB.getDBConnection.Execute(aSql)
Do Until srcRs.EOF
Dim i As Integer
For i = 0 To targetRs.Fields.Count - 1
Set targetField = targetRs.Fields(i)
With targetField
Set srcField = srcRs.Fields(.Name)
Select Case IsNull(.Value)
If .Value <> srcField.Value Then call copySourceField_
End With
Next i
srcRs.MoveNext
targetRs.MoveNext
Loop
targetRs.Close
End If
srcRs.Close |
