Форум: "Базы";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];
ВнизПодключение БД через 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, разберешься
← →
Sacrik © (2005-01-13 18:25) [2]Спасибо, разобрался.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2005.02.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.037 c