Discussion :

[yamino]

Bonjour,

Comme le dit le titre, il m'est toujours impossible de réaliser un UPDATE ou un INSERT quand, dans ma table MySQL, j'ai un champ auto-incrémenté.
Si je le supprime ça fonctionne nickel.

Voici une partie de code qui pose problème :

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
27
28
29
30
procedure TfrmIcones.dbiIconeDblClick(Sender: TObject);
var
  img_id : string;
begin
  if OpenPictureDialog.Execute then
  begin
    with qryIcones do
    begin
      img_id := FieldByName('idimage').AsString;
      Close;
      SQL.Clear;
      SQL.Add('UPDATE icones SET image = :myimg WHERE idimage = ' + img_id);
      ParamCheck := True;
      Parameters.ParamByName('myimg').LoadFromFile(OpenPictureDialog.FileName, ftBlob);
      try
        ExecSql;
        Active := False;
        SQL.Clear;
        SQL.Add('SELECT * FROM icones ORDER BY application');
        Active := True;
        Locate(img_id, 'idimage', []);
      Except on E:Exception do
        begin
          Showmessage('Erreur lors de l''insertion de l''image dans la base de données : ' +
          E.Message);
        end;
      end;
    end;
  end;
end;

Delphi me retourne l'erreur :

"Le projet a déclenché la classe d'exception EOleException avec le message 'Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres'."

Sur le code

Code :

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

SQL.Add('UPDATE icones SET image = :myimg WHERE idimage = ' + img_id);

Pour info j'utilise Delphi 2010 et je me connecte en ADO sur ma DB MySQL.

[ShaiLeTroll]

Tu es sur d'avoir correctement analysé le problème ?
Beaucoup d'assistant d'administration de MySQL ajoute un AutoInc systématique à la création de table, très utile pour les jointures !
J'ai utilisé MySQL via ADO (Delphi 7) par curiosité, je n'avais QUE des AutoInc !

Tu as vraiment l'erreur sur cette ligne ?
As-tu essayé de stocker le SQL dans une variable String (ou même une AnsiString) et de passer la variable en paramètre au Add ?

Sinon, tu peux éviter les paramètre, qu'il suffit d'encoder le Stream Image en Base64 directement en chaine dans le SQL, il faut ajouter 0x devant ... ou mettre h à la fin, j'ai maintenu MySQL et PostreSQL, donc je mélange les deux !

Avec MyDAC de Devart CoreLab, l'utilisation de Paramètre pour l'écriture dans un BLOB est la plus efficace, comme tu l'as écrit pour ADO !

Pense à augmenter la taille de buffer SQL maximum, souvent un SQL est limité à 32Ko !

Pourquoi ne pas être rigoureux et utiliser systématiquement les paramètres ?

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  img_id : Integer;
...
img_id := FieldByName('idimage').AsInteger;
SQL.Text := 'UPDATE icones SET image = :myimg WHERE idimage = :img_id';
ParamCheck := True;
Parameters.ParamByName('myimg').LoadFromFile(OpenPictureDialog.FileName, ftBlob);
Parameters.ParamByName('img_id').AsInteger := img_id;

[yamino]

Bonjour ShaiLeTroll,

Tout d'abord merci.
Suite à ta réponse j'ai réalisé plusieurs tests avec un nouveau ADOQuery lié à une table bidon avec un champ auto-incrémenté.
J'ai alimenté cette table et cela fonctionnait sans problème.

Le souci provenait donc d'un de mes composant.
Après comparaison j'ai remarqué que mon type de curseur avait changé.
Je l'ai remis en ctKeyset et maintenant ça refonctionne.

Encore merci à toi