Запись Картинки В Ado Таблицу

[Lomanu4]

ADOQuery1.Edit;
TBLOBField(ADOQuery1.FieldByName('myField')).LoadFromFile('c:\my.bmp');
ADOQuery1.Post;

 

[Sascha]

Пользуюсь немного подругому очень эффективно :
Добавить фото в таблицу:

uses  Jpeg;

private

  var
    Jpeg: TJPEGImage;
    bmp: TBitmap;

if OpenPictureDialog1.Execute then
  begin
    Jpeg := TJPEGImage.Create;
    bmp := TBitmap.Create;
    Jpeg.LoadFromFile(OpenPictureDialog1.Filename);
    bmp.Assign(Jpeg);
    DM.ADOQuery1.Edit;
    DM.ADOQuery1.FieldByName('Foto').Assign(bmp);
    DM.ADOQuery1.Post;
    Jpeg.Free;
    bmp.Free;
  end;

и удалить из нее:

 DM.ADOQuery1.Edit;
DM.ADOQuery1.FieldByName('Foto').Clear;

в таблице ячейка должен быть также соответствующий формат Пример: (Foto ) формат (OLE-Objekt).