Форум программистов, компьютерный форум, киберфорум
C++ Builder: Базы данных
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder > C++ Builder: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
2 / 2 / 1
Регистрация: 25.11.2016
Сообщений: 11

Баг при выводе в Excel из DBGrid

16.05.2018, 11:52. Показов 1835. Ответов 4
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Всем привет. Нашел на просторах этого форума код (ссылка на тему, последний пост от Bit_Man: Экспорт из DBGrid в Excel )
Он отлично берет из DBGrid моего и выводит в Excel. Я добавил только "L" перед русским текстом в MessageBox, чтоб не билдер не ругался.
Вот код
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

void __fastcall TForm5::Button3Click(TObject *Sender)
{
TDataSet * DataSet = DBGrid1->DataSource->DataSet;
    if (!DataSet->Active)
    try
      {DataSet->Open();}
    catch(...)
      {Application->MessageBox(L"Ошибка при открытии Набора Данных(DataSet)!",L"Ошибка", MB_OK + MB_ICONERROR);
       return;}
    Cursor = crHourGlass;
    Variant Excel, Cells;
    try
      {Excel = CreateOleObject("Excel.Application");}
    catch(...)
      {Excel = Unassigned;
       Cursor = crDefault;
       Application->MessageBox(L"Ошибка при открытии сервера Excel!",L"Ошибка", MB_OK + MB_ICONERROR);
       return;}
    Excel.OlePropertySet("DisplayAlerts", false);
    Excel.OlePropertySet("Visible",false);
    Excel.OlePropertySet("WindowState",-4137);
 
    try
      {Excel.OlePropertyGet("Workbooks").OleProcedure("Add");}
    catch(...)
      {Excel.OleProcedure("Quit");
       Excel = Unassigned;
       Cursor = crDefault;
       Application->MessageBox(L"Ошибка при создании книги!",L"Ошибка", MB_OK + MB_ICONERROR);
       return;}
 
    Cells = Excel.OlePropertyGet("Cells");
    short n(0);//VisibleColumnsCount
    try
     {
      for (int i=0; i < DBGrid1->Columns->Count; i++)
        if (DBGrid1->Columns->Items[i]->Visible)
         {n++;
          Cells.OlePropertyGet("Item",1,n).OlePropertySet("Value", DBGrid1->Columns->Items[i]->Title->Caption.c_str());
          //Горизонтальное выравнивание -> По центру
          Cells.OlePropertyGet("Item", 1, n).OlePropertySet("HorizontalAlignment", -4108);
          //Шрифт -> Жирный
          Cells.OlePropertyGet("Item",1,n).OlePropertyGet("Font").OlePropertySet("Bold", True);
         }
     }
    catch(...)
     {Excel.OleProcedure("Quit");
      if (DataSet->ControlsDisabled()) DataSet->EnableControls();
      Cursor = crDefault;
      Application->MessageBox(L"Ошибка при передачи данных столбцов!",L"Ошибка", MB_OK + MB_ICONERROR);
      Excel = Unassigned; Cells = Unassigned;
      return;}
 
    TBookmark  m = DataSet->GetBookmark();
    DataSet->DisableControls();
    DataSet->First();
    try
     {
      while(!DataSet->Eof)
       {n = 0;
        for (int i=0; i < DBGrid1->Columns->Count; i++)
          if (DBGrid1->Columns->Items[i]->Visible)
           {n++;
            Cells.OlePropertyGet("Item",DataSet->RecNo + 1, n).
              OlePropertySet("Value", DBGrid1->Columns->Items[i]->Field->AsString.c_str());
            if (i != 2)
              Cells.OlePropertyGet("Item", DataSet->RecNo + 1, n).OlePropertySet("HorizontalAlignment", -4108);
            else
              //С левого края
              Cells.OlePropertyGet("Item", DataSet->RecNo + 1, n).OlePropertySet("HorizontalAlignment", -4131);
           }
        DataSet->Next();
       }
      //Cтиль линии
      Excel.OlePropertyGet("Range",Cells.OlePropertyGet("Item", 1, 1),
        Cells.OlePropertyGet("Item", DataSet->RecordCount + 1, n)).
        OlePropertyGet("Borders").OlePropertySet("LineStyle", 1);
     }
    catch(...)
     {Excel.OleProcedure("Quit");
      DataSet->GotoBookmark(m); DataSet->FreeBookmark(m);
      if (DataSet->ControlsDisabled()) DataSet->EnableControls();
      Excel = Unassigned; Cells = Unassigned;
      Cursor = crDefault;
      Application->MessageBox(L"Ошибка при передачи данных",L"Ошибка", MB_OK + MB_ICONERROR);
      return;}
    //Ставим АвтоФильтр
    Excel.OlePropertyGet("Range",Cells.OlePropertyGet("Item",1,1),
      Cells.OlePropertyGet("Item",1,n)).OleProcedure("AutoFilter");
    //АвтоФит
    for (int i=1; i <= n; i++)
      Excel.OlePropertyGet("Columns").OlePropertyGet("Item",i).OleProcedure("AutoFit");
    DataSet->GotoBookmark(m); DataSet->FreeBookmark(m);
    if (DataSet->ControlsDisabled()) DataSet->EnableControls();
    Cursor = crDefault;
    Excel.OlePropertySet("Visible",true);
    Excel = Unassigned;
    Cells = Unassigned;
}
Одна проблема: в ячейки Excel заполняются почему-то ровно половина информации из DBGrid. К примеру нужно: "Масло подсолнечное", а оно вводит "Масло по". "Соль" = "Со". Так же и с названиями столбцов.
Скрины ниже. Скажите, в чем ошибка. Спасибо
Миниатюры
Баг при выводе в Excel из DBGrid   Баг при выводе в Excel из DBGrid  
0
Лучшие ответы (1)
Сообщение: #12398538
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 16.05.2018, 11:52
Ответы с готовыми решениями:

