Подключение БД через ADO

← →
Sacrik © (2005-01-13 15:41) [0]

Суть такова. Есть БД сделанная на аксцесе. Подключается к Delphi через ADO. Решил защитить БД паролем, и теперь, при подключении в АДО (через Microsoft.Jet.OLEDB.4.0) выдаётся ошибка: БД отсутствует, либо открыта с монопольным доступом другим пользователем. Если поле пароля оставить пустым, выдаст ошибку: ошибочный пароль. Есть код, который сделан на С Билдере, в котором удалось прикрутить БД через ADO, но сделать то же самое на Delphi не удалось. Мож кто сталкивался с такой проблемкой?

{
getcwd(buffer, MAXPATH);
App_Path=AnsiString(buffer)+"\\";

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;"
" Data Source="+App_Path+"db.mdb; "
" Mode=Share Deny None;Extended Properties="";"
" Jet OLEDB:System database=""; "
" Jet OLEDB:Registry Path=""; "
" Jet OLEDBatabase Password=""+A1+A4+A3+A5+A2+"";"
" Jet OLEDB:Engine Type=5;Jet OLEDBatabase 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 OLEDBon"t Copy Locale on Compact=False;"
" Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"
;
if (ADOConnection1->Connected==true){ADOConnection1->Connected==false;}
ADOConnection1->ConnectionString=ConnString;
ADOConnection1->Connected==true;
}

← →
Vit@ly © (2005-01-13 17:40) [1]

Можно попробовать так:

Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=db.mdb;
Persist Security Info=False;Jet OLEDB:Database Password="123"

Как к Data Source=db.mdb добавить App_Path, разберешься

Спасибо, разобрался.

Подключение БД через ADO Найти похожие ветки