Форум программистов, компьютерный форум, киберфорум
C/C++
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
2 из 2 « 1 2
 
Рейтинг 4.65/23: Рейтинг темы: голосов - 23, средняя оценка - 4.65
164 / 49 / 27
Регистрация: 04.06.2013
Сообщений: 636

Работа с OLE (создать документ Access)

27.06.2013, 22:51. Показов 5054. Ответов 27
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
пытаюсь создать документ access, но выдаёт ошибку.
C++
1
2
3
4
5
6

vVarApp=CreateOleObject("Access.Application");
   AnsiString vAsCurDir=GetCurrentDir();
AnsiString vAsCurDir1=vAsCurDir+"\\my.mdb";
ShowMessage(vAsCurDir1);
vVarDoc.OleProcedure("SaveAs",vAsCurDir1.c_str());
vVarApp.OleProcedure("Quit");
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 27.06.2013, 22:51
Ответы с готовыми решениями:

Создать в таблице Access OLE-поле
Здравствуйте. Помогите пожалуйста правильно сформировать запрос. Нужно в access создать OLE-поле. Говорит ошибка синтаксиса при определении...

работа из ASP с OLE-полями ACCESS-a
Народ, проблема следующая: есть база .mdb, в которой один столбец имеет тип 'OLE'. В нем лежат word-овские документы. Нужно создать на...

Создать форму в access, чтобы заполняла базу данных и автоматически формировала документ Word
Добрый день! Необходимо создать форму, которая заполняет таблицу в базе данных и автоматически формирует Word документ(вставляет в...

27
164 / 49 / 27
Регистрация: 04.06.2013
Сообщений: 636
03.05.2014, 13:06  [ТС]
Студворк — интернет-сервис помощи студентам
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

 try{
    const int dbInteger = 3;
    const int dbText = 10;
    const int dbDouble = 7;
    const int dbDate = 8;
 
 
    Variant acc = CreateOleObject("Access.Application");
    acc.OleFunction("NewCurrentDatabase", WideString(ExtractFilePath(ParamStr(0)) + "sklad_copy.mdb"));
    Variant TableDef = acc.OleFunction(WideString("CurrentDb")).OleFunction(WideString("CreateTableDef"), WideString("приход"));
    Variant Fld = TableDef.OleFunction(WideString("CreateField"), WideString("Товар"), dbText, 30);
    Variant Fld1 = TableDef.OleFunction(WideString("CreateField"), WideString("Количество"), dbInteger, 0);
    Variant Fld2 = TableDef.OleFunction(WideString("CreateField"), WideString("Цена"), dbDouble, 0);
    Variant Fld3 = TableDef.OleFunction(WideString("CreateField"), WideString("Сумма"), dbDouble, 0);
    Variant Fld4 = TableDef.OleFunction(WideString("CreateField"), WideString("Расчет"), dbDouble, 0);
    Variant Fld5 = TableDef.OleFunction(WideString("CreateField"), WideString("Долг"), dbDouble, 0);
    Variant Fld6 = TableDef.OleFunction(WideString("CreateField"), WideString("Дата"), dbDate, 0);
    Variant Fld7 = TableDef.OleFunction(WideString("CreateField"), WideString("Поставщик"), dbText, 25);
    Variant Fld8 = TableDef.OleFunction(WideString("CreateField"), WideString("Код"), dbInteger, 0);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld1);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld2);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld3);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld4);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld5);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld6);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld7);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld8);
    acc.OleFunction(WideString("CurrentDb")).OlePropertyGet(WideString("TableDefs")).OleProcedure(WideString("Append"), TableDef);
  
 
    Variant TableDef2 = acc.OleFunction(WideString("CurrentDb")).OleFunction(WideString("CreateTableDef"), WideString("Склад"));
    Variant Fld9 = TableDef2.OleFunction(WideString("CreateField"), WideString("Товар"), dbText, 30);
    Variant Fld10 = TableDef2.OleFunction(WideString("CreateField"), WideString("Склад"), dbInteger, 25);
    Variant Fld11 = TableDef2.OleFunction(WideString("CreateField"), WideString("Колличество"), dbInteger, 0);
    Variant Fld12 = TableDef2.OleFunction(WideString("CreateField"), WideString("Цена"), dbDouble, 0);
    Variant Fld13 = TableDef2.OleFunction(WideString("CreateField"), WideString("Сумма"), dbDouble, 0);
    Variant Fld14 = TableDef2.OleFunction(WideString("CreateField"), WideString("Расчет"), dbDouble, 0);
    Variant Fld15 = TableDef2.OleFunction(WideString("CreateField"), WideString("Долг"), dbDouble, 0);
    Variant Fld16 = TableDef2.OleFunction(WideString("CreateField"), WideString("Дата"), dbDate, 0);
    Variant Fld17 = TableDef2.OleFunction(WideString("CreateField"), WideString("Код"), dbInteger, 0);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld9);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld10);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld11);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld12);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld13);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld14);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld15);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld16);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld17);
    acc.OleFunction(WideString("CurrentDb")).OlePropertyGet(WideString("TableDefs")).OleProcedure(WideString("Append"), TableDef2);
 
    acc.OleFunction(WideString("Quit"));
    acc = Unassigned;
      ShowMessage("База даных создана!");
    }
    catch(...){ShowMessage("Ошибка создания базы даных!");}
