Discussion :

[eltamatrox]

Bonjour,


(l125)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
<%If  MonObjRsBDD.Fields.Item(22).Value <> MonObjRs.Fields.Item(16).Value Then%>
Erreur, valeurs non égales 
<%Else%>
<br>Tout est Ok.</br>
<%End if%>

Lorsque j'exécute ceci dans ma page, j'ai ce message d'erreur :
Erreur d'exécution Microsoft VBScript erreur '800a000d'
Type incompatible
/*/*.asp, ligne 125


J'explique un peu le but de la manip' : comparer deux champs, l'un dans un fichier Excel, l'autre dans ma base oracle. Tout fonctionne avec plusieurs autres champs jusque là !
Je comprendrais le message si le type serait effectivement incompatible, or ici les valeurs des deux champs sont : '2006' et '2006'

Chose que j'ai vérifiée comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
<%=MonObjRsBDD.Fields.Item(22).Value%> 
<%=MonObjRs.Fields.Item(16).Value%>

une idée ?

merci :-/

[vva]

mais es tu bien sur que le format de la cellule XL corresponde au format du champ de la BD.

j'ai souvent des problèmes de typage quand je remonte une table xl vers une BD alors essaye de remonter ta table xl vars la bd tu verras tout de suite les différence de format

faut peut être dans ton code asp faire un cstr() ou cnum() ou .... pour aligner les formats

[eltamatrox]

mais es tu bien sur que le format de la cellule XL corresponde au format du champ de la BD.
j'ai souvent des problèmes de typage quand je remonte une table xl vers une BD alors essaye de remonter ta table xl vars la bd tu verras tout de suite les différence de format
faut peut être dans ton code asp faire un cstr() ou cnum() ou .... pour aligner les formats

dans Oracle : NUMBER(4)
dans Excel c'était effectivement Standard, alors l'idéal ça serait que lorsque je met en Nombre (sans virgules comme dans Oracle..) tout fonctionne parfaitement , OR ce n'est pas le cas !

Toujours le même message d'erreur malgré la modification de l'excel ..et vérification que tous les champs on bien 4 chiffres seulement..


edit: j'ai vu que j'avais le même soucis avec un autre champs qui comporte également des nombres ! ça doit pas être bien compliqué...

[StephM_asp]

Salut,

faut peut être dans ton code asp faire un cstr() ou cnum() ou .... pour aligner les formats

Absolument c'est la première idée qui m'est venue aussi.
Variabiliser le tout et soumettre à un petit CInt par exemple.

++

[eltamatrox]

Salut,
Absolument c'est la première idée qui m'est venue aussi.
Variabiliser le tout et soumettre à un petit CInt par exemple.
++

j'ai tenté d'utilise cint, il me dit :
" Utilisation non autorisée de Null: 'cint'"
le problème doit venir de là, mais comment résoudre ça ? je dois modifier la fichier excel ( qui contient ce Null et donc mettre une valeur forcement) ?

[StephM_asp]

le problème doit venir de là, mais comment résoudre ça ? je dois modifier la fichier excel ( qui contient ce Null et donc mettre une valeur forcement) ?

Non non, laisse les null et vérifie que ça ne soit pas null avant de passer à la moulinette CInt.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
if not isnull(MonObjRsBDD.Fields.Item(22).Value) then
   MaVar = MonObjRsBDD.Fields.Item(22).Value
else
   MaVar = ""
end if
 
'-- perso je ne fais pas confiance à isnull donc j'utilise plutôt la syntaxe suivante
 
if MonObjRsBDD.Fields.Item(22).Value & "" <> "" then
 MaVar = MonObjRsBDD.Fields.Item(22).Value
else
   MaVar = ""
end if
 
'-- Quoi que là, vu ta syntaxe tu prendras peut-être une erreur sur le & "", je sais pas, essaye si tu le souhaites.

[eltamatrox]

Non non, laisse les null et vérifie que ça ne soit pas null avant de passer à la moulinette CInt.

Effectivement j'y ais pensé après avoir posé la stupide question

ça donne un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if MonObjRs.Fields.item(16).Value <>"" then
cint(MonObjRs.Fields.Item(16).Value)
...

bref ça fonctionne, merci pour vos réponses !