MySQL Delphi
DreamCoder
Messages postés
1
Date d'inscription
jeudi 29 mai 2003
Statut
Membre
Dernière intervention
15 décembre 2004
-
15 déc. 2004 à 21:39
Hnimsgern Messages postés 48 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 4 mars 2005 - 16 déc. 2004 à 09:55
Hnimsgern Messages postés 48 Date d'inscription mercredi 18 décembre 2002 Statut Membre Dernière intervention 4 mars 2005 - 16 déc. 2004 à 09:55
1 réponse
Hnimsgern
Messages postés
48
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
4 mars 2005
16 déc. 2004 à 09:55
16 déc. 2004 à 09:55
Auparavant as-tu lancer l'exécutable mysql.exe? Exemple de routine de conexion : {---------------------------------------------------------------------}
function TMysqlplus.Connect_db:Integer;
var Status:integer;
begin
mysql_connect(@mysqlcon, 'localhost', 'root', '');
if mysqlcon.net.last_errno <> 0 then begin
//Lancer MySQL ici avec l'API Windows ShellExecute.
Status:=Run_MySQL(Handle);
//Relance la connection si mysql a bien été lancé.
if Status<> 2 then begin
mysql_connect(@mysqlcon, 'localhost', 'root', '');
if mysqlcon.net.last_errno <> 0 then begin
ShowMessage ('Connexion au serveur MySQL impossible.');
result:=Status;
exit;
end;
end;
end;
Mysql_connected:=true;
result:=Status;
end;
{---------------------------------------------------------------------}
HN
function TMysqlplus.Connect_db:Integer;
var Status:integer;
begin
mysql_connect(@mysqlcon, 'localhost', 'root', '');
if mysqlcon.net.last_errno <> 0 then begin
//Lancer MySQL ici avec l'API Windows ShellExecute.
Status:=Run_MySQL(Handle);
//Relance la connection si mysql a bien été lancé.
if Status<> 2 then begin
mysql_connect(@mysqlcon, 'localhost', 'root', '');
if mysqlcon.net.last_errno <> 0 then begin
ShowMessage ('Connexion au serveur MySQL impossible.');
result:=Status;
exit;
end;
end;
end;
Mysql_connected:=true;
result:=Status;
end;
{---------------------------------------------------------------------}
HN
