Создание файла Excel используя ODBC"

24.03.2009, 20:20. **Показов** 4962. **Ответов** 3

Студворк — интернет-сервис помощи студентам

Не могу запустить этот пример... http://www.cyberguru.ru/cpp-sources/db/sozdanie-fajla-excel-ispolzuya-odbc.html

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
#include <AFXDB.H> 
 
// 
void main( int argc, char * argv[] ) 
//void MyDemo::Put2Excel()
{
  CDatabase database;
  CString sDriver = "MICROSOFT EXCEL DRIVER (*.XLS)";
  CString sExcelFile = "c:\\demo.xls";               
  CString sSql;
    
  TRY
  {
    
    sSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s",
                sDriver, sExcelFile, sExcelFile);
 
      if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
    {
      sSql = "CREATE TABLE demo (Name TEXT,Age NUMBER)";
      database.ExecuteSQL(sSql);
 
      sSql = "INSERT INTO demo (Name,Age) VALUES ('Bruno Brutalinsky',45)";
      database.ExecuteSQL(sSql);
 
      sSql = "INSERT INTO demo (Name,Age) VALUES ('Fritz Pappenheimer',30)";
      database.ExecuteSQL(sSql);
 
      sSql = "INSERT INTO demo (Name,Age) VALUES ('Hella Wahnsinn',28)";
      database.ExecuteSQL(sSql);
    }      
 
    database.Close();
  }
  CATCH_ALL(e)
  {
    TRACE1("Driver not installed: %s",sDriver);
  }
  END_CATCH_ALL;
}

Добавлено через 3 минуты 23 секунды
Debuger выдает ошибку 0xC0000005: Access Violation

oxotnik · 24.03.2009, 20:49

ну как минимум надо CDatabase открыть

24.03.2009, 22:34

она открыта

C++
1
 if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )

@YurA_280784 · 25.03.2009, 09:16

cplusiv,
держи функцию экспорта в EXCEL данных из Access из моей проги, убери всё что касается m_pView(это CRecordView для mdb - ного файла), а таблица создаётся как раз как ты хочешь, погляди...

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
103
104
105
106
107
108
109
110
111
void CWriteMDBDlg::OnExport() 
{
    // TODO: Add your command handler code here
    CRect m_pRect;
    CFileDialog fDlg(false);
    if(m_pView)
    {
        CDialog::GetWindowRect(&m_pRect);
        int cx = m_pRect.right - m_pRect.left;
        int cy = m_pRect.bottom - m_pRect.top - 54;
 
        strcpy(fDlg.m_ofn.lpstrFile,m_pView->m_pSet->GetTableName());
 
        fDlg.m_ofn.lpstrTitle  = "Select database";
        fDlg.m_ofn.lpstrFilter = "(*.xls)\0*.xls\0";
        fDlg.m_ofn.lpstrDefExt = "xls";
        if(fDlg.DoModal() == IDOK)
        {
//          char chPath[MAX_PATH];
//          GetShortPathName(fDlg.m_ofn.lpstrFile,chPath,MAX_PATH);
            CString sDSN         = "DSN=New Excel Data Source;";
            CString sDescr       = "Description=New Excel Data Source;";
            CString sDrvID       = "DriverId=278;";
            CString sDefDir      = "DefaultDir=" + (CString)fDlg.m_ofn.lpstrFile + ";";
//          CString sDefDir      = "DefaultDir=" + (CString)chPath + ";";
            CString sMaxRows     = "MaxScanRows=256;";
            CString sAtrb = sDSN + sDescr + sDrvID + sDefDir + sMaxRows;
            m_stat1_1 = "ODBC config Error" ;
            if (
                SQLConfigDataSource
                (
                    NULL,
                    ODBC_ADD_DSN,   
                    "Microsoft Excel Driver (*.xls)",
                    sAtrb
                    )
               )
            {
                m_stat1_1 = m_pView->m_pSet->GetTableName();
                CString str = "CREATE TABLE " + m_stat1_1;
                str += "([Код] LONG, [Поле1] TEXT, ";
                str += "[Столбец1] DOUBLE, ";
                str += "[Столбец2] DOUBLE, ";
                str += "[Столбец3] DOUBLE, ";
                str += "[Столбец4] DOUBLE, ";
                str += "[Столбец5] DOUBLE, ";
                str += "[Столбец6] DOUBLE, [Столбец7] DOUBLE)";
                CDatabase *pdb = new CDatabase();
                try
                {
                    pdb->OpenEx(sDSN,CDatabase::noOdbcDialog );
                    pdb->ExecuteSQL(str);
                }
                catch(CDBException *pCDBThrow)
                {
                    AfxMessageBox(pCDBThrow->m_strError);
                    pCDBThrow->Delete();
                }
                str.Format("INSERT INTO %s (%s,%s,%s,%s,%s,%s,%s,%s,%s)",
                    m_stat1_1,
                    "[Код]",
                    "[Поле1]",
                    "[Столбец1]",
                    "[Столбец2]",
                    "[Столбец3]",
                    "[Столбец4]",
                    "[Столбец5]",
                    "[Столбец6]",
                    "[Столбец7]");
                m_stat1_1 = str;
                
                m_pView->m_pSet->MoveFirst();
                while(!m_pView->m_pSet->IsEOF())
                {
str.Format("%s VALUES(\'%d\',\'%s\',\'%.f\',\'%.f\',\'%.f\',\'%.f\',\'%.f\',\'%.f\',\'%.f\');",
                    m_stat1_1,
                    m_pView->m_pSet->m_column1,
                    m_pView->m_pSet->m_____1,
                    m_pView->m_pSet->m________1,
                    m_pView->m_pSet->m________2,
                    m_pView->m_pSet->m________3,
                    m_pView->m_pSet->m________4,
                    m_pView->m_pSet->m________5,
                    m_pView->m_pSet->m________6,
                    m_pView->m_pSet->m________7);
                    m_pView->m_pSet->MoveNext();
                    try
                    {
                        pdb->ExecuteSQL(str);
                    }
                    catch(CDBException *pCDBThrow)
                    {
                        AfxMessageBox(pCDBThrow->m_strError);
                        pCDBThrow->Delete();
                    }
                }
                m_stat1_1 = (CString)"SQLConfigSource(\r\n" + 
                            "\tNULL,        \r\n"   + 
                            "\tODBC_ADD_DSN,\r\n"   +
                            "\t\"Microsoft Excel Driver (*.xls)\",\r\n" + 
                            "\t" + sAtrb + "\r\n) : OK\r\n";
                m_stat1_1 += "pdb->OpenEx(sDSN,CDatabase::noOdbcDialog) :\r\n";
                m_stat1_1 +=  pdb->GetConnect();
                pdb->Close();
                m_list1.ShowWindow(SW_HIDE);
                m_stat1.MoveWindow(0,0,cx,cy,true);
            }
        }
    }
    UpdateData(false);
}

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

oxotnik 1665 / 1134 / 80 Регистрация: 21.08.2008 Сообщений: 4,734 Записей в блоге: 1
	24.03.2009, 20:49
	ну как минимум надо CDatabase открыть 0