[Kis]

Всем добра! Помогите разобраться, пожалуйста. Присоединяюсь к базе access и при проверке соединения выходит ошибка "Не выполнена проверка подключения из-за ошибки при инициализации поставщика. Не удается запустить приложение. Системная база данных отсутсвует или открыта с монопольным доступом другим пользователем". Не знаю важно или нет, но чтобы открыть базу напрямую нужно подключиться к рабочей группе "Gate.mdw"

[M.A.D.M.A.N.]

Строку подключения покажи.

[Kis]

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM events');
ADOQuery1.Active:=True;
end;

[M.A.D.M.A.N.]

Строку подключения к базе (adoconnection.connectionstring), а не запрос на выборку.

[Kis]

Пардон

Provider=Microsoft.Jet.OLEDB.4.0;Password=gate;Use r ID=gate;Data Source=C:\GATE\Server\Events\n111226.mdb;Persist Security Info=True

[RusMaXXX]

попробуй так:

Код:

var
  path: string;
begin
.....................
  path:='путь к БД';
  ADOConnection1.Connected:=false;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+path+';Mode'+
              '=Share Deny None;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database'+
              'Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial'+
              'Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create'+
              'System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don'+''''+
              't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;';
  ADOConnection1.Connected:=true;
.....................