SQLConnection

Delphi

11/03/2003

Estou usando um SQLConnection para fazer conexao com meu bd interbase, como eu faco pra setar a propriedade database em tempo de execucao?

obrigada,
K-ROL


K-rol

K-rol

Curtidas 0

Respostas

Qmd

Qmd

11/03/2003

Um exemplo que como carregar os parametros de um arquivo ini:

pra fungar precisa incluir o unit inifiles no uses

var
iniconfig : TInifile;
begin
SQLConnection1.Connected := False;
iniconfig := TInifile.Create(ExtractFilePath(ParamStr(0))+´Myconfig.ini´);
with SQLConnection1 do begin
ConnectionName := ´MyIB´;
DriverName := ´Interbase´;
LibraryName := ´dbexpint.dll´;
Params.Clear;
Params.Append(´BlobSize=-1´);
Params.Append(´CommitRetain=False´);
Params.Append(´DriverName=Interbase´);
Params.Append(´ErrorResourceFile=´);
Params.Append(´LocaleCode=0000´);
Params.Append(´RoleName=RoleName´);
Params.Append(´ServerCharSet=WIN1251´);
Params.Append(´SQLDialect=3´);
Params.Append(´Interbase TransIsolation=ReadCommited´);
Params.Append(´WaitOnLocks=True´);
Params.Append(´Database=´+Iniconfig.ReadString(´Config´,´Database´,´c:\pasta\base.gdb´));
Params.Append(´User_Name=´+Iniconfig.ReadString(´Config´,´User_Name´,´SYSDBA´));
Params.Append(´Password=´+Iniconfig.ReadString(´Config´,´Pasword´,´masterkey´));
end;
iniconfig.Free;
try
SQLConnection1.Connected := True;
except
MessageDlg(´Não foi possível conectar ao Banco de Dados. Verifique o ´+#13+10+´arquivo de configuração´, mtWarning, [mbOK], 0);
halt;
end;
end;


GOSTEI 0
Everton

Everton

11/03/2003

SQLConnection.Connected := False;
SQLConnection.Params[´Database´] := caminho do banco;
SQLConnection.Connected := True;


GOSTEI 0
POSTAR