Discussion :

[Xan]

Bonjour,

Alors, voilà, je suis en ce moment en train de faire migrer un fichier Excel vers une base de données Access. Pour ce faire, j'utilise VBA et Excel car les méthodes de transfert directes ne sont pas adaptées à mon cas.
Mon problème ne réside pas dans la logique de l'algorithme, mais dans une erreur d'execution dont je ne comprend pas la provenance.

Voila le morceau de code incriminé :

Code :

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

1
2
3
    Str_RequeteSQL = "INSERT INTO TRADUCTEUR(ID_TRADUCTEUR,NOM_PRENOM,PROFESSIONEL,ADRESSE,TELEPHONE,SPECIALITE,ADRESSE_MAIL) VALUES('" & id_traducteur & "','" & nom_prenom & "','" & pro & "','" & adresse & "','" & telephone & "','" & specialite & "','" & adresse_mail & "')"
    MsgBox Str_RequeteSQL
    Connexion.Execute (Str_RequeteSQL)

Sachant que la MsgBox me sort ceci :

INSERT INTO TRADUCTEUR(ID_TRADUCTEUR,NOM_PRENOM,PROFESSIONEL,ADRESSE,TELEPHONE,SPECIALITE,ADRESSE_MAIL) VALUES('3','CHAPOUL Isabelle','Faux','Les jardins de l'Atrium 2 av des Contamines','06.74.51.11.00','','')

et que la structure de la table TRADUCTEUR est :

---------------------
TRADUCTEUR
---------------------
ID_TRADUCTEUR [entier long]
NOM_PRENOM [Memo]
ID_EMPLACEMENT [Entier long]
PROFESSIONEL [Boolean]
ADRESSE [Memo]
TELEPHONE [Memo]
SPECIALITE [Memo]
ADRESSE_MAIL [Memo]
----------------------

Connexion est un objet ADODB.Connection et Str_RequeteSQL est une variable de type String.

Bref, à l'exécution, j'obtient ce message d'erreur :

Erreur d'exécution '-2147217900 (80040e14)':

Erreur de syntaxe (opérateur absent) dans l'expression ''Les jardins de l'Atrium 2 av des Contamines','06.74.51.11.00','','')'.

Si vous pouviez avoir la gentillesse de me dire, au moins, si mon erreur est dans la requete ou dans le code VB, je vous en serais très reconnaissant.
Si, en plus, vous pouviez m'indiquer mon erreur, ce serais vraiment bien, mais je pense qu'avec le peu que j'ai donné cela risque d'être compliqué.

Merci

Ahmed

P.S : les requetes SQL sont codées sur une seule ligne, mais les quotes passent parfois a la ligne tout seuls.

[bidou]

c'est a cause de l'apostrophes de l'atrium
Il faut dédoubler les quotes dans les chaines

[Megaxel]

Si tu enlèves les simples quotes autour de l'identifiant ID_TRADUCTEUR, ça change quelquechose?

Edit: il est fort, quand même... Et rapide...

[Xan]

Excuse moi, bidou, est-ce que tu pourrais m'expliquer comment on fait ca? je suis vraiment désolé de poser des questions aussi débiles, mais je n'ai jamais été confronté à ce genre de problèmes. Merci

[bidou]

par exemple en remplacant
& adresse &
part

Code :

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

& Replace(adresse,"'","''") &

et ainsi pour toute les variables susceptibles de contenir une quote

[Xan]

oh, je vois ^^

Merci beaucoup, tu me retire une énorme épine du pied ^^

[Xan]

Ben, maintenant, j'ai une autre erreur...

Comme me l'a conseillé Megaxel, j'ai retiré les simples quotes autour de la valeur id_auteur, et ainsi que me l'a montré Bidou, j'ai doublé les quotes.

Mais maintenant, j'ai ça :

Erreur d'exécution'-2147217913(80070e07)':
Type de données incompatible dans l'expression du critère

et la requête SQL deviens :

INSERT INTO TRADUCTEUR(ID_TRADUCTEUR,NOM_PRENOM,PROFESSIONEL,ADRESSE,TELEPHONE,SPECIALITE,ADRESSE_MAIL) VALUES(3,'CHAPOUL Isabelle','Faux','Les jardins de l''Atrium 2 av des Contamines','06.74.51.11.00','','')

Je suis désolé de vous importuner avec ça, surtout que j'imagine que vous avez d'autres chats à fouetter u__u

[Megaxel]

Pour le Booléen, j'ai un doute...
Ça marche, de mettre "Professionnel" à "Faux" ???

[Xan]

ARGH
J'avais même pas vu XD

C'est incroyabale ce qu'on peut être aveugle parfois... je vais changer ca tout de suite u__u

EDIT : je sais pourquoi je l'avais pas remarqué :

Code :

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

1
2
3
4
5
6
'transformation du champ pro en boolean
    If Range("E" & i).Value = "Oui" Then
        pro = True
    Else
        pro = False
    End If

Je comprend pas pourquoi dans la chaîne il me met Faux

[Megaxel]

Je me demande si tu ne dois pas mettre ta variable "pro" à -1 ou 0 pour que ta requête marche?
Je crois que je me suis cogné à ce problème il-y-a quelques temps...

[Xan]

Non, le résultat est exactement le même.
Je pense que je vais changer le type de la variable pro. Ce sera une string et dans mon if, au lieu de True(ou -1) ou False(ou 0), je mettrais "True" et "False".
Au moins, la ca devrait être net. J'essaye et je vous tiens au courant ^^

EDIT : Ca ne fonctionne toujours pas. Mais je commence à croire que cette fois, c'est un problème de SQL, pour mettre une valeur boolean à True ou False.

Je vais me renseigner sur la question

EDIT : En fait, c'était un problème dû à la modélisation des booleans avec Access : des 0 ou des 1...
Et donc, je suis obligé de prendre pro comme une variable numérique ou chaîne et de lui claquer 0 ou 1.

Merci pour votre aide, je considère le problème comme résolu, à présent ^^

(J'ai encore des erreurs, mais cette fois, je sais d'où elles viennent, et c'est dû a ma modélisation du système d'information)

[Megaxel]

Je ne me souviens plus de ce que j'avais fait, mais je me demande si je n'avais pas fini par définir ma colonne en base comme un numérique, et je passais de mon booléen VB à ma valeur en base avec des

Code :

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

Cint( )

et des

Code :

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

CBool( )

[Xan]

Je pense que ta solution est adaptable, mais je préfère changer le code plutôt que de refaire ma bdd ^^

En tous cas, merci beaucoup ^^

[Megaxel]

Ha ben c'est ce que je t'ai proposé plus haut, mettre "pro" à "-1" ou "0".
Enfin, si tu t'en es sorti, c'est Ok!

[Xan]

Tout à l'heure, je t'avais mal compris ^^;;

Je pensais que tu voulais dire qu'il fallait conserver le type boolean pour pro et a la place de true ou false mettre -1 ou 0 ^^

Mais enfin, le principal, c'est que ca fonctionne ^^

[cha_cha]

Trouvé chez microsoft

Boolean variables are stored as 16-bit (2-byte) numbers, but they can only be True or False. Use the keywords True and False to assign one of the two states to Boolean variables.
When numeric data types are converted to Boolean values, 0 becomes False and all other values become True. When Boolean values are converted to numeric types, False becomes 0 and True becomes -1.