| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поместить файл в базу данных [D7, Access ]

gedd ©   (2004-11-11 18:07:00) 

Люди помогите ничего не понимаю вот код
говорит что dataset не в режиме edit? насильно поставить его не помогает, где ошибка?

Stream:= form1.ADOQuery1.CreateBlobStream( form1.ADOQuery1.FieldByName('tbf1') , bmReadWrite);
 try
   Stream.Seek(0, soFromBeginning);
   fs := TFileStream.Create(form1.psvOpenDialog1.FileName, fmOpenRead);
   try
    Stream.CopyFrom(fs, fs.Size)
   finally
    fs.Free
   end;
 finally
 Stream.Free
 end;

---

gedd   (2004-11-12 17:17:00) [1]

Удалено модератором

---

gedd   (2004-11-12 12:19:00) [2]

До этой строки
Stream:= form1.ADOQuery1.CreateBlobStream( form1.ADOQuery1.FieldByName('tbf1') , bmReadWrite);
ставлю form1.ADOQuery1.Edit;

---

Reindeer Moss Eater   (2004-11-11 18:33:00) [3]

И где ты его насильно в режим Edit ставишь?

---

Наверх