Connexion avec MySQL

Version imprimable

12/06/2016, 12h52
bertrantitude

Connexion avec MySQL

bonjour,

je travaille sous delphi. Actuellement, je travaille avec xampp pour récupérer les données dans la bdd (MySQL) qui est présente sur le même pc. Mais si je n'utilise pas xampp, (pour lancer MySQL), ça ne fonctionne pas. Je ne sais pas quel code je dois placer dans le datamodule de delphi afin de me connecter directement à MySQL.

Je sèche complètement... Quelqu'un pourrait m'aider?
14/06/2016, 17h37
Ph. B.

Bonjour,

Citation:

Envoyé par bertrantitude

Mais si je n'utilise pas xampp, (pour lancer MySQL), ça ne fonctionne pas. Je ne sais pas quel code je dois placer dans le datamodule de delphi afin de me connecter directement à MySQL.

AMHA, le serveur MySQL n'est pas démarré du fait que vous n'avez pas démarré XAmpp...

XAmpp fournit des fichiers de script pour démarrer les différents serveurs indépendamment dont MySQL:

Démarrage MySQL: \xampp\mysql_start.bat
Arrêt MySQL: \xampp\mysql_stop.bat
Après ces mêmes serveurs peuvent être installés en tant que service. Pour MySQL:

Installer le service MySQL: \xampp\mysql\mysql_installservice.bat
Désinstaller le service MySQL: \xampp\mysql\mysql_uninstallservice.bat
Il faut ensuite paramétrer ce service pour le placer en démarrage automatique, ou le démarrer (et l'arrêter) manuellement (Net start.../Net stop...).

Citation:

Envoyé par bertrantitude

Je ne sais pas quel code je dois placer dans le datamodule de delphi afin de me connecter directement à MySQL.

Quelle version de Delphi, quels composants d'accès et de manipulations des données ?
14/06/2016, 21h56
bertrantitude

mysql-5 et Embarcadero® Delphi® XE5 Version 19.0.13476.4176

en fait ce que je cherche c'est qqe chose comme ça qu'on met dans le udata et qui permet la connexion. Mais je ne sais absolument pas comment faire.

Code:

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
  var Connection : ZConnection;
      Base : String;
begin
  Try
    ZConnection := ZConnection.Create(nil);
 
    if ZConnection.Connected then  // already connected?
    begin
      MessageDlg('Vous êtes déjà connecté!', mtInformation, [mbOK], 0);
      Exit;
    end;
 
    begin
     Base := 'test';
 
      ZConnection.LoginPrompt:=False;//dont ask for the login parameters
      ZConnection.ConnectionString := 'Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database='base';User=root; Password=test;Option=3;';
 
      ZConnection.Connected := True; //open the connection
 
      MessageDlg('Connected to databse "'base'".', mtInformation, [mbOK], 0);
    end;
 
  Except
    On E: Exception do
    begin
      MessageDlg('Impossible de se connecter à la base de données "'base'"!.' + #13 + #10 + 'Veuillez rééssayer', mtError, [mbOK], 0);
    end;
  end;

:tagcode:

udata ? Quoi fais-tu référence ?

Ta ConnectionString ressemble plutôt à une chaine ADO, tu devrais peut-être consulter le tutoriel : ZEOSDBO , une bibliothèque Open Source de composants d'accès aux Bases de Données
Sans connaitre le TZConnection, j'ai l'impression que ConnectionString n'existe pas dans cette classe et que cela serait plutôt :
Code:

1 2 3 4 5 6 7 ZConnection.HostName := 'NomDuServeur' ZConnection.Protocol := 'mysql-5'; ZConnection.Port := 3306; ZConnection.Database := 'NomDeLaBase' ZConnection.User := 'root'; ZConnection.Password := ''; ...
Faudrait peut-être reprendre les bases : Guide Pascal et Delphi - -V. Préliminaires - V-A. Données simples dans un programme Pascal - V-A-2. Caractères et chaînes de caractères
Code:

1 2 3 ZConnection.ConnectionString := 'Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database='base';User=root; Password=test;Option=3;'; MessageDlg('Connected to databse "'base'".', mtInformation, [mbOK], 0); MessageDlg('Impossible de se connecter à la base de données "'base'"!.' + #13 + #10 + 'Veuillez rééssayer', mtError, [mbOK], 0);
devient
Code:

1 2 3 ZConnection.ConnectionString := 'Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=' + base + ';User=root; Password=test;Option=3;'; MessageDlg('Connected to databse "' + base + '".', mtInformation, [mbOK], 0); MessageDlg('Impossible de se connecter à la base de données "' + base + '"!.' + #13 + #10 + 'Veuillez réessayer', mtError, [mbOK], 0);

16/06/2016, 08h28
bertrantitude

comme ça c'est résolu merci!