Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Экспорт книги Excel в BLOB поле БД и обратно

Страницы: 1 2 >
Yourlastmist © (2010-11-24 10:02:00)
Здравствуйте!
Столкнулся с определенной проблемой при работе с Excel. В БД имеется BLOB поле. необходимо сохранить туда ведомость в формате EXCEL а потом при необходимости выводить ее обратно.
Не могу реализовать сие действо. Помогите кто знает как это возможно реализовать (желательно с примером).
Заранее благодарен!

картман (2010-11-24 14:15:00) [1]

> Текст сообщения об ошибке: "Невозможно прочитать файл".
> Этот текст выдает EXCEL а дельфя ничего не выдает, с ее
> точки зрения все операции выполнились, но судя по результатам
> открытия файла что-то тут не так))

как-то делал загрузку в базу файла и выгрузку, формат dot - открываю блокнотом - все нормально, программа, пользующаяся им - нифика, ругается... оказалось весело - в конец каждой строки добавлялся символ конец страницы - #12, вот... только я не помню, кто его туда загонял - грузились файлы прогой, написанной на дельфи , а выгражались C#... может, у тебя подобная хрень?

Anatoly Podgoretsky (2010-11-24 14:14:00) [2]
> Yourlastmist (24.11.2010 14:08:22) [22]

Говоришь есть, а на какую папку, а в другой момент времени тоже есть?

Yourlastmist (2010-11-24 14:14:00) [3]
Все разобрался. В коде всего 1 ошибка вместо test.xml нужно test.xls
Всем огромнейшее спасибо

Yourlastmist (2010-11-24 14:08:00) [4]
Права есть, судя по всему он почему-то не хочет перегонять файл из бинарных значений в EXCEL... блин второй день мучаюсь

Anatoly Podgoretsky (2010-11-24 13:47:00) [5]
А туда есть права, а при другом запуске?

> BLOBStream.SaveToFile('test.xml');

Yourlastmist (2010-11-24 13:08:00) [6]
Текст сообщения об ошибке: "Невозможно прочитать файл". Этот текст выдает EXCEL а дельфя ничего не выдает, с ее точки зрения все операции выполнились, но судя по результатам открытия файла что-то тут не так))
А по поводу ADOTable яж еще вверху написал что взял для примера ACCESS а соединение по ADO тут самое удобное мне кажется.

Anatoly Podgoretsky (2010-11-24 13:05:00) [7]

> выдает ошибку

Это текст сообщения об ошибке.

И это, выбрось ADOTable

Yourlastmist (2010-11-24 12:40:00) [8]
Хмм ну я думаю приведу все-таки свой код авось это поможет гуру.

procedureTForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute();
end;
Ну тут вроде все понятно открываю диалог, выбираю файл.

procedureTForm1.Button2Click(Sender: TObject);
var
i: integer;
BLOBStream : TADOBlobStream;
begin
ADOTable1.Active := True;
ADOTable1.First;
for i := 0 to ADOTable1.RecordCount - 1 do
Begin
ADOTable1.Delete;
ADOTable1.Next;
End;
ADOTable1.Insert;
ADOTable1.FieldByName('Наименование').Text := 'Файл';
BLOBStream:=TADOBlobStream.Create(TBlobField(ADOTable1.FieldByName('Файл')),bmWr ite);
BLOBStream.LoadFromFile(OpenDialog1.FileName);
BLOBStream.Free;
ADOTable1.post;
ADOTable1.Active := False;
end;

Тут тоже ничего не понятного нет, но что-то меня тут смущает. Идея заключалась в том, чтобы при нажатии кнопки выбранный файл через поток вгонялся в таблицу. Перед этим все записи в таблице удаляются (Для удобства, чтобы не гемороится с несколькими записями).

procedureTForm1.Button3Click(Sender: TObject);
var
BLOBStream : TADOBlobStream;

begin

ADOTable1.Active := True;
ADOTable1.First;
Edit1.Text := ADOTable1.Fields[2].Text;
ADOTable1.Edit;
BLOBStream:=TADOBlobStream.Create((ADOTable1.Fields[3] as TBlobField),bmReadWrite);
BLOBStream.SaveToFile('test.xml');
BLOBStream.Free;
ADOTable1.Active := False;
end;

И вроде как вот тут должно загонять все в EXCEL файл, но при попытке его потом открыть выдает ошибку. В принципе у меня возникают только 2 ответа на этот вопрос:
1) Я неправильно загнал файл изначально в таблицу
2) Я неправильно его выгружаю, т.е. не инициализирую приложение EXCEL (что-то вроде createoleobject(Excel.Application))ну и т.д.
Если причина вторая то подскажите плиз как грамотно из потока потом вставить в файл после создания новой книги EXCEL.
Опять е заранее благодарен.

