Пример приложения, работающего с базой данных MS Access, защищённой паролем, с использованием ADO в Delphi
Думаю некоторым, кто начинает учится работать с Access, используя ADO, пригодится эта заметка.
Допустим, у нас есть база данных db1.mdb, защищённая паролем "1234567".
Для доступа к ней нужны
следующие компоненты:
TADOQuery, при помощи которого будут производиться выборки данных из базы данныз (БД) SQL - запросами. TDataSource, связывающий и передающий набор данных, полученный при SQL-запросе в компонент для отображения данных TDBGrid. Вот этот скромный джентльменский набор:
Свойство DataSet у DataSource1 выставить в инспекторе объектов равным ADOQuery1, DataSource у DBGrid1 равным - DataSource1. После чего выборки данных благополучно смогут отражаться в таблице DBGrid1 после результативного SQL запроса.
Осталось дело за малым - подключить базу данных к компоненту ADOQuery1, указав пароль доступа к ней. Это делает в строке ниже:
ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DBPath+';Persist Security Info=False;Jet OLEDB:Database Password=123456';
|
DBPath здесь - путь к базе данных, он определяется до этой строки, к примеру c:\bd1.mdb и указывается без кавычек или апострофов. Пароль указывается в последней строчке без кавычек. После этого можно делать SQL запросы в базу данных. |
