Discussion :

[Blagueur]

bonjour, j'ai un problème l'or de l'insertion d'une image dans ma bdd 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
16
17
18
19
20
21
22
if OpenPictureDialog.execute then
  With DataModule1.ADOQMembres do
    begin
      Close;    //ferme le query
      SQL.Clear;
      SQL.add('insert into dbo.MEMBRE(photo_Mem)');
      SQL.Add('Values(:photo_Mem)');
      ParamCheck := True;
      Parameters.ParamByName('photo_Mem').LoadFromFile(OpenPictureDialog.Filename, ftBlob);
    try
      DataModule1.ADOQMembres.ExecSQL;
 
      ImagePhoto.Picture.LoadFromFile(OpenPictureDialog.FileName);
    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;
DataModule1.ADOQMembres.Open;
DataModule1.ADOQMembres.edit;
end;

quand j'ouvre ma form tout les champs sont en mode insert, jusqu'à que j'appuie sur ok et que ça valide l'enregistrement, le problème que j'ai c'est quand j'insère l'image, une fois qu'elle est insérée ça ferme mon query apparemment. Alors j'ai essayé de le remettre en active puis en edit, mais ça me retourne le message d'erreur suivant : "ADOQMembres: CommandText ne renvoie pas un ensemble de résultats'. "

merci d'avance pour votre aide

[Cl@udius]

Salut

Cela vient de cette ligne à la fin de ta procédure:

Code :

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

DataModule1.ADOQMembres.Open;

Après ton insertion ADOQMembres contient toujours la commande SQL INSERT. D'où l'échec sur le Open.
Je te suggère de travailler sur un Query différent pour effectuer tes insertions.

@+ Claudius.

[Blagueur]

oui mais la photo doit être dans le même insert que mes autres infos à rentrer, si j'utilise un autre query l'image ne sera pas dans le même enregistrement non ?