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

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

Как в таблицу Access засунуть документ Word и как с ним работать [D6, Access]


AFROLOV ©   (2002-04-09 15:58:00) 

Привет всем.
Как в таблицу Access засунуть документ Word (так что бы он лежал в базе а не болтался в виде отдельного файла) и как с ним потом работать(вытаскивать из базы)?
Заранее большое спасибо.


AFROLOV   (2002-04-17 11:20:00) [1]

А как его из поля достать?


Dok_3D   (2002-04-10 12:51:00) [2]

Немного обманул ... Вот так лучше:

var BlobStream : TStream;
FileStream : TFileStream;
begin
FileStream:=TFileStream.Create("имя файла",fmOpenRead);
Query.Edit;
BlobStream:=Query.CreateBlobStream(Query.FieldByName ("MEMOFIELD"),bmWrite);
BlobStream.CopyFrom(FileStream,0);
BlobStream.Free;
FileStream.Free;
Query.First; // ну или Next какой-нибудь, чтобы изменения вступили в силу
end;


AFROLOV   (2002-04-10 12:19:00) [3]

Спрасибо. Буду пытаться.


Dok_3D   (2002-04-10 11:52:00) [4]

Только вчера отвечал на тоже самое только наоборот

var BlobStream : TStream;
FileStream : TFileStream;
begin
FileStream:=TFileStream.Create("имя файла",fmRead);
BlobStream:=Query.CreateBlobStream(Query.FieldByName ("MEMOFIELD"),bmWrite);
BlobStream.CopyFrom(TFileStream,0);
BlobStream.Free;
FileStream.Free;
end;

Теоретически должно получиться ... Хотя в ACCESS никогда не пробовал.


AFROLOV   (2002-04-10 11:06:00) [5]

А как с обычным файлом? Я до этого момента с подобной задачей не сталкивался.


Dok_3D   (2002-04-10 10:20:00) [6]

Как как ...
Также как с обычным файлом.
Или это тоже непонятно ?


AFROLOV   (2002-04-10 10:15:00) [7]

Не ужели никто с этим не сталкивался?


Наверх

Титульная страница Поиск, карта сайта Написать письмо