Bojour, je voudrais enregistrer une image dans ma base ADO par le biais d'un ADOQuery.
Si je fais :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.SpeedButonPhotoClick(Sender: TObject);
begin
  If OpenDialog1.Execute
  Then
    Try
      ADOtable1.Append;
      DBImage1.Picture.Bitmap.LoadFromFile(OpenDialog1.FileName);
      ADOtable1.Post;
    Except
      ShowMessage('Registre actuellement en edition !');
    End;
L'image est enregistrée mais avec :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('INSERT INTO UTILISATEUR');
    ADOQuery1.SQL.Add('(Pseudo, Photo)');
    ADOQuery1.SQL.Add('VALUES ("'+EditPseudo.Text+'","'+DBImage1.Picture+'")');
    Try
    ADOQuery1.Prepared:=True;
    ADOQuery1.ExecSQL;
    ADOQuery1.Close;
    Except
    MessageDlg('...',mtError,[mbOk], 0);
    Close;
    end;
J'ai un message d'erreur. Que dois-je faire ?