Как подключиться к *.accdb?

@duh_si · Регистрация: 18.10.2012

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

Здравствуйте, подскажите как программно подключить БД access файл *.accdb

The_Immortal · 28.06.2013, 10:10

@duh_si,

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
if (!this->ADOConnection1->Connected)
    {
        this->ADOConnection1->ConnectionString = "Provider="
                "Microsoft.ACE.OLEDB.12.0;Data Source="
                + ExtractFilePath (Application->ExeName) + "*.accdb"
                ";Persist Security Info=False";
 
        try
        {
            this->ADOConnection1->Open();                                                                              this->ADOConnection1->Open();
        }
        catch (...)
        {
            ShowMessage ("Проблемы при открытии БД!");
        }
    }

@duh_si · 28.06.2013, 10:28 **[ТС]**

я уже так делаю, при запуске пустой грид появляется, раньше сначало ADOConnection можно было в ручную путь к базе указать и настроить ADOTable или ADOQuery т.е выбрать необходимую таблицу, а к такому формату не могу так сделать(( (может есть способ программно заставить подключиться ADOTable или ADOQuery к необходимой таблице)

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

Сообщение от The_Immortal

@duh_si,

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
if (!this->ADOConnection1->Connected)
    {
        this->ADOConnection1->ConnectionString = "Provider="
                "Microsoft.ACE.OLEDB.12.0;Data Source="
                + ExtractFilePath (Application->ExeName) + "*.accdb"
                ";Persist Security Info=False";
 
        try
        {
            this->ADOConnection1->Open();                                                                              this->ADOConnection1->Open();
        }
        catch (...)
        {
            ShowMessage ("Проблемы при открытии БД!");
        }
    }

используя ваш код, выдает сначала "Проблемы при открытии БД!" потом запускает прогу с пустым гридом

я делаю так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
     String filename = "ter.accdb";
  if(!FileExists(ExtractFilePath(Application->ExeName)+filename))
{
   AnsiString ds = "Файл базы данных не обнаружен \n\n\t" +filename;
}
 
else
{
        String WayToBase=ExtractFilePath(Application->ExeName)+filename;
        ADOConnection1->ConnectionString = "Provider="
                "Microsoft.ACE.OLEDB.12.0;Data Source="
                + ExtractFilePath (Application->ExeName) + "ter.accdb"
                ";Persist Security Info=False";
ADOConnection1->Connected = true;
ADOTable1->Active = true;
ADOTable1->Open();

забускается без предупреждений но тоже с пустым гридом

The_Immortal · 28.06.2013, 11:43

@duh_si,

Сообщение от duh_si

используя ваш код, выдает сначала "Проблемы при открытии БД!"

Хм... А вот так что выдает?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <ComObj.hpp>
...
if (!this->ADOConnection1->Connected)
{
        this->ADOConnection1->ConnectionString = "Provider="
                "Microsoft.ACE.OLEDB.12.0;Data Source="
                + ExtractFilePath (Application->ExeName) + "ter.accdb"
                ";Persist Security Info=False";
 
        try
        {
            this->ADOConnection1->Open();                                                                              this->ADOConnection1->Open();
        }
        catch (EOleException& E)
        {
            ShowMessage ("ошибка: " + E.Message);
            return;
        }
}

Сообщение от duh_si

раньше сначало ADOConnection можно было в ручную путь к базе указать...а к такому формату не могу так сделать

@duh_si · 29.06.2013, 13:03 **[ТС]**

Сообщение от The_Immortal

@duh_si,
Хм... А вот так что выдает?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <ComObj.hpp>
...
if (!this->ADOConnection1->Connected)
{
        this->ADOConnection1->ConnectionString = "Provider="
                "Microsoft.ACE.OLEDB.12.0;Data Source="
                + ExtractFilePath (Application->ExeName) + "ter.accdb"
                ";Persist Security Info=False";
 
        try
        {
            this->ADOConnection1->Open();                                                                              this->ADOConnection1->Open();
        }
        catch (EOleException& E)
        {
            ShowMessage ("ошибка: " + E.Message);
            return;
        }
}

ошибка в этой строке

C++
1
 catch (EOleException& E)

@volvo · 29.06.2013, 13:51

@duh_si, ты файл ComObj.hpp не при-Include-ил, скорее всего. А ведь самой первой строкой в предыдущем сообщении это было указано... И процитировано тобой...

@duh_si · 29.06.2013, 13:56 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::FormCreate(TObject *Sender)
{
if (!this->ADOConnection1->Connected)
{
        this->ADOConnection1->ConnectionString = "Provider="
                "Microsoft.ACE.OLEDB.12.0;Data Source="
                + ExtractFilePath (Application->ExeName) + "ter.accdb"
                ";Persist Security Info=False";
 
            this->ADOConnection1->Open();
            ADOQuery1->Active = true;                                                                             this->ADOConnection1->Open();
 
}
}

так все работает

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

Сообщение от UI

@duh_si, ты файл ComObj.hpp не при-Include-ил, скорее всего. А ведь самой первой строкой в предыдущем сообщении это было указано... И процитировано тобой...

Да забыл, спасибо за помощь

The_Immortal · 29.06.2013, 14:14

@duh_si,

Сообщение от duh_si

Сообщение от The_Immortal

@duh_si,

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
if (!this->ADOConnection1->Connected)
    {
        this->ADOConnection1->ConnectionString = "Provider="
                "Microsoft.ACE.OLEDB.12.0;Data Source="
                + ExtractFilePath (Application->ExeName) + "*.accdb"
                ";Persist Security Info=False";
 
        try
        {
            this->ADOConnection1->Open();                                                                              this->ADOConnection1->Open();
        }
        catch (...)
        {
            ShowMessage ("Проблемы при открытии БД!");
        }
    }

используя ваш код, выдает сначала "Проблемы при открытии БД!"

Сообщение от duh_si

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::FormCreate(TObject *Sender)
{
if (!this->ADOConnection1->Connected)
{
        this->ADOConnection1->ConnectionString = "Provider="
                "Microsoft.ACE.OLEDB.12.0;Data Source="
                + ExtractFilePath (Application->ExeName) + "ter.accdb"
                ";Persist Security Info=False";
 
            this->ADOConnection1->Open();
            ADOQuery1->Active = true;                                                                             this->ADOConnection1->Open();
 
}
}

так все работает

Как-то не вяжется

@duh_si · 30.06.2013, 20:06 **[ТС]**

Совсем запутался, у меня компоненты для подключения с БД вынесены в DataModule, не пойму куда нужно дописать DataModule что бы код начал работать

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
if (!this->ADOConnection1->Connected)
{
        this->ADOConnection1->ConnectionString = "Provider="
                "Microsoft.ACE.OLEDB.12.0;Data Source="
                + ExtractFilePath (Application->ExeName) + "ter.accdb"
                ";Persist Security Info=False";
 
        try
        {
            this->ADOConnection1->Open();                                                                              this->ADOConnection1->Open();
        }
        catch (EOleException& E)
        {
            ShowMessage ("ошибка: " + E.Message);
            return;
        }
}

@Sasha · 30.06.2013, 23:09

Ну наверно нужно дописать вместо this

@duh_si · 01.07.2013, 00:00 **[ТС]**

если так написать

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
if (!DataModule2->ADOConnection1->Connected)
{
        DataModule2->ADOConnection1->ConnectionString = "Provider="
                "Microsoft.ACE.OLEDB.12.0;Data Source="
                + ExtractFilePath (Application->ExeName) + "roli.accdb"
                ";Persist Security Info=False";
 
     try
      {
      DataModule2->ADOConnection1->Open();
     DataModule2->ADOQuery1->Active = true;
    
        }
        catch (EOleException& E)
        {
            ShowMessage ("ошибка: " + E.Message);
            return;
        }
  }

то при компиляции выдает ошибку
[ilink32 Error] Fatal: Could not open .\Win32\Debug\Project1.exe (program still running?)

@Sasha · 01.07.2013, 09:06

Сообщение от duh_si

[ilink32 Error] Fatal: Could not open .\Win32\Debug\Project1.exe (program still running?)

Это значит, что она запущена уже

@egoistos · 26.05.2015, 01:23

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
if (!this->ADOConnection1->Connected)
{
        this->ADOConnection1->ConnectionString = "Provider="
                "Microsoft.ACE.OLEDB.12.0;Data Source="
                + ExtractFilePath (Application->ExeName) + "Login.accdb"
                ";Persist Security Info=False";
 
            this->ADOConnection1->Open();
            this->ADOConnection1->Open();
            ADOTable1->TableName = "Autorisation";
            ADOTable1->Active = true;
 
}

Вот так заработало, с божьей помощью. Как я понимаю заранее нельзя отредактировать DBGrid при таком добавлении базы данных в программу ?

@Sasha · 26.05.2015, 01:28

Сообщение от egoistos

Как я понимаю заранее нельзя отредактировать DBGrid

DBGrid не редактируется, потому как этот компонент для вывода информации, а редактируется сама база, а потом твоё редактирование будет отображаться в DBGrid

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

Сообщение от egoistos

this->ADOConnection1->Open();
this->ADOConnection1->Open();

К чему это дублирование строк достаточно только один раз

@egoistos · 26.05.2015, 01:29

Мне надо редактировать внешний вид, а за это же DBGrid отвечает. Например мне надо поставить Visible = False, для первого столбца, но этого я не могу сделать, добавляя бд таким образом, возможно знаете как?

Добавлено через 29 секунд

Сообщение от Sasha

DBGrid не редактируется, потому как этот компонент для вывода информации, а редактируется сама база, а потом твоё редактирование будет отображаться в DBGrid

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

К чему это дублирование строк достаточно только один раз

Сам не знаю, попробую без него.

@Sasha · 26.05.2015, 01:31

Знаю

C++
1
DBGrid1->Columns->Items[0]->Visible = false;

@egoistos · 26.05.2015, 01:37

Спасибо, выручил. Прям не ожидал, что так быстро ответят. Думаю завтра будут еще вопросы) До встречи.

Добавлено через 2 минуты
Скажи пожалуйста напоследок if (!this->ADOConnection1->Connected) и т.д.
Что такое this ?

@Sasha · 26.05.2015, 08:20

Сообщение от egoistos

Что такое this ?

http://www.cyberguru.ru/cpp/cp... age15.html

@egoistos · 27.05.2015, 19:33

На компе всё хорошо работает, но на ноуте нет такого провайдера как Microsoft.ACE.OLEDB.12.0. Как го добавить ?

@Sasha · 27.05.2015, 20:22

Зайди в Администрирование потом Источники данных(ODBC) затем кнопку добавить из перечисленных провайдерах найди нужный если его нет, то нужно скачать

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. 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 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@duh_si 569 / 169 / 22 Регистрация: 18.10.2012 Сообщений: 912

	Как подключиться к .accdb? 28.06.2013, 00:08. Показов* 8695. Ответов 19 Метки нет (Все метки) Здравствуйте, подскажите как программно подключить БД access файл *.accdb 0

@volvo Супер-модератор 33197 / 21493 / 8233 Регистрация: 22.10.2011 Сообщений: 36,882 Записей в блоге: 12
	29.06.2013, 13:51
	@duh_si, ты файл ComObj.hpp не при-Include-ил, скорее всего. А ведь самой первой строкой в предыдущем сообщении это было указано... И процитировано тобой... 1

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	30.06.2013, 23:09
	Ну наверно нужно дописать вместо this 1

@egoistos 0 / 0 / 0 Регистрация: 26.05.2015 Сообщений: 11
	26.05.2015, 01:37
	Спасибо, выручил. Прям не ожидал, что так быстро ответят. Думаю завтра будут еще вопросы) До встречи. Добавлено через 2 минуты Скажи пожалуйста напоследок if (!this->ADOConnection1->Connected) и т.д. Что такое this ? 0

@egoistos 0 / 0 / 0 Регистрация: 26.05.2015 Сообщений: 11
	27.05.2015, 19:33
	На компе всё хорошо работает, но на ноуте нет такого провайдера как Microsoft.ACE.OLEDB.12.0. Как го добавить ? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	27.05.2015, 20:22
	Зайди в Администрирование потом Источники данных(ODBC) затем кнопку добавить из перечисленных провайдерах найди нужный если его нет, то нужно скачать Миниатюры 0