Discussion :

[will-scs]

Bonsoir,

J'ai décidé aujourd'hui, pour occupé ma soirée, d'essaier de crée une Connection MySQL avec Delphi 2005 Edition Perso.
J'ai cherché un tutorial et je suis tombé sur celui d'ici > http://lfe.developpez.com/PasmySQL/ ...

J'ai bien introduit le MySQL.pas dans le dossier de mon Projet, j'ai aussi introduit le DLL.

Voici le code de mon Unit1

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
30
31
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
end.

Où dois-je introduire le code de connection ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var
    mySQLConnection : PMYSQL;
 
begin
    if mysql_real_connect(mySQLConnection, '127.0.0.1', 'root', 'root', 'test', 0, nil, 0) <> nil then begin
        // Connection réussie
    end else begin
        // Echec de connection
    end;
end;

Dois-je faires quelque chose d'autre ?
J'ai bien ajouter le MySQL.pas au projet.

Je vous écoute, messieurs les experts

Cordialement

Will / Nicolas

[skywaukers]

bonjour,

ben tu peux le mettre dans le oncreate, ou dans une procédure appelée quand tu as besoin de te connecter. Par contre je pense qu'il faille que tu ajoute MySQL dans les uses de ton unité.

@++
Dany

[will-scs]

Hum, je suis paumé... Quand Delphi 2005 Compile le MySQL.pas auquel est ajouté :

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
 
type
    PMYSQL_FIELD = ^TMYSQL_FIELD;
    TMYSQL_FIELD = record
    name: pChar;
    table: pChar;
    org_table : pChar;
    db : pChar;
    def: pChar;
    length: longword;
    max_length: longword;
    flags: longword;
    decimals: longword;
    _type: enum_field_types;
end;

Il met dit (erreur) que "enum_field_types" n'est pas déclaré...

Et je ne sais pas où mettre exactement le code de liaison à la DLL et de connection à MySQL dans mon Unit.

Help me please !