SQLConnection
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
obrigada,
K-ROL
K-rol
Curtidas 0
Respostas
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;
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
11/03/2003
SQLConnection.Connected := False;
SQLConnection.Params[´Database´] := caminho do banco;
SQLConnection.Connected := True;
SQLConnection.Params[´Database´] := caminho do banco;
SQLConnection.Connected := True;
GOSTEI 0