Übergabe und Nutzung einer SQL-Abfrage

Lernender · Hält's aus hier Beiträge: 2 XP D7 Prof

Guten Abend,

ich habe ein (hoffentlich) einfach zu lösendes Problem:
Mit einem SQL-Statement (TIBQuery namens Positionsabfrage) suche ich in einer IB-DB einen bestimmten Datensatz und möchte anschließend das Ergebnis in einer Delphi-Zuweisung weiter nutzen. Also:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

  Positionsabfrage.Close;
  Wert := inttostr(AuftraegeAuftragsid.Value);
  text := 'select max(Positionsid) from Positionen where auftragsid = '+wert;
  Positionsabfrage.SQL.Text:=text;
  Positionsabfrage.Open;

Die Abfrage funktioniert tadellos, allerdings finde ich keinen Weg, das Ergebnis (also bspw. die gefundene maximale PositionsID) in einem weiteren Schritt einer Variablen zuzuweisen.

Bin für Hinweise sehr dankbar.

Moderiert von raziel: Delphi-Tags hinzugefügt.

cartridge · Beiträge: 209 Win XP D4 Prof,D6 Prof

Wenn ich dich richtig verstanden habe, soll so etwas dabei heraus kommen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

Wert := inttostr(AuftraegeAuftragsid.Value);
text := 'select max(Positionsid) AS TOPPasID from Positionen where auftragsid = '+wert;
Positionsabfrage.SQL.Text:=text;
Positionsabfrage.Open;
with Autraege.FieldByName('TOPPoaID').AsString do
 //irgendwas

jasocul · Verfasst: Mi 23.02.05 09:04

Na dann erstmal begrüßen: :welcome:

Das ist auf zwei Arten lösbar:
Möglichkeit 1:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

Wert := inttostr(AuftraegeAuftragsid.Value);
text := 'select max(Positionsid) AS MaxPosID from Positionen where auftragsid = '+wert;
Positionsabfrage.SQL.Text:=text;
Positionsabfrage.Open;
MeineIntegerVariable := Positionsabfrage.FieldByName('MaxPosID').AsInteger;

Möglichkeit 2:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

Wert := inttostr(AuftraegeAuftragsid.Value);
text := 'select max(Positionsid) from Positionen where auftragsid = '+wert;
Positionsabfrage.SQL.Text:=text;
Positionsabfrage.Open;
MeineIntegerVariable := Positionsabfrage.Fields[0].AsInteger;

Lernender · Hält's aus hier Beiträge: 2 XP D7 Prof

Vielen Dank an die Teilnehmer cartridge und jasocul!!!
Eine schnelle Hilfe :wink:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme