Abfragen Problem

[Brueckenhauer]

Ich möchte eine Abfrage die so lautet:

select * from land order by datum

ausführen, da kommt aber leider eine Fehlermeldung, wie kann ich es anders machen?

Delphi-Quellcode:

  Form1.connect();
FMysql.Connect;
if assigned(FResult) then begin
    if FMysql.Status<>MYSQL_STATUS_READY then
        ShowMessage('Ein Ergebnis wurde unvollständig gelesen!');
        FreeAndNil(FResult);
    end;
    q :='select * from land order by datum';
    for
    FResult := FMysql.query(q, true, ex);
FMysql.close;

was ist daran falsch? Weil sonst klappen abfragen super damit.

[fkerber]

Hi!

Welche Fehlermeldung kommt denn?


Ciao Frederic

[Brueckenhauer]

Erst kommt die Meldung siehe Bild und danach sehe ich das:
result:=connect(fhost,fuser,fpasswd,fdb,fport,funi x_socket,ftrysock,fclient_flag);

[fiasko]

Wurden die Objekte (vorallem FMysql) die du verwendest richtig angelegt? An welcher Stelle im Code fliegt er denn raus?

[fkerber]

Hi!

Zitat:

Zitat von Brueckenhauer

Erst kommt die Meldung siehe Bild und danach sehe ich das:
result:=connect(fhost,fuser,fpasswd,fdb,fport,funi x_socket,ftrysock,fclient_flag);

Die hier von dir erwähnt Stelle im Quellcode taucht ja oben in deinem Auszug gar nicht auf? Wo steht der denn? Poste am Besten mal alles, was von Relevanz sein könnte. (Falls es die ganze Unit ist, bitte anhängen)

Ciao Frederic

[Brueckenhauer]

diese stelle ist in der unten gepostetn datei....aber soweit ich herausgefunden habe kommt da nur eine fehlermeldung wenn der mehr als 1 Datenreihe als Ergebnis bekommt...

[Brueckenhauer]

hat keiner eine Ahnung wo das dran liegen kann?

[Memo]

Zitat:

Zitat von Brueckenhauer

Delphi-Quellcode:

  Form1.connect();  <----Du connectest eine Form?
FMysql.Connect;
if assigned(FResult) then begin
    if FMysql.Status<>MYSQL_STATUS_READY then
        ShowMessage('Ein Ergebnis wurde unvollständig gelesen!');
        FreeAndNil(FResult);
    end;
    q :='select * from land order by datum';
    for FResult := FMysql.query(q, true, ex); <---das hat der Compiler gefressen?

FMysql.close;

Bist du dir sicher den oben gezeigten Quellcode überhaupt compiliert bekommen zu haben?

[Brueckenhauer]

also zu 1. das mit der Form1.connect(); das passt, da die abfrage auf form4 ist und der die connect daten von form1 benutzen soll, das mit dem for Fresult ist ein Tippfehler, das for gehört da nicht hin....

[Memo]

Dann zeig doch mal wie du FMysql erzeugst. Deine erste Fehlermeldung sieht aus als ob du auf etwas nicht existierendes zugreifst.

PS. Benutzt mal FMysql als Suchbegriff hier im Forum. Es gab mal jemanden mit einem ähnlichen Problem, es stellte sich heraus, das er MySql gar nicht installiert hatte(ich will dir aber nichts unterstellen :wink: )

[Brueckenhauer]

Mysql geht, da ich in der ersten form schon eine abfrage mache, die super funktioniert nur in der 4ten form macht selbst die gleiche abfrage probleme.....

[Memo]

Zitat:

Zitat von Brueckenhauer

Mysql geht, da ich in der ersten form schon eine abfrage mache, die super funktioniert nur in der 4ten form macht selbst die gleiche abfrage probleme.....

Was meinst du vorhin mit "die Abfrage ist auf Form4"? Wo steht denn nun der Quellcode, in Form1 oder Form4?
Ich kann irgenwie nicht erkennen, dass du FMysql aus einer anderen Form(Form1?) benutzt.

PS. Die pas-Datei die du an deinen Beitrag oben angehängt hast, ist zu diesem Problem nicht sehr hilfreich.

[Brueckenhauer]

also, in form1 stehen die connect daten, datenbank, name, pw usw... dann wird in form4 oben bei uses das: umysqlvio, uMysqlCT, uMysqlClient, uMysqlHelpers angehängt dadrunter kommt: {$I mysqlinc.inc} und dann wird bei private das eingetragen:
FMysql: TMysqlClient;
FResult: TMysqlResult;

und dann halt der obige quelltext, auf form1 geht er und auf form4 gibt er halt die obig gepostete Fehlermeldung aus.

[Memo]

Hast du :

Code:

FMysql := TMysqlClient.create;

eingebaut?

[Brueckenhauer]

ja, hatte ich vergessen zu schreiben....

[Memo]

Code:

Form1.connect();

Ich bleibe immer wieder hier hängen. Was passiert in dieser Zeile? Wie übergibst du die Verbindungsdaten von FMySql?

[Brueckenhauer]

dadrinne steht das:

procedure Tform1.connect();
begin
// Eigenschaften der Verbindung Anfang
FMysql.Host := '+++++';
FMysql.port := 3306;
FMysql.user :='++++';
FMysql.password := '++++';
FMysql.UnixSocket := '';
FMysql.Db := '++++'; // Datenbank auf dem Server
FMysql.UseNamedPipe := false;
FMysql.UseSSL := false;
FMysql.Compress := true;
FMysql.TrySockets := false;
// Eigenschaften der Vebindung Ende
end;

[Memo]

Zitat:

Zitat von Brueckenhauer

dadrinne steht das:

procedure Tform1.connect();
begin
// Eigenschaften der Verbindung Anfang
FMysql.Host := '+++++';
FMysql.port := 3306;
FMysql.user :='++++';
FMysql.password := '++++';
FMysql.UnixSocket := '';
FMysql.Db := '++++'; // Datenbank auf dem Server
FMysql.UseNamedPipe := false;
FMysql.UseSSL := false;
FMysql.Compress := true;
FMysql.TrySockets := false;
// Eigenschaften der Vebindung Ende
end;

Der war gut :mrgreen: Wenn ich Dich richtig verstanden habe hast du FMysql im privat von Form1 deklariert. Jetzt kommst du von Form4 weisst die Werte FMysql(von Form1 zu) kehrst zu Form4 zurück und erwartest das die FMysql(von Form4) von der Zuweisung etwas mitbekommen hat. Das kann nicht funktionieren.

[Brueckenhauer]

ok, lassen wa das :lol: jetzt gehts....

[Brueckenhauer]

aber eine Frage noch....Ich bekomme bei einem ergebnis auf 30 Reihen als ergebnis, wie bekomme ich jede reihe des ergebnisses in eine Zeile der Listbox?

[fkerber]

Hi!

Am besten stellst du deine Frage in einem neuen Thread - von wegen der Übersichtlichkeit :wink:


Ciao Frederic