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


K-rol

K-rol

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;


Responder

11/03/2003

Everton

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


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar