Fórum Conexão DBExpress por INI #204383
06/01/2004
0
é o seguite: eu naum quero definir uma conexão com SQLConnection... eu quero fazer isso com um arquivo ini...sobre o arquivo ini blz.. mas como faço isso no programa ?
Como coloco as configurações corretas no componente?
A idéia disso é fazer uma instalação personalizada... afinal o usuário deveria instalar a base de dados onde ele tem vontade... e não na pasta que q eu escolher...
Como coloco as configurações corretas no componente?
A idéia disso é fazer uma instalação personalizada... afinal o usuário deveria instalar a base de dados onde ele tem vontade... e não na pasta que q eu escolher...
Danielclubedelphi
Curtir tópico
+ 0
Responder
Posts
06/01/2004
Programadormaster
vc deve criar um arq. de exenteção de ini...ex:
Teste.ini
e digitar o seguinte:
[TESTE]
DATABASENAME=C:\Arquivos de programas\Banco\xxxx.gdb
procedure Tfrm_Login.FormActivate(Sender: TObject);
var
sDataBase: String;
begin
{1- Lê arquivo INI e Conecta DataBase -----------------------------}
DataBase := TiniFile.Create(´C:\Arquivos de programas\Banco\Teste.ini´);
dtmPCMSO.SQLConnection.Connected := False;
sDataBase := DataBase.ReadString(´TESTE´,´DATABASENAME´,´´);
dtmPCMSO.SQLConnection.Params.Values[´Database´] := sDataBase;
dtmPCMSO.SQLConnection.Params.Values[´Password´] := ´masterkey´;
dtmPCMSO.SQLConnection.Params.Values[´User_Name´] := ´SYSDBA´;
dtmPCMSO.SQLConnection.Connected := True;
end;
espero ter ajudado...
Teste.ini
e digitar o seguinte:
[TESTE]
DATABASENAME=C:\Arquivos de programas\Banco\xxxx.gdb
procedure Tfrm_Login.FormActivate(Sender: TObject);
var
sDataBase: String;
begin
{1- Lê arquivo INI e Conecta DataBase -----------------------------}
DataBase := TiniFile.Create(´C:\Arquivos de programas\Banco\Teste.ini´);
dtmPCMSO.SQLConnection.Connected := False;
sDataBase := DataBase.ReadString(´TESTE´,´DATABASENAME´,´´);
dtmPCMSO.SQLConnection.Params.Values[´Database´] := sDataBase;
dtmPCMSO.SQLConnection.Params.Values[´Password´] := ´masterkey´;
dtmPCMSO.SQLConnection.Params.Values[´User_Name´] := ´SYSDBA´;
dtmPCMSO.SQLConnection.Connected := True;
end;
espero ter ajudado...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)