Se connecter / S'enregistrer
Votre question

[Delphi] connection à mysql

Tags :
  • Programme
  • Programmation
Dernière réponse : dans Programmation
10 Février 2007 15:31:42

Bonjour,

Voila j'essaie de me connecté à partir de mon programme en Pascal à une base de donnée en ligne... MySql

J'ai trouvé un tuto pour une bdd en local : http://delphipage.free.fr/delphimysql.html

Donc aucun problème ça fonctionne.

J'ai essayé de recup le code de connection pour me connecter maintenant à une base de donnée MySql situé sur internet avec mes identifiants:

Citation :
procedure TForm1.Button1Click(Sender: TObject);
Var user,host,pwd:string;
portip:integer;
begin
user:='MonUser';
pwd:='MonMdp';
host:='ServeurdelaBdD';
portip:=3306;
MySQL := mysql_init(nil);
mysql_options(mysql,MYSQL_OPT_COMPRESS,0);
if mysql_real_connect(mysql, pChar(host), pChar(user), pChar(pwd), nil, portip, nil, 0)=nil then
Label1.Caption:='La connexion a echouée'
else
Label1.Caption:='Connexion OK';
end;


Problème : la connection echoue systématiquement ( j'ai essayé avec d'autres BdD que j'ai en ligne la connection ne fonctionne pas non plus :(  )

Voila si qqun peut m'aider, ce serait sympa :) 

Autres pages sur : delphi connection mysql

11 Février 2007 08:48:19

Bump

Qqun a une idée ?
14 Décembre 2008 22:24:00

frenchman a dit :
Bonjour,

Voila j'essaie de me connecté à partir de mon programme en Pascal à une base de donnée en ligne... MySql

J'ai trouvé un tuto pour une bdd en local : http://delphipage.free.fr/delphimysql.html

Donc aucun problème ça fonctionne.

J'ai essayé de recup le code de connection pour me connecter maintenant à une base de donnée MySql situé sur internet avec mes identifiants:

Citation :
procedure TForm1.Button1Click(Sender: TObject);
Var user,host,pwd:string;
portip:integer;
begin
user:='MonUser';
pwd:='MonMdp';
host:='ServeurdelaBdD';
portip:=3306;
MySQL := mysql_init(nil);
mysql_options(mysql,MYSQL_OPT_COMPRESS,0);
if mysql_real_connect(mysql, pChar(host), pChar(user), pChar(pwd), nil, portip, nil, 0)=nil then
Label1.Caption:='La connexion a echouée'
else
Label1.Caption:='Connexion OK';
end;


Problème : la connection echoue systématiquement ( j'ai essayé avec d'autres BdD que j'ai en ligne la connection ne fonctionne pas non plus :(  )

Voila si qqun peut m'aider, ce serait sympa :) 






J'ai le même problème, si quelqu'un à la réponse
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS