ADOConnection c Access

@Neo_AVE · Регистрация: 04.05.2011

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

При компилировании ошибка не возникает, а при запуске вот такое сообщение появляется(см рисунок).
Вот код:

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
AnsiString path = ExtractFileDir(_argv[0]);
AnsiString filename=path + "\\Machine.mdb";
void __fastcall TFrmMain::FormCreate(TObject *Sender)
{
/*All ADO variables*/
TADOConnection* ADOConn;
TADOTable* ADOTEksk;
TADOTable* ADOTSam;
TADOTable* ADOTMach;
TDataSource* DSEksk;
TDataSource* DSSam;
TDataSource* DSMach;
 
//TParameter* Param;
ADOConn = new TADOConnection(this);
ADOConn->LoginPrompt=False;
if(!FileExists(ExtractFilePath(Appl ication->ExeName)+filename))
{
AnsiString ds = "В корневом каталоге отсутствует файл с именем \n\n\t"+
filename;
if(Application->MessageBox(ds.c_str(),"Предупрежде ние",MB_OK +
MB_TOPMOST+ MB_ICONWARNING)==IDOK)
{
Application->Terminate();
}
}
else
{
 
String WayToBase=ExtractFilePath(Applicati on->ExeName)+filename;
ADOConn->ConnectionString="Provider=Microso ft.Jet.OLEDB.4.0;Data Source="+
WayToBase+";Persist Security Info=True";
ADOConn->Connected=true;
ADOTEksk->ConnectionString=ADOConn->ConnectionString;
ADOTSam->ConnectionString=ADOConn->ConnectionString;
ADOTMach->ConnectionString=ADOConn->ConnectionString;
ADOTEksk->TableName="Ekskavator";
ADOTEksk->Active=true;
ADOTSam->TableName="Samosval";
ADOTSam->Active=true;
ADOTMach->TableName="Machine_for_compac";
}
try
{
ADOConn->Connected=true;
}
catch(EADOError *e)
{
MessageDlg("Error while connecting", mtError,
TMsgDlgButtons()<<mbOK, 0);
return;
}
/*Create the table*/
ADOTEksk = new TADOTable(this);
ADOTSam = new TADOTable(this);
ADOTMach = new TADOTable(this);
//ADOTable->Connection=ADOConn;
//ADOTable->Active=true;
/*Create the data source*/
DSEksk = new TDataSource(this);
DSSam = new TDataSource(this);
DSMach = new TDataSource(this);
DSEksk->DataSet = ADOTEksk;
DSSam->DataSet = ADOTSam;
DSMach->DataSet = ADOTMach;
DSEksk->Enabled=true;
DSSam->Enabled=true;
DSMach->Enabled=true;
}

@MsGuns · 05.05.2011, 09:51

Очевидно, ошибка в строке подключения ConnectionString.
Там пробел в серединке мелкософта - эта очепятка ?

Образцы строки подключения к акцесу в
http://www.connectionstrings.com/access

@Neo_AVE · 11.05.2011, 09:53 **[ТС]**

Теперь другая ошибка во время запуска программы.
Код:

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
TADOConnection* ADOConnection1;
       if(!FileExists(ExtractFilePath(Application->ExeName)+filename)){
           AnsiString ds = "в корневом каталоге нет файла\n\n\t"+
              filename;
              if(Application->MessageBox(ds.c_str(),"Предупреэжение",MB_OK+MB_TOPMOST+
               MB_ICONWARNING)==IDOK){
                 Application->Terminate();
             }
        }
        else{
           AnsiString WayToBase=ExtractFilePath(Application->ExeName)+filename;
           ADOConnection1->ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+
             WayToBase+";Persist Security Info=False";
           ADOConnection1->Connected=true;
        }
         try
         {
                ADOConnection1->Connected=true;
         }
         catch(EADOError *e)
         {
                MessageDlg("Error while connecting", mtError,
                                TMsgDlgButtons()<<mbOK, 0);
                return;
         }

Вот форум, ответ так и не получила: Подключение базы данных через Access. Прошу, как избавиться от этого окошка.

@MsGuns · 11.05.2011, 10:09

Вы уверены, что код в блоке else исполняется ?
Похоже, что у Вас в дизайне выставлены параметры коннекшна и стоит Connected = true.
Вот и вылазит ошибка. Снимите этот флажок и запустите проект

Добавлено через 3 минуты
Ошибка говорит, что программа при подключении использует метод ODBC, в то время как в приведенном Вами коде - OLE DB.
Мой Холмс говорит мне, что либо проект перекочевал на Ваш комп с другого компа, либо на Вашем ПК были сделаны системные изменение, например переустановили винду. В результате источник данных, используемый проектом, приказал долго жить.

@Neo_AVE · 11.05.2011, 10:56 **[ТС]**

Спасибо, но всё равно без изменений. Я думаю, что где-то утечка памяти(.

@MsGuns · 11.05.2011, 11:40

Я задал вопрос, на который не получил ответ. Тема исчерпана ?

@Neo_AVE · 11.05.2011, 16:14 **[ТС]**

Думаю, что не нужен else, убрала его. Но всё равно так и не выходит

Решила вопрос!

Тема закрыта

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	05.05.2011, 09:51
	Очевидно, ошибка в строке подключения ConnectionString. Там пробел в серединке мелкософта - эта очепятка ? Образцы строки подключения к акцесу в http://www.connectionstrings.com/access 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	11.05.2011, 10:09
	Вы уверены, что код в блоке else исполняется ? Похоже, что у Вас в дизайне выставлены параметры коннекшна и стоит Connected = true. Вот и вылазит ошибка. Снимите этот флажок и запустите проект Добавлено через 3 минуты Ошибка говорит, что программа при подключении использует метод ODBC, в то время как в приведенном Вами коде - OLE DB. Мой Холмс говорит мне, что либо проект перекочевал на Ваш комп с другого компа, либо на Вашем ПК были сделаны системные изменение, например переустановили винду. В результате источник данных, используемый проектом, приказал долго жить. 0

@Neo_AVE 89 / 36 / 5 Регистрация: 04.05.2011 Сообщений: 239
	11.05.2011, 10:56 [ТС]
	Спасибо, но всё равно без изменений. Я думаю, что где-то утечка памяти(. 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	11.05.2011, 11:40
	Я задал вопрос, на который не получил ответ. Тема исчерпана ? 0

@Neo_AVE 89 / 36 / 5 Регистрация: 04.05.2011 Сообщений: 239
	11.05.2011, 16:14 [ТС]
	Думаю, что не нужен else, убрала его. Но всё равно так и не выходит Решила вопрос! Тема закрыта 0