Connecten von Delphi auf MySQL-Datenbank via ZeosDBO

[1PM]

Hallo!

Ich habe ZeosDBO 5.4 korrekt installiert und die benötigten *.dcu und *.dcr Dateien in das Delphi5\lib Verzeichnis kopiert. Ich benutze die Version Delphi 5 Enterprise! Im MySQL Manager habe ich den Benutzer "user" mit dem Passwort "12345" mit allen Rechten angelegt!

Mit folgendem Quelltext habe ich versucht auf die MySQL-Datenbank zu connecten (dbconnect = TZMySqlDatabase Komponente) :

dbconnect.Host:='localhost';
dbconnect.Login:='user';
dbconnect.Password:='12345';
dbconnect.Database:='datenbank';
dbconnect.Connected:=True;
try

finally
dbconnect.Connected:=False;
end;

if dbconnect.connected=false then showmessage('connected') else showmessage('no connection');

Woran könnte es liegen, dass ich keine Verbindung zur Datenbank bekomme?

Vielen Dank im voraus!

MfG
1PM

PS: Es funktionieren selbst die Beispiele von ZeosDBO nicht! :?

[stiggi]

mhh, vielleicht weicht dein MySQL-Port vom Standardport (3306) ab oder der Zugriff zur DB ist eingeschränkt (soll heißen, daß User nur von bestimmter IP aus zugriffsberechtigt ist)

[mschaefer]

Moin,
zunächst mal probieren ob Du mit Tools wie MySQL-Front mit Deinen Parameteren auf die Datenbank zugreifen kannst. Heist Deine Datenbank auch Datenbank. Vom Code her sieht das Ok aus. Habe mit Zeos eigentlich schon viel gute Erfahrung. Oft sind das Kleinigkeiten wie verstellte Datenbankverzeichnisse. Du müßtest im Verzeichnes MySQL Data auch ein Verezeichnis "datenbank" finden. Bitte Großkleinschreibung beachten.

So long zunächst

// Martin

[Hansa]

Gibts sowas ??? :wall: Au Weia, das tut schon weh und keiner siehts. :mrgreen:

Zitat:

Zitat von 1PM

finally
dbconnect.Connected:=False;
end;

Wird der finally Abschnitt nicht durchlaufen, egal was vorher passiert ??? :shock: :shock: :mrgreen: :lol:

Gruß
Hansa

[mschaefer]

Moin,
Tja gibts fataler Weise und damit tauschen wir das 'finally' gegen 'except' und es läuft bestens. Klasse!

Grüße //Martin :wink:

[Hansa]

Hi,

wenigstens mal einer der so was zugibt. Wer sagt: "Mir passiert sowas nicht!", der lügt!!! Mich hat am meisten gewundert, daß das über einen Monat lang keiner vor mir gesehen hat. 8) 8) 8) 8) 8)

Gruß
Hansa