Abfragen Problem

[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?