Как работать с базой данных Access из кода?

@ATop · Регистрация: 06.07.2013

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

Так сложилось что мне в этом треше под названием Delphi нужно написать небольшую утилиту. Вообщем по ТЗ мне нужно хранить в базе данные которые должны быть представлены классами в бизнес модели приложения. Когда прочел ТЗ подумал, ну ничего страшного запилю DAO как обычно делал в .NET да и все. Вот только все примеры из гугла это сплошные извращения с созданием единственной сборки, в которой на одну форму добавлены и контекст и запросы и таблицы, при такой архитектуре классы которые требуются по ТЗ просто не используются.

Вообщем такая просьба, может кто кинуть пример создания подключения к базе данных и запросов к ней только через код? Я просто смотрю на эти юниты и не вижу куда спрятана половина реализации. В визуальном конструкторе есть свойства у объектов типа TADOConnection, я их настраиваю, а в коде их нет и никаких XML файлов в проекте не вижу.

@qwertehok · 08.11.2017, 13:07

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

В визуальном конструкторе есть свойства у объектов типа TADOConnection, я их настраиваю, а в коде их нет и никаких XML файлов в проекте не вижу.

если ты настраиваешь визуально никаких данных в коде и не будет
все хранится в свойствах формы

хочешь руками - прописывай все руками. те же свойства что и инспекторе

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

Так сложилось что мне в этом треше под названием Delphi

плохому танцору..

@ATop · 08.11.2017, 13:24 **[ТС]**

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

плохому танцору..

Я просил пример кода, а не плоскую шутку.

@qwertehok · 08.11.2017, 13:53

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

Я просил пример кода

то есть даже поискать по форуму вы не можете
ADOConnection. прописать пусть к БД вручную
Подключение через ADOConnection1.ConnectionString
Открытие БД через OpenDialog с использованием ADOConnection
ADOConnection1.ConnectionString

@Алекcей · 08.11.2017, 15:13

попробуйте так:
-подключение к БД

Delphi

1
2
3

  dbFabrika.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
        ExtractFilePath(Application.ExeName)+'dbFab.mdb;Persist Security Info=False;';
  dbFabrika.Connected:=True;

-запрос

Delphi

 with qQuery do begin
    Close;
   SQL.Text:='select что-то from откуда.....';
//если select 
  Open;
//если update, delete 
  ExecSQL;   
end;

@ATop · 08.11.2017, 15:51 **[ТС]**

Сообщение от Алекcей

-запрос

Большое спасибо.

@D1973 · 09.11.2017, 12:46

Алекcей, маленькое уточнение:
Если Вы используете такую, как у Вас в примере, строку подключения, например в DataModule, то получите ошибку, которой можно избежать, заменив Application.ExeName на ParamStr(0)

@Алекcей · 09.11.2017, 12:51

Не, не получу - в uses добавлю Forms. Но согласен лучше использовать ParamStr(0).

@D1973 · 09.11.2017, 14:29

Сообщение от Алекcей

в uses добавлю Forms

Это да, но зачем он там?

@ATop 107 / 13 / 7 Регистрация: 06.07.2013 Сообщений: 266
		1
	Как работать с базой данных Access из кода? 08.11.2017, 12:48. Показов 1100. Ответов 8 Метки нет (Все метки) Так сложилось что мне в этом треше под названием Delphi нужно написать небольшую утилиту. Вообщем по ТЗ мне нужно хранить в базе данные которые должны быть представлены классами в бизнес модели приложения. Когда прочел ТЗ подумал, ну ничего страшного запилю DAO как обычно делал в .NET да и все. Вот только все примеры из гугла это сплошные извращения с созданием единственной сборки, в которой на одну форму добавлены и контекст и запросы и таблицы, при такой архитектуре классы которые требуются по ТЗ просто не используются. Вообщем такая просьба, может кто кинуть пример создания подключения к базе данных и запросов к ней только через код? Я просто смотрю на эти юниты и не вижу куда спрятана половина реализации. В визуальном конструкторе есть свойства у объектов типа TADOConnection, я их настраиваю, а в коде их нет и никаких XML файлов в проекте не вижу. 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	08.11.2017, 13:07	2
	Сообщение от ATop В визуальном конструкторе есть свойства у объектов типа TADOConnection, я их настраиваю, а в коде их нет и никаких XML файлов в проекте не вижу. если ты настраиваешь визуально никаких данных в коде и не будет все хранится в свойствах формы хочешь руками - прописывай все руками. те же свойства что и инспекторе Сообщение от ATop Так сложилось что мне в этом треше под названием Delphi плохому танцору.. 0

@ATop 107 / 13 / 7 Регистрация: 06.07.2013 Сообщений: 266
	08.11.2017, 13:24 [ТС]	3
	Сообщение от qwertehok плохому танцору.. Я просил пример кода, а не плоскую шутку. 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,130 Записей в блоге: 3
	08.11.2017, 13:53	4
	Сообщение от ATop Я просил пример кода то есть даже поискать по форуму вы не можете ADOConnection. прописать пусть к БД вручную Подключение через ADOConnection1.ConnectionString Открытие БД через OpenDialog с использованием ADOConnection ADOConnection1.ConnectionString 0

@ATop 107 / 13 / 7 Регистрация: 06.07.2013 Сообщений: 266
	08.11.2017, 15:51 [ТС]	6
	Сообщение от Алекcей -запрос Большое спасибо. 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	09.11.2017, 12:46	7
	Алекcей, маленькое уточнение: Если Вы используете такую, как у Вас в примере, строку подключения, например в DataModule, то получите ошибку, которой можно избежать, заменив `Application.ExeName` на `ParamStr(0)` 0

@Алекcей 548 / 479 / 190 Регистрация: 11.12.2013 Сообщений: 2,494
	09.11.2017, 12:51	8
	Не, не получу - в uses добавлю Forms. Но согласен лучше использовать ParamStr(0). 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	09.11.2017, 14:29	9
	Сообщение от Алекcей в uses добавлю Forms Это да, но зачем он там? 0

Как работать с базой данных Access из кода?

Решение