Баг при выводе файлов
Здравствуйте. Есть тестовый говнокод функции: function showTree($folder, $space) { $files = scandir($folder); echo...

Установка DBGrid columns при выводе через запрос SQLquery (обычный вывод в editing DBGrid Columns все настраивается)
procedure TForm1.Button33Click(Sender: TObject); //Кнопка Все вывести begin sqlquery2.Active:=FALSE; ...

Проблемы при выводе в DBgrid
У меня в Table1, цена выводится со знаком вопроса: Как сделать нормальный вывод? В Database Desktop формат стоит - $(Money)

4
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33404 / 21514 / 8236
Регистрация: 22.10.2011
Сообщений: 36,914
Записей в блоге: 12
17.05.2018, 16:26
Не нужно работать с c_str(), Excel заточен на использование WideString-ов:

C++
1
2

            Cells.OlePropertyGet("Item",DataSet->RecNo + 1, n).
              OlePropertySet("Value", DBGrid1->Columns->Items[i]->Field->AsWideString);
1
2 / 2 / 1
Регистрация: 25.11.2016
Сообщений: 11
17.05.2018, 17:25  [ТС]
volvo, тогда срабатывает исключение "Ошибка при передачи данных"

Добавлено через 30 минут
volvo, вот так заработало:
C++
1
2

Cells.OlePropertyGet("Item",DataSet->RecNo + 1, n).
              OlePropertySet("Value", (WideString)DBGrid1->Columns->Items[i]->Field->AsWideString);
Но названия столбцов еще так же обрезаются.

Не по теме:


Как же надоела эта ошибка:
[bcc32 Fatal Error] F1014 Failed to allocate SAVEmem

а когда после нее еще раз запускаешь проект, то вылетает эта:
[bcc32 Error] "bcc32" exited with code 1.

Это происходит при любом изменении кода на любой форме. Приходится сохранять, закрыть проект, открывать заново и запускать. Тогда без ошибок. При очередной попытке что-то изменить - опять та же песня. Помогает только перезапуск винды, и то не надолго.:ireful:

0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33404 / 21514 / 8236
Регистрация: 22.10.2011
Сообщений: 36,914
Записей в блоге: 12
17.05.2018, 17:31
Лучший ответ Сообщение было отмечено sanches26 как решение

Решение

C++
64
65

            Cells.OlePropertyGet("Item",DataSet->RecNo + 1, n).
              OlePropertySet("Value", WideString(DBGrid1->Columns->Items[i]->Field->AsWideString));
, ну и заодно

C++
39

Cells.OlePropertyGet("Item",1,n).OlePropertySet("Value", WideString(DBGrid1->Columns->Items[i]->Title->Caption));
, только что проверил: XE4/XE8 прекрасно переносят данные в Excel, никаких ошибок нет.
1
2 / 2 / 1
Регистрация: 25.11.2016
Сообщений: 11
17.05.2018, 18:04  [ТС]
volvo, Спасибо за помощь!

Вот готовый код:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102

#include      <ComObj.hpp>
#include      <utilcls.h>
 
void __fastcall TForm5::Button3Click(TObject *Sender)
{
TDataSet * DataSet = DBGrid1->DataSource->DataSet;
    if (!DataSet->Active)
    try
      {DataSet->Open();}
    catch(...)
      {Application->MessageBox(L"Ошибка при открытии Набора Данных(DataSet)!",L"Ошибка", MB_OK + MB_ICONERROR);
       return;}
    Cursor = crHourGlass;
    Variant Excel, Cells;
    try
      {Excel = CreateOleObject("Excel.Application");}
    catch(...)
      {Excel = Unassigned;
       Cursor = crDefault;
       Application->MessageBox(L"Ошибка при открытии сервера Excel!",L"Ошибка", MB_OK + MB_ICONERROR);
       return;}
    Excel.OlePropertySet("DisplayAlerts", false);
    Excel.OlePropertySet("Visible",false);
    Excel.OlePropertySet("WindowState",-4137);
 
    try
      {Excel.OlePropertyGet("Workbooks").OleProcedure("Add");}
    catch(...)
      {Excel.OleProcedure("Quit");
       Excel = Unassigned;
       Cursor = crDefault;
       Application->MessageBox(L"Ошибка при создании книги!",L"Ошибка", MB_OK + MB_ICONERROR);
       return;}
 
    Cells = Excel.OlePropertyGet("Cells");
    short n(0);//VisibleColumnsCount
    try
     {
      for (int i=0; i < DBGrid1->Columns->Count; i++)
        if (DBGrid1->Columns->Items[i]->Visible)
         {n++;
          Cells.OlePropertyGet("Item",1,n).OlePropertySet("Value", WideString(DBGrid1->Columns->Items[i]->Title->Caption));
          //Горизонтальное выравнивание -> По центру
          Cells.OlePropertyGet("Item", 1, n).OlePropertySet("HorizontalAlignment", -4108);
          //Шрифт -> Жирный
          Cells.OlePropertyGet("Item",1,n).OlePropertyGet("Font").OlePropertySet("Bold", True);
         }
     }
    catch(...)
     {Excel.OleProcedure("Quit");
      if (DataSet->ControlsDisabled()) DataSet->EnableControls();
      Cursor = crDefault;
      Application->MessageBox(L"Ошибка при передачи данных столбцов!",L"Ошибка", MB_OK + MB_ICONERROR);
      Excel = Unassigned; Cells = Unassigned;
      return;}
 
    TBookmark  m = DataSet->GetBookmark();
    DataSet->DisableControls();
    DataSet->First();
    try
     {
      while(!DataSet->Eof)
       {n = 0;
        for (int i=0; i < DBGrid1->Columns->Count; i++)
          if (DBGrid1->Columns->Items[i]->Visible)
           {n++;
            Cells.OlePropertyGet("Item",DataSet->RecNo + 1, n).
              OlePropertySet("Value", WideString(DBGrid1->Columns->Items[i]->Field->AsWideString));
            if (i != 2)
              Cells.OlePropertyGet("Item", DataSet->RecNo + 1, n).OlePropertySet("HorizontalAlignment", -4108);
            else
              //С левого края
              Cells.OlePropertyGet("Item", DataSet->RecNo + 1, n).OlePropertySet("HorizontalAlignment", -4131);
           }
        DataSet->Next();
       }
      //Cтиль линии
      Excel.OlePropertyGet("Range",Cells.OlePropertyGet("Item", 1, 1),
        Cells.OlePropertyGet("Item", DataSet->RecordCount + 1, n)).
        OlePropertyGet("Borders").OlePropertySet("LineStyle", 1);
     }
    catch(...)
     {Excel.OleProcedure("Quit");
      DataSet->GotoBookmark(m); DataSet->FreeBookmark(m);
      if (DataSet->ControlsDisabled()) DataSet->EnableControls();
      Excel = Unassigned; Cells = Unassigned;
      Cursor = crDefault;
      Application->MessageBox(L"Ошибка при передачи данных",L"Ошибка", MB_OK + MB_ICONERROR);
      return;}
    //Ставим АвтоФильтр
    Excel.OlePropertyGet("Range",Cells.OlePropertyGet("Item",1,1),
      Cells.OlePropertyGet("Item",1,n)).OleProcedure("AutoFilter");
    //АвтоФит
    for (int i=1; i <= n; i++)
      Excel.OlePropertyGet("Columns").OlePropertyGet("Item",i).OleProcedure("AutoFit");
    DataSet->GotoBookmark(m); DataSet->FreeBookmark(m);
    if (DataSet->ControlsDisabled()) DataSet->EnableControls();
    Cursor = crDefault;
    Excel.OlePropertySet("Visible",true);
    Excel = Unassigned;
    Cells = Unassigned;
}

Не по теме:


У меня XE3.
И не только у меня такая проблема. Что-то непонятное, в интернете облазил всё, у многих такая же фигня. Где-то читал, что это такой баг Embarcadero.
[bcc32 Fatal Error] F1014 Failed to allocate SAVEmem

а когда после нее еще раз запускаешь проект, то вылетает эта:
[bcc32 Error] "bcc32" exited with code 1.

Это происходит при любом изменении кода на любой форме. Приходится сохранять, закрыть проект, открывать заново и запускать. Тогда без ошибок. При очередной попытке что-то изменить - опять та же песня. Помогает только перезапуск винды, и то не надолго.



Добавлено через 26 минут

Не по теме:


Сейчас даже перезагрузил винду, запустил MS SQL Server Management, запустил проект, просто открыл Form5, ничего не изменял даже, запустил проект и всё: [bcc32 Fatal Error] F1014 Failed to allocate SAVEmem

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 17.05.2018, 18:04
Помогаю со студенческими работами здесь

Ошибка при выводе в DBgrid, ADO
На форме стоит стоит два Dblookupcombobox`a со значением цех и станок, цех связан со станками мастерфилдом, тобишь при выборе цеха...в...

Ошибка при выводе в Word из DbGrid
Доброго времени суток. Приложение на Rad Studio 10 Seattle. Используются компоненты dbExpress. К сути - на одной форме код вывода в...

Кодировка при выводе в dbGrid из MySql
В базе данных к которой хочу приконнектиться через делфи 7 с помощью компонента uniDAC стоит кодировка cp1251_ukrainian_ci (пробовал utf8,...

Заполнение шаблона excel из DBGrid при этом сохранив имеющиеся данные в excel
Здравствуйте. у меня есть список который при нажатии на кнопку в делфи заполнятся в excel. Как мне сделать так чтоб когда заполняется...

Ошибка при выводе в excel
Всем привет друзья! У меня вопрос связанный с выводом БД access в excel.Пытаюсь вывести таким образом: procedure...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru