С Новым годом! Форум программистов, компьютерный форум, киберфорум
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. Показов 1792. Ответов 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
33197 / 21493 / 8233
Регистрация: 22.10.2011
Сообщений: 36,886
Записей в блоге: 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
33197 / 21493 / 8233
Регистрация: 22.10.2011
Сообщений: 36,886
Записей в блоге: 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
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
 Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru