SQLConnection
11/03/2003
0
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
Curtir tópico
+ 0
Responder
Posts
11/03/2003
Qmd
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;
Responder
11/03/2003
Everton
SQLConnection.Connected := False;
SQLConnection.Params[´Database´] := caminho do banco;
SQLConnection.Connected := True;
SQLConnection.Params[´Database´] := caminho do banco;
SQLConnection.Connected := True;
Responder
Clique aqui para fazer login e interagir na Comunidade :)