| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подключение БД через ADO
Sacrik © (2005-01-13 15:41:00)Суть такова. Есть БД сделанная на аксцесе. Подключается к 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;
}
Sacrik (2005-01-13 18:25:00) [1]Спасибо, разобрался.
Vit@ly (2005-01-13 17:40:00) [2]Можно попробовать так:
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, разберешься
| |
