SQL -> Ein Unterabfrage soll immer 1 und 2 liefern

[HolgerCW]

Hallo zusammen,

wie bekomme ich es hin das in einer SQL-Abfrage eine Unterabfrage für die erste Zeile eine 1, die zweite eine 2, die dritte eine 1, die vierte eine 2 u.s.w. liefert ...

Gruss

Holger

[DeddyH]

SQL-Code:

SELECT (CASE MOD(ROWNUM,2) WHEN 1 THEN 1 ELSE 2 END) AS Bla FROM Tabelle

[HolgerCW]

Das klappt nur halb.

Die erste zeile ist wohl Zeile 0 und da macht er dann auch eine 1 draus.

Hast Du dafür eine Lösung ?

Gruss

Holger

[stifflersmom]

Zitat:

Zitat von HolgerCW

Das klappt nur halb.

Die erste zeile ist wohl Zeile 0 und da macht er dann auch eine 1 draus.

Hast Du dafür eine Lösung ?

Gruss

Holger

Nur als Idee, geht vielleicht ROWNUM+1 ?
Dann gäbe es ja keine 0

[mkinzler]

Dann fange diesen Fall doch auch noch ab

SQL-Code:

SELECT ( case when ROWNUM > 0 then (CASE MOD(ROWNUM,2) WHEN 1 THEN 1 ELSE 2 END) ELSE 2 END) AS Bla FROM Tabelle;

[HolgerCW]

Ich habe einen Gedankenfehler gemacht ...

Habe mir neben die berechneten Werte mal die Zielennummern schreiben lassen:

Zeilennummer Berechnete
3 1
1 1
2 2

Das Ergebnis ist richtig, nur will ich ja eigentlich egal welche Sortierung vorliegt, die oberste Zeile als 1, die nächste 2 und dann wieder 1 und danach 2 u.s.w. haben ...

Ist das irgendwie hin zu kriegen ?

Gruss

Holger

[mkinzler]

Dann müsstest du eine SP schreiben.

[HolgerCW]

Was ist SP ?

[mkinzler]

Stored Procedure

[HolgerCW]

Vielleicht mal einen Ansatz was dadrin stehen müsste ...

[mkinzler]

Einfach dort in einer Schleife die Datensatze zurückgeben und lokale Variable umswitchen

[HolgerCW]

Habe irgendwie ein Brett vor dem Kopf, vielleicht mal ein Beispiel ?

geht es wirklich nicht in SQL vom Programm aus ?

Gruss

Holger

[mkinzler]

http://st-curriculum.oracle.com/tuto...rial/index.htm

Zitat:

geht es wirklich nicht in SQL vom Programm aus ?

in SQL nicht. Lokal aber schon

[HolgerCW]

Zitat:

Lokal aber schon

Wie würde es lokal denn gehen ?

[mkinzler]

Einfach Datenmenge durchgehen und Spalte setzen. Für was brauchst du diesen alternierenden Wert?

[HolgerCW]

Will den an den RaveReport übergeben. Bei 1 = grau Zeile, bei 2 = weisse Zeile

Gruss

Holger

[DeddyH]

Ich mache nichts mit Rave, aber gibt es da nichts ähnliches wie RecNo?

[marabu]

Hallo,

wenn mit der TRvDataSetConnection gearbeitet wird, dann kann beim Ereignis OnGetRow() auf DataSet.RecNo zugegriffen werden.

Freundliche Grüße

[DeddyH]

Dann könnte man doch theoretisch mit einem Bool' schen Array of TColor und Odd(RecNo) arbeiten, oder täusche ich mich?

[raiguen]

Zitat:

Zitat von marabu

...wenn mit der TRvDataSetConnection gearbeitet wird, dann kann beim Ereignis OnGetRow() auf DataSet.RecNo zugegriffen werden...

Zitat:

Zitat von DeddyH

Dann könnte man doch theoretisch mit einem Bool' schen Array of TColor und Odd(RecNo) arbeiten, oder täusche ich mich?

Jo, und das kannst du doch im BeforePrint-Ereignis der jeweiligen Reportzeile nutzen:

Delphi-Quellcode:

  if Odd(DataSet.RecNo) then Zeilenfarbe=grau
  else Zeilenfarbe=weiss

nur mal so als Gedanke auf den Programmierertisch geworfen...
Aif der anderen Seite: wenn alles das nicht hilft, warum dann nicht 'einfach' eine Variable (oder meintwegen auch ne Property) 'ZeilenNr' verwenden, die beim BeforePrint abgefragt wird und beim AfterPrint entsprechend incrementiert wird? ...oder über eine Boolsche Variable (oder Property) IstGrau...

Delphi-Quellcode:

procedure BeforePrint()
begin
//--Integer variante:
  if Odd(ZeilenNr) then Zeie=grau
  else Zeile=weiss;
  
//--boolesche Variante
  if Istgrau then Zeilenfarbe=grau
  else Zeilenfarbe = weiss
...
end;

procedure AfterPrint()
begin
//--Integer Variante:
  ZeilenNr := ZeilenNr +1;

//--boolesche Variante:
  //--Farbzustand umkehren
  IstGrau := not Istgrau;
...
end;

Ich denke, das ist doch allemal einfacher und schneller zu handeln, als umständlich irgendeine SQL-Proc zu kritzeln!? :gruebel:

[DeddyH]

Ich würde das etwas kürzen:

Delphi-Quellcode:

procedure BeforePrint()
const Farbe: array[Boolean] of TColor = (clGray,clWhite);
begin
  Zeile.Color := Farbe[Odd(RecNo)];
end;

[raiguen]

@DeddyH: :thumb: klar, optimieren geht immer (und ist in diesem Falle auch eleganter ;) )