1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| function Tdm.f_CreerConnect(pHostName, pBase: string): TZConnection;
// Verified by xxxxx le 02/11/2008 07:36:03
begin
Result := TZConnection.Create(Self);
with Result do
begin
try
HostName := pHostName; // Adresse IP de la base
Database := pBase; // répertoire de la base
Protocol := 'firebird-2.0'; // Mettre le protocole MS Access
TransactIsolationLevel := tiReadCommitted;
AutoCommit := True;
User := ''; // Mettre le nom de l'utilisateur
Password := ''; // Mettre le mot de passe
Connected := True;
except
MsgDlg(f_LireMessage(kMsgGeneral_10 + pBase), mtError, ['mbOk']);
Result := nil;
Free; // Détruire la base car création impossible
end;
end;
end; |
Partager