Тема: ADO, MS Access 2
Показать сообщение отдельно
  #2  
Старый 02.05.2006, 01:47
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Не вижу проблемы
Набросал код за 3 минуты, проверил - работает
База Access
Таблица Pict
Поля Счетчик (Счетчик), pict1 (OLE)

вот так кладу картинку в базу:
Код:
ADOquery1.sql.text:='Insert into pict (pict1) Values (:b)';
ADOQuery1.parameters.parseSQL(ADOquery1.sql.text, true);
ADOQuery1.parameters.parambyname('b').LoadFromFile('c:\1.bmp',ftGraphic);
ADOQuery1.execsql;

а вот так достаю:
Код:
ADOquery1.sql.text:='Select * from pict';
ADOQuery1.Open;
ADOQuery1.First;
Image1.Picture.Bitmap.Assign(ADOQuery1.FieldByName('pict1'));

работает на ура
Ответить с цитированием