Добавлено через 15 минут
+ Ругается на те строчки, где есть Dao_xp
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33480 / 21578 / 8250
Регистрация: 22.10.2011
Сообщений: 37,041
Записей в блоге: 12
03.05.2014, 13:07
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

    bool success = false;
    try
    {
        Variant acc = CreateOleObject("Access.Application");
 
        // ... и дальнейшее создание таблиц/полей ...
 
        acc.OleFunction(WideString("Quit"));
        acc = Unassigned;
        success = true;
    }
    catch (...)
    {
        ShowMessage(L"Ошибка создания базы даных!");
    }
 
    if (success)
    {
        ShowMessage(L"База даных создана!");
    }
, хотя я бы разделил это на 2 части: отдельно - создание Access.Application, и отдельно - работа с ним, иначе при успешном создании приложения, но при ошибке создания какого-то поля/таблицы у тебя будет утечка: acc не закроется и будет висеть в памяти...

Цитата Сообщение от mish_k98 Посмотреть сообщение
Ругается на те строчки, где есть Dao_xp
Мне для использования этого неймспейса достаточно было подключить #include <Access_XP.h>
1
164 / 49 / 27
Регистрация: 04.06.2013
Сообщений: 636
03.05.2014, 14:56  [ТС]
я подключил этот файл, но оно всё-равноне понимает, что такое Dao_xp.если что, у меня виндовс 7
0
164 / 49 / 27
Регистрация: 04.06.2013
Сообщений: 636
06.05.2014, 19:51  [ТС]
вот весь мой код, но без счетчика,но выдаёт вот что
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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139

 bool success=false;
  try{
    const int dbInteger = 3;
    const int dbText = 10;
    const int dbDouble = 7;
    const int dbDate = 8;
 
 
    Variant acc = CreateOleObject("Access.Application");
    acc.OleFunction("NewCurrentDatabase", WideString(ExtractFilePath(ParamStr(0)) + "sklad_copy_"+Now().DateTimeString()+".mdb"));
    Variant TableDef = acc.OleFunction(WideString("CurrentDb")).OleFunction(WideString("CreateTableDef"), WideString("ïðèõîä"));
    Variant Fld = TableDef.OleFunction(WideString("CreateField"), WideString("Òîâàð"), dbText, 30);
    Variant Fld1 = TableDef.OleFunction(WideString("CreateField"), WideString("Êîëè÷åñòâî"), dbInteger, 0);
    Variant Fld2 = TableDef.OleFunction(WideString("CreateField"), WideString("Öåíà"), dbDouble, 0);
    Variant Fld3 = TableDef.OleFunction(WideString("CreateField"), WideString("Ñóììà"), dbDouble, 0);
    Variant Fld4 = TableDef.OleFunction(WideString("CreateField"), WideString("Ðàñ÷åò"), dbDouble, 0);
    Variant Fld5 = TableDef.OleFunction(WideString("CreateField"), WideString("Äîëã"), dbDouble, 0);
    Variant Fld6 = TableDef.OleFunction(WideString("CreateField"), WideString("Äàòà"), dbDate, 0);
    Variant Fld7 = TableDef.OleFunction(WideString("CreateField"), WideString("Ïîñòàâùèê"), dbText, 25);
    Variant Fld8 = TableDef.OleFunction(WideString("CreateField"), WideString("Êîä"), dbInteger, 0);
     // Ñîçäàòü ïîëå òèïà Long Integer
    //Variant Fld8 = TableDef.OleFunction(WideString("CreateField"), WideString("Êîä"), Dao_xp::DataTypeEnum::dbLong, 0);
    // È âûñòàâèòü åìó àòðèáóò "Àâòîèíêðåìåíòíîå ïîëå"
   // Fld8.OlePropertySet(WideString("Attributes"), Dao_xp::FieldAttributeEnum::dbAutoIncrField);
 
 
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld1);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld2);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld3);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld4);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld5);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld6);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld7);
    TableDef.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld8);
    acc.OleFunction(WideString("CurrentDb")).OlePropertyGet(WideString("TableDefs")).OleProcedure(WideString("Append"), TableDef);
 
    Variant TableDef2 = acc.OleFunction(WideString("CurrentDb")).OleFunction(WideString("CreateTableDef"), WideString("Ñêëàä"));
    Variant Fld9 = TableDef2.OleFunction(WideString("CreateField"), WideString("Òîâàð"), dbText, 30);
    Variant Fld10 = TableDef2.OleFunction(WideString("CreateField"), WideString("Ñêëàä"), dbInteger, 0);
    Variant Fld11 = TableDef2.OleFunction(WideString("CreateField"), WideString("Êîëëè÷åñòâî"), dbInteger, 0);
    Variant Fld12 = TableDef2.OleFunction(WideString("CreateField"), WideString("Öåíà"), dbDouble, 0);
    Variant Fld13 = TableDef2.OleFunction(WideString("CreateField"), WideString("Ñóììà"), dbDouble, 0);
    Variant Fld14 = TableDef2.OleFunction(WideString("CreateField"), WideString("Ðàñ÷åò"), dbDouble, 0);
    Variant Fld15 = TableDef2.OleFunction(WideString("CreateField"), WideString("Äîëã"), dbDouble, 0);
    Variant Fld16 = TableDef2.OleFunction(WideString("CreateField"), WideString("Äàòà"), dbDate, 0);
    Variant Fld17 = TableDef2.OleFunction(WideString("CreateField"), WideString("Êîä"), dbInteger, 0);
    // Ñîçäàòü ïîëå òèïà Long Integer
    //Variant Fld17 = TableDef2.OleFunction(WideString("CreateField"), WideString("Êîä"), Dao_xp::DataTypeEnum::dbLong, 0);
    // È âûñòàâèòü åìó àòðèáóò "Àâòîèíêðåìåíòíîå ïîëå"
    //Fld17.OlePropertySet(WideString("Attributes"), Dao_xp::FieldAttributeEnum::dbAutoIncrField);
 
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld9);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld10);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld11);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld12);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld13);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld14);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld15);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld16);
    TableDef2.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld17);
    acc.OleFunction(WideString("CurrentDb")).OlePropertyGet(WideString("TableDefs")).OleProcedure(WideString("Append"), TableDef2);
 
     Variant TableDef3 = acc.OleFunction(WideString("CurrentDb")).OleFunction(WideString("CreateTableDef"), WideString("óõîä"));
    Variant Fld18  = TableDef3.OleFunction(WideString("CreateField"), WideString("Òîâàð"), dbText, 30);
    Variant Fld19 = TableDef3.OleFunction(WideString("CreateField"), WideString("Êîëëè÷åñòâî"), dbInteger, 0);
    Variant Fld20 = TableDef3.OleFunction(WideString("CreateField"), WideString("Öåíà"), dbDouble, 0);
    Variant Fld21 = TableDef3.OleFunction(WideString("CreateField"), WideString("Ñóììà"), dbDouble, 0);
    Variant Fld22 = TableDef3.OleFunction(WideString("CreateField"), WideString("Ðàñ÷åò"), dbDouble, 0);
    Variant Fld23 = TableDef3.OleFunction(WideString("CreateField"), WideString("Äîëã"), dbDouble, 0);
    Variant Fld24 = TableDef3.OleFunction(WideString("CreateField"), WideString("Äàòà"), dbDate, 0);
    Variant Fld25 = TableDef3.OleFunction(WideString("CreateField"), WideString("Ïîêóïàòåëü"), dbText, 25);
    Variant Fld26 = TableDef3.OleFunction(WideString("CreateField"), WideString("Êîä"), dbInteger, 0);
 
 
    TableDef3.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld18);
    TableDef3.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld19);
    TableDef3.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld20);
    TableDef3.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld21);
    TableDef3.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld22);
    TableDef3.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld23);
    TableDef3.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld24);
    TableDef3.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld25);
    TableDef3.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld26);
    acc.OleFunction(WideString("CurrentDb")).OlePropertyGet(WideString("TableDefs")).OleProcedure(WideString("Append"), TableDef3);
 
 
         Variant TableDef4 = acc.OleFunction(WideString("CurrentDb")).OleFunction(WideString("CreateTableDef"), WideString("ñêëàä_äîëãè"));
     Variant Fld27 = TableDef3.OleFunction(WideString("CreateField"), WideString("Êîä"), dbInteger, 0);
    Variant Fld28 = TableDef4.OleFunction(WideString("CreateField"), WideString("Ñêëàä"), dbInteger, 0);
    Variant Fld29 = TableDef4.OleFunction(WideString("CreateField"), WideString("Òîâàð"), dbText, 20);
    Variant Fld30 = TableDef4.OleFunction(WideString("CreateField"), WideString("Äàòà"), dbDate, 0);
    Variant Fld31 = TableDef4.OleFunction(WideString("CreateField"), WideString("Îòäàë"), dbDouble, 0);
 
 
    TableDef4.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld27);
    TableDef4.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld28);
    TableDef4.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld29);
    TableDef4.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld30);
    TableDef4.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld31);
    acc.OleFunction(WideString("CurrentDb")).OlePropertyGet(WideString("TableDefs")).OleProcedure(WideString("Append"), TableDef4);
     //////ïðîäàæà_äîëãè
       Variant TableDef5 = acc.OleFunction(WideString("CurrentDb")).OleFunction(WideString("CreateTableDef"), WideString("ïðîäàæà_äîëãè"));
    Variant Fld32 = TableDef3.OleFunction(WideString("CreateField"), WideString("Êîä"), dbInteger, 0);
    Variant Fld33 = TableDef5.OleFunction(WideString("CreateField"), WideString("Ïîêóïàòåëü"), dbText, 20);
    Variant Fld34 = TableDef5.OleFunction(WideString("CreateField"), WideString("Òîâàð"), dbText, 20);
    Variant Fld35 = TableDef5.OleFunction(WideString("CreateField"), WideString("Äàòà"), dbDate, 0);
    Variant Fld36 = TableDef5.OleFunction(WideString("CreateField"), WideString("Îòäàë"), dbDouble, 0);
 
    TableDef5.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld32);
    TableDef5.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld33);
    TableDef5.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld34);
    TableDef5.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld35);
    TableDef5.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld36);
    acc.OleFunction(WideString("CurrentDb")).OlePropertyGet(WideString("TableDefs")).OleProcedure(WideString("Append"), TableDef5);
 
      //////ïðèõîä_äîëãè
       Variant TableDef6 = acc.OleFunction(WideString("CurrentDb")).OleFunction(WideString("CreateTableDef"), WideString("ïðèõîä_äîëãè"));
    Variant Fld37 = TableDef3.OleFunction(WideString("CreateField"), WideString("Êîä"), dbInteger, 0);
    Variant Fld38 = TableDef6.OleFunction(WideString("CreateField"), WideString("Ïîêóïàòåëü"), dbText, 20);
    Variant Fld39 = TableDef6.OleFunction(WideString("CreateField"), WideString("Òîâàð"), dbText, 20);
    Variant Fld40 = TableDef6.OleFunction(WideString("CreateField"), WideString("Äàòà"), dbDate, 0);
    Variant Fld41 = TableDef6.OleFunction(WideString("CreateField"), WideString("Îòäàë"), dbDouble, 0);
 
 
    TableDef6.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld37);
    TableDef6.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld38);
    TableDef6.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld39);
    TableDef6.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld40);
    TableDef6.OlePropertyGet(WideString("Fields")).OleProcedure(WideString("Append"), Fld41);
    acc.OleFunction(WideString("CurrentDb")).OlePropertyGet(WideString("TableDefs")).OleProcedure(WideString("Append"), TableDef6);
 
 
    acc.OleFunction(WideString("Quit"));
    acc = Unassigned;
    success=true;
    }
    catch(...){ShowMessage("Îøèáêà ñîçäàíèÿ áàçû äàíûõ!");}
     if (success)ShowMessage(L"Áàçà äàíûõ ñîçäàíà!");
