Hallo,
ich versuche gerade von mein Programm, auf eine Datenbank zuzugreifen, die auf meinen Server liegt. Leider unterbricht er die Verbindung mit der Fehlermeldung, das ein Password für diesen Benutzer benötigt wird. Das Passwort habe ich aber eingegeben.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure TForm1.Button1Click(Sender: TObject);
begin
FMysql.Host := '78.46.36.7';
FMysql.port := 3306;
FMysql.user :='xxx';
FMysql.password:='xxx';
FMysql.UnixSocket := '';
FMysql.Db := 'Interpreten'; FMysql.UseNamedPipe := false;
FMysql.UseSSL := false;
FMysql.Compress := true;
FMysql.TrySockets := false;
if FMysql.Connect then
ShowMessage('Verbindung aufgebaut')
else
ShowMessage('Fehler beim Verbinden: '+FMysql.LastError);
end; |
