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

**Eagle** · 22/10/2012, 17h30

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 :

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

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...

**Ph. B.** · 22/10/2012, 19h05

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 :

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

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;

**BuzzLeclaire** · 22/10/2012, 23h20

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 :

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

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;

**Eagle** · 23/10/2012, 10h22

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 :

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

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 :

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

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

Voir pile d'appel en pièce jointe.

**tourlourou** · 23/10/2012, 11h00

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

**Eagle** · 23/10/2012, 11h20

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.

**Rayek** · 23/10/2012, 12h04

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

**Eagle** · 23/10/2012, 12h34

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 :

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

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

**Rayek** · 23/10/2012, 14h44

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

Essai avec le code suivant :

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
 
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;

**Eagle** · 23/10/2012, 15h32

Envoyé par Rayek

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

Essai avec le code suivant :

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
 
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 :

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

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...

**steph1969** · 23/10/2012, 15h54

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 ! ...

**ShaiLeTroll** · 23/10/2012, 16h02

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 :

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
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 :

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

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

ou

Code :

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

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

ou

Code :

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

 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

**Eagle** · 24/10/2012, 11h39

J'ai opté pour :

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 :

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

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,

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

Bases de données Delphi

Discussions similaires

Partager

Partager