Senha em arquivo de inicialização

Delphi

16/12/2012

Boa noite pessoal.
Tenho um sistema utilizando access e delphi. Coloquei senha no banco de dados para que o mesmo não seja aberto sem autorização. O problema é que criei um arquivo de inicialização e nele tem está salvo a senha do banco de dados. Coloquei uma senha no arquivo de inicialização, mas ai o programa não abre.. aparece uma mensagem dizendo que houve falha de autenticação. Gostaria de saber se há como acrescentar essa senha no projeto para que para que ele leia a senha do arquivo de inicialização...

código de inicialização:
[banco_dados]
conexao=Provider=nomedopc.Jet.OLEDB.4.0;Data Source=C:\Dolar\dolar.mdb;Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password=SENHAAQUI;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=False;Jet OLEDB:SFP=False;

GRATO,
Alessandro F. Antonio
Alessandro

Alessandro

Curtidas 0

Respostas

Rafael Cunha

Rafael Cunha

16/12/2012

Qual componente vc trza para realizar a conexão com o banco de dados?

Vc já verificou se está esquecendo o componente de conexão com o banco com o active true.
GOSTEI 0
Rodolpho Silva

Rodolpho Silva

16/12/2012

Poste o código de como você está lendo esse arquivo INI...
GOSTEI 0
Alessandro

Alessandro

16/12/2012

Esse é o código do arquivo de inicialização:

[banco_dados]
conexao=Provider=nomedopc.Jet.OLEDB.4.0;Data Source=C:\Dolar\dolar.mdb;Mode=Share Deny None;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password=SENHAAQUI;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=False;Jet OLEDB:SFP=False;


estou usando componente ADOConection.
ADOquery
Datasource...

coloquei senha no banco de dados, coloquei a senha do banco de dados no adoconection e depois copiei e colei no arquivo de inicialização, mas a senha fica salva no arquivo de inicialização. O que fiz foi colocar senha no arquivo de inicialização para ninguem consiga abrir o arquivo de inicialização, mas dai o sistema não conecta.


GOSTEI 0
Alessandro

Alessandro

16/12/2012

Estou usando o código abaixo para ler no arquivo INI:

procedure TDM.DataModuleCreate(Sender: TObject);
var
param:string;
begin
iniConf:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'conf.ini');
param:= iniConf.ReadString('banco_dados','conexao','');
dm.conexao.ConnectionString := param;
dm.conexao.Connected := true;
end;

att,

GOSTEI 0
POSTAR