Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Wert aus SQL im TEdit anzeigen


Szebin - Mi 18.01.06 11:55
Titel: Wert aus SQL im TEdit anzeigen
Hallo,

ich habe eine ADOConnection und eine ADOQuery mit dem Namen „Query_Bestand“ mit der SQL „SELECT Sum(Eingang-Ausgang) As SumBestand FROM MeineTabelle“. Nun möchte ich diesen Wert auslesen und in ein TEdit mit dem Namen „Bestand“ anzeigen lassen; leider gelingt es mir nicht.

Hier einige Versuche:

Delphi-Quelltext
1:
2:
3:
4:
5:
Bestand.Text := Query_Bestand.FieldValues['SumBestand'].AsString;
Bestand.Text := Query_Bestand.FieldByName('SumBestand').AsString;
//Bei diesen beiden Versuchen kommt die Meldung: Query_Bestand: Das Feld ‚SumBestand’ wurde nicht gefunden.
Bestand.Text := Query_Bestand.Fields[0].AsString;
//und hier die Meldung: Listindex überschreitet das Maximum (0)


Hat jemand eine Idee !!??
Danke im Voraus für jede Hilfe.


Schöne Grüße von der dänischen Grenze
Sabine


jasocul - Mi 18.01.06 12:09

Ist Query_Bestand denn auch "Active"?


Szebin - Mi 18.01.06 12:23

Hallo Peter,

jetzt hast Du mir schon zum zweiten Mal so schnell geholfen, was soll ich sagen. Danke, danke ... :roll:
Zeile 2 und 4 funktionieren einwandfrei.

Ich benutze jetzt folgenden

Delphi-Quelltext
1:
2:
3:
Query_Bestand.Active := True;
Bestand.Text := Query_Bestand.FieldByName('SumBestand').AsString;
Query_Bestand.Active := False;


Da ich ja noch ganz neu hier und auch mit Delphi bin, weiß ich noch nicht so recht, wie ich so manches bewerstelligen soll. Aber Dank Deiner Hilfe klappen nicht nur die Türen.
Ich habe bisher mit Access meine Anwendungen erstellt; doch leider kann man diese nicht als Exe-Datei erzeugen und ist damit so gebunden. Jetzt möchte ich ein wenig in Delphi ausprobieren.

Danke Sabine


jasocul - Mi 18.01.06 12:28

Wenn ich eine Frage sehe, die ich beantworten kann, mache ich das auch. Manchmal gehts halt schnell. :wink:

btw, statt:

Delphi-Quelltext
1:
2:
3:
Query_Bestand.Active := True;
// und
Query_Bestand.Active := False;

geht auch:

Delphi-Quelltext
1:
2:
3:
Query_Bestand.Open;
// und
Query_Bestand.Close;