Discussion :

[bertrantitude]

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?

[Ph. B.]

Bonjour,

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...).

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 ?

[bertrantitude]

mysql-5 et Embarcadero® Delphi® XE5 Version 19.0.13476.4176

[bertrantitude]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[ShaiLeTroll]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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);

[bertrantitude]

comme ça c'est résolu merci!