Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Пароль к бд ADO

Автор: namra 17.2.2009, 19:49

При создании формы у меня должна открыватся БД сделанная в access у нее пароль, что прописать, а то выдает ошибку "Не проходит проверку подлиности"?

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
TreeView1.LoadFromFile(GetCurrentDir+'\it.dat');
WebBrowser1.Navigate(GetCurrentDir+'\info\КІРІСПЕ.html');
ComboBox1.Items.LoadFromFile(GetCurrentDir+'\comit.bin');
ADOConnection1.ConnectionString:=GetCurrentDir+'\Ado.mdb';
ADOConnection1.LoginPrompt:=True;
ADOConnection1.Mode:=cmShareDenyNone;
ADOConnection1.Provider:='Microsoft.Jet.OLEDB.4.0';
//ADOConnection1.ConnectionString:='Jet OLEDB:Database Password=Пароль'; ????
ADOConnection1.Connected:=True;
end;

Автор: crc83 18.2.2009, 23:11

Код


    adcConnStr:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=%s;'+
               'Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";'+
               'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password=%s;'+
               '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=True;Jet OLEDB:SFP=False';
ADOConnection1.ConnectionString:=format(adcConnStr,['База даных.mdb','Пароль']);
ADOConnection1.LoginPrompt:=False;
ADOConnection1.Connected:=True;

Автор: namra 20.2.2009, 00:17

СПС crc83, я уже сам разобрался просто забыл отметить как решенный

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)