Миниатюры
Работа с OLE (создать документ Access)  
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33480 / 21578 / 8250
Регистрация: 22.10.2011
Сообщений: 37,041
Записей в блоге: 12
06.05.2014, 21:28
Ты для начала
C++
1

ShowMessage(WideString(ExtractFilePath(ParamStr(0)) + "sklad_copy_"+Now().DateTimeString()+".mdb"));
сделай, посмотри, какое имя ты хочешь дать файлу. Там же присутствуют запрещенные символы, в частности - двоеточия. Будет нормальное имя - все отработает...
1
164 / 49 / 27
Регистрация: 04.06.2013
Сообщений: 636
10.05.2014, 19:33  [ТС]
убрал дату, но всеравно та же ерунда.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33480 / 21578 / 8250
Регистрация: 22.10.2011
Сообщений: 37,041
Записей в блоге: 12
11.05.2014, 01:43
Никакой ерунды без вызова Now() не происходит, только что удалил старую базу, и запустил код еще раз. Нормально создалась новая БД.
0
164 / 49 / 27
Регистрация: 04.06.2013
Сообщений: 636
14.05.2014, 22:01  [ТС]
а у меня не хочет работать.3 таблицы создаёт, а дальше выскакивает ошибка.и в диспетчее задач появляется процес msaccess
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 14.05.2014, 22:01

