Bonjour,

Voilà j'ai un petit soucis de connexion sur une base de donnée.

Voici ce que je tape :

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
uses mysql;
 
procedure TForm1.Button1Click(Sender: TObject);
var
    mySQLConnection : PMYSQL;
 
begin
    mySQLConnection := mysql_init(nil);
    if mysql_real_connect(mySQLConnection, 'Nom du serveur de la base de données', 'Nom d'utilisateur', 'Mot de passe', 'Nom de la base de données', 0, nil, 0) <> nil then begin
        ShowMessage('OK');
    end else begin
        ShowMessage('WWWWRRRRRRRRRRROOOOOOOOOOONNNNNNNNNNGGGGGGGGGG !!!');
    end;
    mysql_close(mySQLConnection);
end;
Et le problème c'est que j'ai essayé avec plusieurs base de données et j'obtiens toujours un message "WRONG".

J'ai essayé de changé le "0" après "Nom de la base de données" en 21, mais j'ai toujours le même problème, pourriez-vous m'aidez s'il vous plait ?

J'essaye de me connecter à une base donnée FREE ou 1and1.

[Modération] Sujet déplacé par Laurent Dardenne [/Modération]