Conectar Banco atraves de um arquivo INI usando TDataBase

Question

Ola amigos, vi um artigo no site que conecta o banco de dados atraves de um arquivo INI(onde se especifica o local do banco), s� pq so funciona com IBDataBase, entao queria saber como fa�o pra conecta...

Cabelo · Answer

Colega

Eu n�o sei qual banco vc usa.. mas � mais ou menos assm..

procedure TDM.DataModuleCreate(Sender: TObject);
var
v_ini : TInifile;
v_dirwin : PChar;
v_driver : string;
begin
try
DataBase.Connected := false;
except
ShowMessage(�O Banco de Dados j� possui uma instancia, �+#13+9+�Reinicie seu Computador ou contate o Administrador.�);
Halt(0);
end;
v_dirwin := PChar(StringOfChar(� �,255));
GetWindowsDirectory(v_dirwin,255);
if FileExists(v_dirwin+�\ARQUIVO.INI�) then
begin
v_ini := TIniFile.Create(v_dirwin+�\ARQUIVO.INI�);
v_driver := v_ini.ReadString(�BANCO�,�DRIVERNAME�,�STANDARD�);
try
DM.DataBase.Params.Clear;
DM.DataBase.Params.Add(�DRIVER NAME=�+v_ini.ReadString(�BANCO�, �DRIVERNAME�, v_driver));
DM.DataBase.Params.Add(�PATH=�+v_ini.ReadString(�BANCO�, �PATH�, ��));
DM.DataBase.Params.Add(�ENABLE=�+v_ini.ReadString(�BANCO�, �ENABLE�, �False�));
DM.DataBase.Params.Add(�DEFAULT DRIVER=�+v_ini.ReadString(�BANCO�, �DEFAULTDRIVER�, ��));
Finally
v_ini.free;
end;
try
DM.DataBase.Connected := true;
except on E:Exception do
begin
SHOWMESSAGE(�Erro na Conex�o com o Banco de Dados �+#1013+
�Erro: �+E.Message);
halt(0);
end;
end
else Showmessage(�O arquivo � +v_dirwin+ �\ARQUIVO.INI n�o foi encontrado�);
end;

Colega..

Assim funciona no paradox..

Mas se vc estiver usando outro banco, � simples, basta dar um duplo clique no componente TDataBase que ele ir� abrir a configura��o padr�o das propriedades do driver que vc estiver utilizando..

sem mais.

F�rum Conectar Banco atraves de um arquivo INI usando TDataBase #267135