Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.08;
Скачать: CL | DM;

Вниз

Хранение и отображение картики в базе Access   Найти похожие ветки 

 
Klever ©   (2006-08-05 22:19) [0]

Мне  нужно отображать в моей проге картинки для каждой строки записи базы Access. На форме лежит DBGrid1. Есть также кнопка открытия(добавления) картинки AddImage. И окно отображения DBImage1ю.Я пишу
procedure TForm1.AddImageClick(Sender: TObject);
var
ImageStream:TMemoryStream;
begin
if OpenPictureDialog1.Execute then begin
 ImageStream:=TMemoryStream.Create;
 try
   ImageStream.LoadFromFile(OpenPictureDialog1.FileName);
   try
       ADOQuery1.Append;
       ADOQuery1.FieldByName
("fieldpath").asString:=OpenPictureDialog1.FileName;
       TBlobField(ADOQuery1.FieldByName("ImageData")).LoadFromStream(ImageStream);
       ADOQuery1.Post;
       except on e:Exception do begin
             end;
       end;
 finally
   ImageStream.Free;
 end;
end;
end;

в базе данных есть такие поля
DI -AutoIncrement
fieldpath - Text (255)
ImageData - OLE Object

В ADOQuery1 настройки
Connection  :  DataModule1.ADOConnection1
Datasourse  :  DataModule1.DataSource1
Если я не включаю активным ADOQuery1  при выборе картинки нажатии Добавить открывается диалоговое окно добавления картинки. При нажатии на  картинку показывается сообщение:
Project Project.exe raised exception class EDatabaseError with message "ADOQuery1: cannot perform this operation on a closed dataset".Process stopped. Use Step or Run to continue.

При попытке поставить Active в True компилится нормально, но при запуске выдает осразу ошибку "Project Project.exe raised exception class EDatabaseError with message "Mising Connection or ConnectionString"..."

Вродебы все подробно описал .Как решить такую проблему. Уже не помню сколько над ней мучаюсь.
Заранее спасибо.


 
Johnmen ©   (2006-08-06 00:08) [1]

Читать до просветления предпоследний пост
http://delphimaster.net/view/3-1154704412/
и последний - в обязательном порядке!


 
Klever ©   (2006-08-06 10:54) [2]

to JohnPerdMem
Ты если не знаешь как помочь, то тихооонько сиди за компом и не умничай, а то много умных развелось, конкретного ответа дать не могут.


 
sniknik ©   (2006-08-06 12:30) [3]

ссылка и указание вроде на конкретное "лекарство"... ну а последнее совершенно справедливо если видя ответ ты не способен его даже понять...

ну а сам пост [2], показывает насколько на самом деле тебе это нужно... (вернее, а не нужно ли тебе другое? поиграть в "праведное возмушение" например)
посему... не обессудь.



Страницы: 1 вся ветка

Текущий архив: 2006.10.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.517 c
3-1154353448
zdm
2006-07-31 17:44
2006.10.08
Импорт из ACCESS


15-1158407045
WesT-N-GooD
2006-09-16 15:44
2006.10.08
Многоязыковая поддержка Windows-приложений


2-1153836302
Eskimo
2006-07-25 18:05
2006.10.08
Вопрос по датам


15-1158160397
Слоник
2006-09-13 19:13
2006.10.08
Равноудаление и все-все-все


15-1158229400
VitV
2006-09-14 14:23
2006.10.08
Книги Кэнту