Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.11.2011, 04:14   #1
Spot
Пользователь
 
Аватар для Spot
 
Регистрация: 04.06.2008
Сообщений: 32
По умолчанию Экспорт из Oracle в Excel

К Oracle подключаюсь через ADO (OraOLEDB.Oracle.1)
В ексель создаю новую книгу и вывожу так:
Код:
ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);
   Querys.DisableControls;
   Querys.First;
   While Not Querys.eof Do
   Begin
       For J := 1 To Querys.FieldDefs.Count Do
       Begin
           ArrayData[Querys.RecNo, J] :=
            Querys.FieldbyName(Querys.FieldDefs.Items[j - 1].DisplayName).value;
       End;
       Querys.Next;
   End;

   Querys.EnableControls;
   Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow+1, BeginCol];
   Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow + RowCount,
    BeginCol + ColCount - 1];
   Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
   Range.Value := ArrayData;
А в екселе вместо числовых данных выводятся денежный формат.
Например целый идентификатор 12574 выводится как 12574.00р.
Типы полей запроса заранее неизвестны.
В чем проблема: в Ексель, или в OLE Provider for Oracle

Последний раз редактировалось Spot; 16.11.2011 в 04:19.
Spot вне форума Ответить с цитированием
Старый 16.11.2011, 06:08   #2
Sparkman
220400
Форумчанин
 
Аватар для Sparkman
 
Регистрация: 21.05.2010
Сообщений: 726
По умолчанию

поставьте текстовый формат ячеек в Excel.
как то так
Код:
Range.NumberFormat := '@';
Cерьёзной помощи не ждите - помогаю в перерывах на "перекур".
Не существует ничего невозможного для человека, который не собирается ничего делать сам.
Не учите человека, если вы не его учитель.
Sparkman вне форума Ответить с цитированием
Старый 16.11.2011, 08:06   #3
Spot
Пользователь
 
Аватар для Spot
 
Регистрация: 04.06.2008
Сообщений: 32
По умолчанию

т.е. определяю тип данных полей запроса, и в соответствующие столбцы ексель меняю формат?
Хорошо, попробую.
PS: Эта утилитка выводила в ексель с MySQL, Interbase, MSSQL без проблем
Spot вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Экспорт в Excel zingo Помощь студентам 1 26.05.2011 05:33
Экспорт в Excel Gapro Общие вопросы Delphi 4 10.12.2009 10:29
Экспорт в Excel в БД kuzmich БД в Delphi 11 12.11.2009 11:27
Экспорт из Access в Excel, Экспорт из отчётов в таблицу Excel Kissedbythegod Microsoft Office Access 1 31.05.2008 22:15