1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
| var
TempDSN : String;
begin
TempDSN := 'mysql';
try
//First Create a DSN to the system database : MySQL
CreateDSN(TempDSN, edPassword.Text, edServerAdress.Text, edUser.Text);
try
//Click the connection button
if TryConnect(TempDSN, edUser.Text) then //Connection successful
begin
//Create the User DSN if success
CreateDSN(edDataBaseName.Text, edPassword.Text, edServerAdress.Text, edUser.Text);
if CreateDataBase then
begin
MessageDlg('La base de donnée a été correctement crée!', mtInformation, [mbOK], 0);
Close;
end
else
MessageDlg('Erreur de création de la base de donnée', mtError, [mbOK], 0);
end
else //Can't connect
MessageDlg('Impossible de se connecter à la base de donnée! ' + #13#10 +
'Paramètres incorrects ou serveur non lancé/inexistant', mtError, [mbOK], 0);
except
On E : Exception do
begin
ShowMessage(E.Message);
end;
end;
finally
//In any case, delete the temporary created DSN
DeleteDSN(TempDSN);
end; |
Partager