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

Select
a
,b
,c
,null kuenstliches_feld
from 
Tabelle					

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

Select
a
,b
,c
,null kuenstliches_Feld
from 
Tabelle					

1:
2:
3:
4:

SELECT
  a,b,c,NULL AS kuenstliches_Feld
FROM 
  Tabelle					

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

Select
a
,b
,c
,'yyy' kuenstliches_Feld
from
Tabelle					

1:
2:
3:
4:
5:

Select
  a, b, c,
  CAST(NULL as VARCHAR(10)) kuenstliches_Feld
from
  Tabelle					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

select
  A.ID,
  A.Bez,
  A.Typ,
  A.SubTyp
from A

union

select
  B.ID,
  B.Bez,
  B.Typ,
  CAST(NULL as INTEGER)
from B					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

SELECT
  P.ID,
  P.KUERZEL,
  P.GESAMT_PREIS
  , CAST(NULL as INTEGER) AS PPOS
  , CAST(NULL as NUMERIC(18,4)) AS SUMME
FROM
  RPOSTEN P
  JOIN RECH R on (R.ID = P.RECH_ID) 
WHERE
  R.DATUM_BIS >= '01.01.2009'					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TForm1.Button1Click(Sender: TObject);
var
  lSum: Currency;
  lPos: Integer;
begin
  dbTemp.Open;
  dts.Open;

  lSum := 0;
  lPos := 0;
  dts.CachedUpdates := true;
  while not dts.Eof do
  begin
    inc(lPos);
    lSum := lSum + dtsGESAMT_PREIS.AsCurrency;
    dts.Edit;
    dtsSUMME.AsCurrency := lSum;
    dtsPPOS.AsCurrency := lPos;
    dts.Post;
    dts.Next;
  end;
  dts.First;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dts.CancelUpdates;
end;