Anatoly Podgoretsky (2010-11-24 12:20:00) [9]

> можно воспользоваться TDBImage

С этим вообще просто. Ctrl+C - Ctrl+V

В демос даже примеры есть, например Animal, я игрался - работает.

Anatoly Podgoretsky (2010-11-24 12:17:00) [10]
> Yourlastmist (24.11.2010 11:39:13) [13]

А я тоже не знаю, я не работаю с Акцесс, я его совсем не знаю, я работаю с
кодом.

СREATE Tbl(MyBLob binary)

Плохиш (2010-11-24 12:10:00) [11]

> Как загнать в blob поле картинку я знаю, для этого можно
> воспользоваться TDBImage

Мая плякать...

Плохиш (2010-11-24 12:09:00) [12]
TBlobField + F1/Google Примеров жевать не пережевать.

PS. Объясняю основы программирования - дорого.

Yourlastmist (2010-11-24 11:39:00) [13]

> Anatoly Podgoretsky © (24.11.10 11:31) [11]
> В Акцесс есть три поля типа "BLOB"
> Binary
> Image
> Text
> Использовать можно первый и второй, зависит от многих причин.
> Если ты хочешь работать как с объектом OLE, тогда второй.
> Если как с набором байтов, то первый.

В Аксцессе не нашел где эти типы выставляются, в режиме конструктора там просто выставляется Поле Объекта OLE. Как загнать в blob поле картинку я знаю, для этого можно воспользоваться TDBImage, меня интересует конкретно книга Excel, точнее первая ее страница, на которой содержится форматированный текст и форматированная таблица.

Yourlastmist (2010-11-24 11:33:00) [14]
Ну в целом меня вообще запросы в конкретных СУБД мало интересую. Для этого существует куча исчерпывающей информации.
Вопрос стоит как в blob поле набора данных поместить excel таблицу и выгрузить ее потом обратно в excel.
Если конкретизировать еще больше, то как в поле Fields[n] объекта TADOTable палитры инструментов dbGo (где n - номер поля) поместить xls файл и как его потом можно загнать обратно в excel. хотя вторая часть менее значима так как создание OLE объекта более тривиальная задача.

Anatoly Podgoretsky (2010-11-24 11:31:00) [15]
В Акцесс есть три поля типа "BLOB"
Binary Image Text
Использовать можно первый и второй, зависит от многих причин. Если ты хочешь работать как с объектом OLE, тогда второй. Если как с набором байтов, то первый.

Yourlastmist (2010-11-24 11:25:00) [16]

> Anatoly Podgoretsky © (24.11.10 10:45) [4]
> > Yourlastmist (24.11.2010 10:30:03) [3]
>
> Вообще то не видно.
>
>

> Anatoly Podgoretsky © (24.11.10 11:20) [8]
> Анекдот про приборы приводить не надо, мы его знаем, ты
> его знаешь, а ведешь себя как в анекдоте.
>
>

Anatoly Podgoretsky спасибо за исчерпывающие ответы

Anatoly Podgoretsky (2010-11-24 11:21:00) [17]

> СУБД любая, ну на примере MS ACCESS хотяб 2003 версии.

Ты что думаешь, что запросы во всех СУБД одинаковы.

Anatoly Podgoretsky (2010-11-24 11:20:00) [18]
Анекдот про приборы приводить не надо, мы его знаем, ты его знаешь, а ведешь себя как в анекдоте.

Yourlastmist (2010-11-24 10:58:00) [19]
СУБД любая, ну на примере MS ACCESS хотяб 2003 версии.
Грубо говоря для примера создал в ней БД с 1 таблицей содержащей 3 поля. Счетчик, Наименование файла, БЛОБ поле. В Программе связал БД и таблицу с набором данных в программе. Задача Загнать в БЛОБ поле таблицу EXCEL и выгрузить ее потом в EXCEL обратно. Создание OLE объекта можно не объяснять Ж-). С WORD пробовал тоже самое, пихал в BLOB поле через RichEdit, правда при выгрузке обратно терялось форматирование, но по крайней мере выгружалось (хз правда на каком этапе терялось форматирование). А вот с EXCEL не работает( РУки наверное косые.
Ну а теперь насчет анекдота:
Летит самолет. Командир штурману:
- Штурман, приборы.
- 16.
- Что 16?
- А что приборы?
Анекдот правда древний как мамонты)

И. Павел (2010-11-24 10:50:00) [20]
> [5] Yourlastmist © (24.11.10 10:48)

Название СУБД говорите. И анекдот про прибор заодно.

Страницы: 1 2 >

Наверх

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