Произошли ошибки во время выполнения многошаговой операции OLE DB. По возможности, проверьте значения всех состояний OLE DB. Работа не выполнена
OleDbConnection cn = new OleDbConnection(&quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; +...

Как можно запустить текстовый документ без OLE
Я сделал инсталлер и в разделе описание нужно нажать на кнопку описания. Я хочу чтобы с нажатием на эту кнопку открывалось приложение и...

Как узнать открыт ли данный Excel документ в OLE
Здравствуйте. С помощью свойства OlePropertyGet можно подключиться к книге BooknN=BooksnN.OlePropertyGet(&quot;Item&quot;,numBook); Но...

Как из 1С по средствам Ole в документ Word вложить объект "Лист к
Как из 1С по средствам OLE в документ word вложить объект &quot;Лист книгиExcel&quot;? Если делать из word`а, то через вставку объекта и тип...

Создать документ, текст которого доступен для чтения, если документ открыт при среднем или низком уровне безопасности
доброго времени суток. прошу вашей помощи. суть задачи вот: Создать документ Word, текст которого доступен для чтения только в том...


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

Или воспользуйтесь поиском по форуму:
28
Ответ Создать тему
2 из 2 « 1 2
Новые блоги и статьи
Транслитерация текста с кириллицы на латиницу (вариант №2)
Maks 13.11.2026
Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .
Часы с термометром и праздничным календарем
yariko 12.11.2026
Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .
Транслитерация текста с кириллицы на латиницу (вариант №1)
Maks 11.11.2026
Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .
Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта
8Observer8 08.11.2026
Содержание блога | English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle | Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят
zorxor 08.11.2026
Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .
Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ.
zorxor 08.11.2026
Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .
Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL
8Observer8 07.11.2026
Содержание блога | English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .
Проверка полного ФИО в типовом справочнике
Maks 07.11.2026
Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru