Wie trenne ich die Verbindung?

[mgapski]

Hi Leuts,
ich hab ein großes Problem:
Ich schreibe grad ein Prog mit dem ich auf eine MySQL-DB
zugreife. Das ist alles auch kein Problem... ich baue eine
Verbindung auf, lese Daten aus und schreibe wellche rein.

Ich habe das so gelöst das ich einmal eine Verbindung aufbau
und diese die ganze Zeit aktiv ist.
Nun möchte ich diese jedoch peer Button schliesen können...
Aber egal was ich mache, die Verbindung bleibt offen... :cry:

Kann mir da wer helfen?

MfG Ich

[jim_raynor]

Ich kenne mich nicht mit ZEOs aus, aber denke doch dass es dort eine Eigenschaft Active (wo auch immer) gibt.

[freak4fun]

SQL-Code:

mysql_close();

MfG
freak

[mgapski]

ok, das schaut ja schonma net schlecht aus...
aber wo soll ich das bitte eintippan??

MfG Ich

[freak4fun]

Also ich hab das so:

SQL-Code:

  MeineVerbindung = mysql_connect("", "", "");
   ...
mysql_close(MeineVerbindung);

Allerdings hab ich das in PHP gemacht. Vielleicht kannste trotzdem was mit anfangen. :angel2:

MfG
freak

[mgapski]

Hab ich mir doch fast gedaht das das nicht Delphi-Syntax ist :)

Kann damit leider nicht besonders viel anfangen :(

Hat keiner ne andere Idee?

MfG, Ich

[glkgereon]

also von zeos habbich keine ahnung, aber bei ADO geht das so:

ADOConnection.Close;

[Stevie]

Delphi-Quellcode:

ZConnection.Disconnect;

[mgapski]

geht net :(

MfG, Ich

[Stevie]

Ok, mit raten kommen wir nicht weiter, bitte etwas Code und genaue Erklärung, was heißt "geht net"? ;-)

[freak4fun]

Was heißt denn geht nicht? :wiejetzt: Stürzt dein PC jedes mal ab? :gruebel:

Jetzt wünsch ich mir auch eine Kristallkugel. :wall: Mindestens 21". :angel:

MfG
freak

[mgapski]

Nein, Abstürzen tut der net... der fliegt mir driekt um die Ohren....
Das Problem ist, das ich, obwohl ich die Verbindung eigentlich trenne,
ich immer noch sql-Anfragen ausführen kann... und das ist ja wohl nicht
Sin an der Sache...

n bisl Code hätt ich auch für euch

Delphi-Quellcode:

dbMain.Host:= edit1.Text;
dbMain.Login:= edit2.Text;
dbMain.Password:= edit3.Text;
dbMain.Database:= 'Meinedb';
dbMain.Connected:= true;

<--- Damit mach ich die Verbindung auf

Delphi-Quellcode:

dbMain.Connected:= false;

<--- Damit wieder zu

Delphi-Quellcode:

qrMain.SQL.Text:='Select * from `SagIchNet` order by idx;';
qrMain.Open;

<--- geht aber immer noch :(

Ich hoffe das reicht an Infos.. wenn nicht... meckern ^^


MfG, Ich

[Stevie]

Hrmpf, manche Leute nennen sowas Komfort! :?
Wenn ein Zeos-DataSet (Query, Table, was auch immer) geöffnet wird, dann wird, falls eine Connection zugewiesen ist, diese automatisch auch geöffnet. :roll:

[mgapski]

Komfort?
Ich nene das zulassen einer Verbindung ohne zu Überprüfen
ob der User immer noch der selbe ist und das Recht hat sich
mit der Datenbank zu verbinden.

Wenn ich das Programm starte und

Delphi-Quellcode:

qrMain.SQL.Text:='Select * from `SagIchNet` order by idx;'; 
qrMain.Open;

ausführen will, kommt ne Fehlermeldung... ist ja auch richtig
so.
Wenn ich jedoch einmal verbunden bin und dann wieder die
Verbindung trenne, kann ja sein das ich nicht mehr vor
dem Rechner sitze... sei es weil das Programm noch was berechnet,
kann ich den Befehl trotzdem ausführen...

Es muss doch möglich sein das Zeos erneut die Login-Daten anfragt.... *verzweifel*


MfG, Ich

[Stevie]

1. Was wohl die Eigenschaft LoginPrompt macht? :gruebel: (aber wahrscheinlich hast du deinen eigenen Login-Dialog)
also
2. Im OnDisconnect Username, Password aus Connection löschen
Gibt aber wahrscheinlich nen Verbindungsfehler, also
3. Sauber Programmieren!

Delphi-Quellcode:

if ZConnection.Connected then {...}

[mgapski]

:love: Mein Held!!!!!! :love:

:thumb: :thumb: :thumb: Es geht :thumb: :thumb: :thumb:

:cheers: Danke für die Hilfe :cheers:

:dancer: :witch: :dancer2:

MfG, Ich