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

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

Запись и чтение книги Excel из БД Paradox


O?O ©   (2003-05-07 13:54:00) 

Как сохранить книги Excel или документ Word непосредственно в БД, и так-же открыть его ?


WarLord   (2003-05-08 10:10:00) [1]

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
if not OpenDialog1.Execute then exit;
with Query2 do
begin
SQL.Clear;
SQL.Add("INSERT INTO DOCTYP_DETAL");
SQL.Add("VALUES(:DOC_TYPID,:SHABLONINS)");
Parameters.ParamByName("DOC_TYPID").Value:=Query1.RecordCount+1;
Parameters.ParamByName("SHABLONINS").LoadFromFile(OpenDialog1.FileName, fTBlob);
ExecSQL;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
//Query1ShablonIns: TBlobField
begin
if not Query1.Active then exit;
Query1ShablonIns.SaveToFile("temp.doc");
OleContainer1.CreateObjectFromFile("temp.doc",false);
end;


WarLord   (2003-05-08 09:32:00) [2]

Используй для хранения файлов поле типа OLE


O?O   (2003-05-08 06:03:00) [3]

Никто не сталкивался?


Наверх

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