Подключения к БД Access

[Ayubkhon]

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

[DIgorevich]

Попробуй сделать подключение при запуске программы:

  //Прерываешь соединение
  ADOConnection1.Connected:=false;

  //Формируешь строку подключения
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
    'User ID=Admin;' +
    'Data Source=' + ExtractFilePath(Application.ExeName) + 'bd.mdb' + ';' +
    'Mode=Share Deny None;' +
    'Extended Properties="";' +
    'Jet OLEDB:System database="";' +
    'Jet OLEDB:Registry Path="";' +
//ПАРОЛЬ ПИСАТЬ ТУТ: вместо "123"
    'Jet OLEDB:Database Password=' + '123' + ';' +
    '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;

[Ayubkhon]

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

Попробуй сделать подключение при запуске программы:

  //Прерываешь соединение
  ADOConnection1.Connected:=false;

  //Формируешь строку подключения
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
    'User ID=Admin;' +
    'Data Source=' + ExtractFilePath(Application.ExeName) + 'bd.mdb' + ';' +
    'Mode=Share Deny None;' +
    'Extended Properties="";' +
    'Jet OLEDB:System database="";' +
    'Jet OLEDB:Registry Path="";' +
//ПАРОЛЬ ПИСАТЬ ТУТ: вместо "123"
    'Jet OLEDB:Database Password=' + '123' + ';' +
    '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;

Седелал как написано, не получается, закрепляй пожалуйста готовый пример.

[Stilet]

Посмотри внимательно: Ты вводишь пароль, но не запоминаешь его.
Поставь галочку "Разрешить сохранение пароля"
Может все в этом дело.

[Ayubkhon]

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

Посмотри внимательно: Ты вводишь пароль, но не запоминаешь его.
Поставь галочку "Разрешить сохранение пароля"
Может все в этом дело.

Поставил галочку все равно не получается.

[artemavd]

У меня когда такая шняга случается, я просто удаляю компоненты для подключения и создаю их заново. Это приходится например делать, когда я забыл какую то колонку в DBGrid добавить, а вспомнил позже о ней.

[1224tana]

У меня та же самая проблема, только текст сообщений об ошибке другой: "He выпoлнeнa пpoвepкa пoдключeния из-зa oшибки пpи инициaлизaции пocтaвщикa. Клacc нe зapeгиcтpиpoвaн" - это при первой попытке подключения, при дальнейших - "He выпoлнeнa пpoвepкa пoдключeния из-зa oшибки пpи инициaлизaции пocтaвщикa. Paзpyшитeльный cбoй". От пароля это не зависит и выскакивает когда нажимаю "Проверить подключение" и при выборе абсолютно любого поставщика данных. Раньше все работало нормально. Пробовал переустановить Delphi, ставить Delphi другой версии, переустанавливал Access, ставил ODBS драйверы, результат - ноль. Подскажите пожалуйста, если у кого есть какие идеи по поводу устранения данной проблемы.

[DIgorevich]

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

Седелал как написано, не получается, закрепляй пожалуйста готовый пример.

А собственно, какого поставщика ты используешь?

[1224tana]

Microsoft Jet 4.0 OLE DB Provider
Microsoft Office 12.0 Access Database Engine OLE DB Provid
Microsoft OLE DB Provider for Analysis Services 9.0
Microsoft OLE DB Provider For Data Mining Services
Microsoft OLE DB Provider for Indexing Service
Microsoft OLE DB Provider for Internet Publishing
Microsoft OLE DB Provider for ODBC Drivers
Microsoft OLE DB Provider for OLAP Services 8.0
Microsoft OLE DB Provider for Oracle
Microsoft OLE DB Provider for SQL Server
Microsoft OLE DB Simple Provider
MSDataShape
Пocтaвщик OLE DB для cлужб кaтaлoгoв

Всегда пользовался верхним. Но не работают абсолютно все.

[Stilet]

Господа, а может мы не будем гадать на гуще, а вы прикрепите свои БД сюда?