[MYSQL] [DELPHIXE] EOLeException AdoQuery Win 7 64 bits

Bonjour,

J'utilise delphi XE et MySQL 5.0.51a sur windows 7 64 bits.

Une exception est levé à la deuxième ligne:
"Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres"

Code:

---

1 2 3 4 5

ADOQuery1.Close; ADOQuery1.SQL.Text := 'select * from ma_table where id=:id'; ADOQuery1.Parameters.Items[0].Value := 4; ADOQuery1.Open

---

Ce code fonctionne très bien sur windows XP et delphi XE.

J'ai bien essayé différentes connections string sans succès:
http://www.connectionstrings.com/mysql

Par avance merci pour votre aide...

Bonjour,

Quel est le type de la colonne Id de la table ma_table ?

D'autre part, pour une meilleure lisibilité du code, j''écrirais plutôt :

Code:

---

1 2 3 4

ADOQuery1.Parameters.ParamValues['Id'] := 4; // Alternativement, pour m'assurer du type du paramètre (suivant la réponse à la question précédente) ADOQuery1.Parameters.ParamByName('Id').DataType := ftInteger; // ou une des valeurs TFieldType adéquate... ADOQuery1.Parameters.ParamByName('Id').Value := 4;

---

Bonsoir,

En plus des recommandations de Ph.
Pour les tables avec comportant des caractères spéciaux ou espace toujours les mettre entre crochet...

Je ferais plutot ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

With ADOQuery1 do begin SQL.Clear; SQL.Add('Select * From [ma_table] '); SQL.Add('Where id= :id '); Parameters.ParamByName('Id').DataType := ftInteger; // ou une des valeurs TFieldType adéquate... Parameters.ParamByName('Id').Value := 4; Try open; // ton traitement, ta récupération, tes boucles etc.. Finally // éventuellement Close; end; end;

---

Citation:

---

Envoyé par BuzzLeclaire

Bonsoir,

En plus des recommandations de Ph.
Pour les tables avec comportant des caractères spéciaux ou espace toujours les mettre entre crochet...

Je ferais plutot ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

With ADOQuery1 do begin SQL.Clear; SQL.Add('Select * From [ma_table] '); SQL.Add('Where id= :id '); Parameters.ParamByName('Id').DataType := ftInteger; // ou une des valeurs TFieldType adéquate... Parameters.ParamByName('Id').Value := 4; Try open; // ton traitement, ta récupération, tes boucles etc.. Finally // éventuellement Close; end; end;

---

---

Bonjour,

Merci pour vos recommandations et vos réponses rapides, mais l'exception est toujours générée pendant l'initialisation du paramètre.

Code:

---

SQL.Add('Where id= :id ');

---

Voir pile d'appel en pièce jointe.

Peut-il y avoir influence de la différence de casse 'id' et 'Id' entre le SQL et le ParamByName ?

Citation:

---

Envoyé par tourlourou

Peut-il y avoir influence de la différence de casse 'id' et 'Id' entre le SQL et le ParamByName ?

---

J'ai testé d'autres exemples en respectant scrupuleusement la casse avec le même message d'erreur.

Quel est le type de ID dans ta table ? Integer ? String ? autre ?

Citation:

---

Envoyé par Rayek

Quel est le type de ID dans ta table ? Integer ? String ? autre ?

---

C'est un Integer pour cet exemple !

J'ai trouvé ce lien :
http://qc.embarcadero.com/wc/qcmain.aspx?d=107267
Dans mon cas c'est la ligne 2508 ADODB.pas mais le même code

Code:

---

Parameter.Attributes := dwFlags and $FFFFFFF0; { Mask out Input/Output flags }

---

Pour ma part je trouve étrange que le code plante sur un SQL.Add

Essai avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

With ADOQuery1 do begin SQL.Clear; SQL.Add('Select * From [ma_table] '); SQL.Add('Where id= :id '); Paramcheck := True; // check les paramètres et les crées si nécessaire Parameters.ParamByName('Id').DataType := ftInteger; // ou une des valeurs TFieldType adéquate... Parameters.ParamByName('Id').Value := 4; Try open; Finally Close; end; end;

---

Citation:

---

Envoyé par Rayek

Pour ma part je trouve étrange que le code plante sur un SQL.Add

Essai avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

With ADOQuery1 do begin SQL.Clear; SQL.Add('Select * From [ma_table] '); SQL.Add('Where id= :id '); Paramcheck := True; // check les paramètres et les crées si nécessaire Parameters.ParamByName('Id').DataType := ftInteger; // ou une des valeurs TFieldType adéquate... Parameters.ParamByName('Id').Value := 4; Try open; Finally Close; end; end;

---

---

L'exception est toujours levé

Code:

---

SQL.Add('Where id= :id');

---

mais la requête s'exécute.

