Не могу понять в чем проблема

[Lecter2009]

Вставка картинки в БД Access, код:

t := 'D:\1.jpg';
ADOQuery1.sql.Add('Insert into Images (Type, Image) Values (:Type, :Image)');
ADOQuery1.parameters.parambyname('Type').Value := 'ffff';
ADOQuery1.parameters.parambyname('Image').DataType := ftBlob;
ADOQuery1.parameters.parambyname('Image').LoadFromFile(t,ftBlob);
ADOQuery1.Prepared;
ADOQuery1.execsql;

Пишет "Ошибка синтаксиса в инструкции INSERT INTO"...." Где ошибка то? Здесь, на этом форуме пример нашел - там все тоже самое.

Поля в БД: Type - текстовый; Image - поле объекта OLE

[evg_m]

ADOQuery1.sql.Add('Insert into Images (Type, Image) Values (:Type, :Image)');
ADOQuery1.parameters.parambyname('Type').Value := 'ffff';
ADOQuery1.parameters.parambyname('Image').DataType := ftBlob;
ADOQuery1.parameters.parambyname('Image').LoadFromFile(t,ftBlob);
showmessage(adoquery1.sql.text);

добавь выделенную строчку и посмотри как выглядит твой запрос
подозреваю там идет дублирование т.к. нет очистки текста

[artemavd]

Так попроуй:

t := 'D:\1.jpg';
ADOQuery1.Active:=False;
ADOQuery1.sql.Text:='Insert into Images(Type,Image) Values(:Type, :Image)';
ADOQuery1.parameters.parambyname('Type').Value := 'ffff';
ADOQuery1.parameters.parambyname('Image').DataType := ftBlob;
ADOQuery1.parameters.parambyname('Image').LoadFromFile(t,ftBlob);
//ADOQuery1.Prepared; <--мне кажется это лишняя строчка
ADOQuery1.execsql;

[Lecter2009]

добавь выделенную строчку и посмотри как выглядит твой запрос
подозреваю там идет дублирование т.к. нет очистки текста

Добавил, запрос имеет вид: Insert into Images(Type,Image) Values(:Type, :Image)

Вроде никаких дублей...

//ADOQuery1.Prepared; <--мне кажется это лишняя строчка

Убирал - не помогает

[Stilet]

Оффтоп:

artemavd

Откуда такая любовь к полным путям? Не красивее ли:

with ADOQuery1 do begin
 Active:=False;
 sql.Text:='Insert into Images(Type,Image) Values(:Type, :Image)';
 with parameters do begin 
   parambyname('Type').Value := 'ffff';
   parambyname('Image').DataType := ftBlob;
   parambyname('Image').LoadFromFile(t,ftBlob);
 end;
execsql;
end;

[artemavd]

Откуда такая любовь к полным путям?

Да я как бы делал по примеру автора)

[Lecter2009]

Все, разобрался. Что то не то было с файлом БД, пересоздал новый - все заработало. Всем спасибо

[Lecter2009]

Насчет путей. В основной программе я пишу красиво, так же как показал Stilet Тут приведен просто тестовый пример, лень было "красоту наводить" ) Все равно удалять