[JcN]

Delphi+Ado+Access
Проблема банальная. Когда загружаю катритку через Table:

Код:

if OpenD1.Execute then
begin
ADOTable1.Edit;
AdoTable1Foto.LoadfromFile(OpenD1.FileName);
AdoTable1.Post;
end;

всё прекрасно работает.
Но вот не получается загрузить через Query.

Код:

 { DataModule2.Query.Close;
  DataModule2.Query.sql.Clear;
  DataModule2.Query.sql.Add('Update Tovar set Foto=:f  Where IDtovar=:t');
 DataModule2.Query.Parameters.ParamByName('t').Value:= Strtoint (DBEdit4.Text);
 DataModule2.Query.Parameters.ParamByName('f').LoadFromFile(OpenD1.FileName);
  DataModule2.Query.ExecSQL;

подскажите как решить вопрос
Спасибо

[TOJluK]

По- моему так должно быть:

Код:

DataModule2.Query.ParamByName('f').LoadFromFile(OpenD1.FileName, ftBlob);

[JcN]

получилось!
Может кому пригодится
Запрос

Код:

Update Tovar
set Foto=:f
Where IDtovar=:T

Указал в свойстве параметра "f" тип ftblob
и потом:

Код:

if OpenPD3.Execute then
 begin
  DataModule2.UFoto.Close;
 DataModule2.UFoto.Parameters.ParamByName('T').Value:= Strtoint (DBEdit4.Text);
 DataModule2.UFoto.Parameters.ParamByName('f').LoadFromFile(OpenPD3.FileName,ftblob);
  DataModule2.UFoto.ExecSQL;