Je suis dans une config window 7 64 bits. Tous vos exemples fonctionnent sur xp
Si j'applique la ligne de code dans ce lien:
http://qc.embarcadero.com/wc/qcmain.aspx?d=107267
je n'ai plus le message d'erreur.
Bientôt résolu...:lol:

Bonjour,

peut-être cela n'a absolument rien à voir, mais pour ma part j'ai eu des problème avec le connecteur ODBC 5.1.9 Win64 ! en utilisant Delphi + ADO + ODBC alors que tout fonctionnait sous Win 7 32.

je suis repassé à la version 5.1.8 Win64 du driver ODBC et tout fonctionne ! ...

Citation:

---

Envoyé par Rayek

Pour ma part je trouve étrange que le code plante sur un SQL.Add

---

Ce n'est pas étrange, le Add provoque la modification du Text donc un relcalcul de Params

le try finally du Open Close est étrange, si Open échoue, le DataSet est fermé, le Close est théoriquement inutile

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

With ADOQuery1 do begin Paramcheck := True; // check les paramètres et les crées si nécessaire SQL.BeginUpdate(); try SQL.Clear; SQL.Add('Select * From [ma_table] '); SQL.Add('Where id= :id '); finally SQL.EndUpdate(); // normalement, cela déplace l'exception ici ! end;   Parameters.ParamByName('Id').DataType := ftInteger; // ou une des valeurs TFieldType adéquate... Parameters.ParamByName('Id').Value := 4;   try open; Try   finally Close; end; except ... end; end;

---

Cela semble être un bug de la couche ADO avec MySQL !
A cause d'une valeur rarement utilisée !

Il est prévu que le fameux dwFlags ne contienne normalement que

DBPARAMFLAGS_ISINPUT = $00000001;
DBPARAMFLAGS_ISOUTPUT = $00000002;
DBPARAMFLAGS_ISSIGNED = $00000010;
DBPARAMFLAGS_ISNULLABLE = $00000040;
DBPARAMFLAGS_ISLONG = $00000080;

via le masque $FFFFFFF0 cela retire 1 et 2 pour correspondre à ce que la propriété _Parameter.Attributes (OLEDB) accepte

adParamSigned = $00000010;
adParamNullable = $00000040;
adParamLong = $00000080;

Mais ils ont oublié

DBPARAMFLAGS_SCALEISNEGATIVE = $00000100;

Voir ICommandWithParameters::GetParameterInfo

. Soit forcer le champ ID en Unsigned
. Soit tu passes à XE3 Update X pour avoir la correction (quand ???)
. Soit tu regarde différente version du driver comme conseillé par steph1969, l'implémentation a pu changé, avant SCALEISNEGATIVE n'était peut-être pas précisé dans les précentes versions
. Soit tu bidouille ton propre ADO.DB , tu peux en faire une copie modifiée, en l'incluant la copie dans ton projet, cela supplantera celle fourni avec Delphi, je l'ai fait une fois pour un projet, je préfère éviter de modifier une unité fournie

le code proposé par Andrey Tulnov pourrait générer d'autres anomalies, si la dwFlags contient SCALEISNEGATIVE, il ne change plus du tout Attributes, cela pourrait être génant dans d'autres circonstances

Tente

Code:

---

Parameter.Attributes := dwFlags and $FFFFFFF0 and not DBPARAMFLAGS_SCALEISNEGATIVE; { Mask out Input/Output flags and negative flag }

---

ou

Code:

---

Parameter.Attributes := dwFlags and $FFFFFEF0; { Mask out Input/Output flags and negative flag }

---

ou

Code:

---

Parameter.Attributes := dwFlags and $D0; { Mask only adParamSigned, adParamNullable and adParamLong }

---

Après tout 10, 40 et 80
c'est 0001 0000, 0100 0000 et 1000 0000
donc 1101 0000 = D0 en masque

J'ai opté pour :

Citation:

---

Envoyé par ShaiLeTroll

. Soit tu bidouille ton propre ADO.DB , tu peux en faire une copie modifiée, en l'incluant la copie dans ton projet, cela supplantera celle fourni avec Delphi, je l'ai fait une fois pour un projet, je préfère éviter de modifier une unité fournie

---

et la premier solution qui répond à mes différents cas :

Code:

---

Parameter.Attributes := dwFlags and $FFFFFFF0 and not DBPARAMFLAGS_SCALEISNEGATIVE; { Mask out Input/Output flags and negative flag }

---

Avec les drivers ODBC 64 bits 5.x j'ai le message d'erreur suivant :
[Microsoft][Gestionnaire de pilotes ODBC] La source de données (DSN) spécifiée présente une incompatibilité d'architecture entre le pilote et l'application.
Je reste en MySQL ODBC 3.51.
Quel version de delphi steph1969 utilise ?

Merci à tous,