сохранение Image в ADOTable

[Alexsandr]

Не работает написал :
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2.ADOTable1.Edit;
Form2.ADOTable1.FieldByName('image' ).Assign(Form1.Image1.Picture.Bitma p);
Form2.ADOTable1.Post;
end;
Ошибку не выдаёт но картинка в бд на появилась.

[Alexsandr]

Не работает написал :
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2.ADOTable1.Edit;
Form2.ADOTable1.FieldByName('image' ).Assign(Form1.Image1.Picture.Bitma p);
Form2.ADOTable1.Post;
end;
Ошибку не выдаёт но картинка в бд не появилась.

[vovk]

а как вы проверили наличие картинки?

у меня так всё появляется.

[Alexsandr]

Прошу прощения я туплю. Действительно работает. глянул в DBGride а там ничего ,глянул в access всё в порядке .Огромное вам спасибо!!! А c ADOQuery
тоже можно так сделать?

[vovk]

Сообщение от Alexsandr

А c ADOQuery
тоже можно так сделать?

пост №4