Загрузка и отображение в бд aceess - Компьютерный форум OSzone.net

Таблица отображается в dbgrid. Вот код 2 кнопок. Не грузит изображения. Уже по всякому пробЫвал надоело мучиться с ним. Может поможет кто?

Код:

procedure TForm10.sButton4Click(Sender: TObject);

var

Blob:TMemoryStream;

begin

try

if OpenPictureDialog1.Execute then

begin

ADOQuery1.Edit;

TBLOBField(ADOQuery1.FieldByName('Фото')).LoadFromFile(OpenPictureDialog1.FileName);

ADOQuery1.Post;

ADOQuery1.Refresh;

end;

except

on e:Exception do

end;

end;

 

 

procedure TForm10.sButton5Click(Sender: TObject);

var

jpg:TJPEGImage;

Blob:TMemoryStream;

bmp:TBitmap;

begin

try

bmp:=TBitmap.Create;

jpg:=TJPEGImage.Create;

ADOQuery1.First;

Blob:=TADOBlobStream.Create(TBlobField(ADOQuery1.FieldByName('Фото')),bmRead);

jpg.LoadFromStream(Blob);

DBImage1.Picture.Assign(jpg);

 ADOQuery1.Post;

ADOQuery1.Refresh;

jpg.Free;

Blob.Free;

bmp.Free;

except

on e:Exception do

begin

jpg.Free;

Blob.Free;

bmp.Free;

end;

end;

end;