Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.01.2008, 13:34   #1
azat
Пользователь
 
Регистрация: 26.11.2007
Сообщений: 56
По умолчанию проблема доступа к запароленной БД (ADO)

Установил пароль на бд Access.
На форму закинул ADOConnection.
в свойство ConnectionString->Build:
поставщик данных Microsoft Jet 4.0......
путь к бд, логин и пароль поставил.
права доступа: Read/Write.
Делаю ADOConnection.Open;
Ругается мол: "Не удается запустить приложение. Системная база данных отсутсвует или открыта с монопольным доступом другим пользователем".
Хотя к этой бд никакая другая программа не обращается (вкуючая саму среду MSAccess).
Без пароля все работает нормально.
Как правильно работать с запароленной бд через ADO???
Кто-нибудь знает? помогите плиз...
azat вне форума Ответить с цитированием
Старый 10.01.2008, 16:07   #2
Domovoy
Форумчанин
 
Регистрация: 24.10.2007
Сообщений: 254
По умолчанию

На самом деле что может быть проще чем работа с *.mdb базами. Вы уверены что внесли верный пароль к базе? Там та всего ничего указать путь к файлу и задать логин да пароль(2 шага).И всё. Дальше проверяем подключение тут же.
Domovoy вне форума Ответить с цитированием
Старый 10.01.2008, 20:57   #3
Pitbull
детский тренер
Форумчанин
 
Аватар для Pitbull
 
Регистрация: 08.06.2007
Сообщений: 532
По умолчанию

Вот Вам пример открітия базі с паролем:

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
 stroka:string;
 passwd:string;
begin
 parol:='123';
 stroka:='Provider=Microsoft.Jet.OLEDB.4.0;'+
         'Data Source=base1.mdb;Persist Security Info=False;'+
         'Jet OLEDB:Database Password='+passwd;
 ADOTable1.ConnectionString:=stroka;
 ADOTable1.TableName:='Имя таблиці';// УКАЖИТЕ ИМЯ
 ADOTable1.Open;
end;
на форму закиньте AdoTable и не настраивайте ничего... Закиньте в директорию программі вашу базу.... Укажите имя, там где я указа... Укажите пароль вашей базі в переменную parol
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp

Последний раз редактировалось Alex21; 11.01.2008 в 12:08. Причина: Для оформления кода используйте кнопку #CODE
Pitbull вне форума Ответить с цитированием
Старый 11.01.2008, 08:53   #4
azat
Пользователь
 
Регистрация: 26.11.2007
Сообщений: 56
Радость

Цитата:
Сообщение от Pitbull Посмотреть сообщение
Вот Вам пример открітия базі с паролем:

procedure TForm1.Button1Click(Sender: TObject);
var
stroka:string;
passwd:string;
begin
parol:='123';
stroka:='Provider=Microsoft.Jet.OLE DB.4.0;'+
'Data Source=base1.mdb;Persist Security Info=False;'+
'Jet OLEDB:Database Password='+passwd;
ADOTable1.ConnectionString:=stroka;
ADOTable1.TableName:='Имя таблиці';// УКАЖИТЕ ИМЯ
ADOTable1.Open;
end;

на форму закиньте AdoTable и не настраивайте ничего... Закиньте в директорию программі вашу базу.... Укажите имя, там где я указа... Укажите пароль вашей базі в переменную parol
спасибо большое, проблема оказалась в неверном заполнении строки ADOConnection.ConnectionString; (хотя до этого кучу вариантов перепробывал)
azat вне форума Ответить с цитированием
Старый 18.09.2008, 21:14   #5
Fantom
Пользователь
 
Аватар для Fantom
 
Регистрация: 10.05.2008
Сообщений: 41
По умолчанию

Цитата:
Сообщение от azat Посмотреть сообщение
Установил пароль на бд Access.
На форму закинул ADOConnection.
в свойство ConnectionString->Build:
поставщик данных Microsoft Jet 4.0......
путь к бд, логин и пароль поставил.
права доступа: Read/Write.
Делаю ADOConnection.Open;
Ругается мол: "Не удается запустить приложение. Системная база данных отсутсвует или открыта с монопольным доступом другим пользователем".
Хотя к этой бд никакая другая программа не обращается (вкуючая саму среду MSAccess).
Без пароля все работает нормально.
У меня в точности такая же ситуация. Токо пароль я ввожу правильно...
Fantom вне форума Ответить с цитированием
Старый 20.09.2008, 13:34   #6
Черничный
Форумчанин
 
Регистрация: 27.01.2007
Сообщений: 293
По умолчанию

Конектион стринг наверное лучше ручками писать, через build так же вылетает.
Черничный вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нарушение доступа Perception Помощь студентам 9 11.07.2008 14:44
бан доступа в NTFS meinung Win Api 6 09.03.2008 03:21
нет права доступа Rio309 Общие вопросы Delphi 7 17.02.2008 09:38
Закрытие доступа к файлу rasvik Общие вопросы Delphi 8 18.04.2007 11:39
Проблема многопоточного доступа к переменной lexluther Win Api 1 06.02.2007 22:22