Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#12

AW: gesonderte Ergebnisberechnung in DB-Tab eingeben

  Alt 11. Apr 2017, 15:51
in dem UPDATE muß es dann heißen Where ID=2 und für den SELECT
Delphi-Quellcode:
   qryMain.SQL.Text := 'SELECT ID,KDNR,NAME,VORNAME,FIRMA,PRODUKT,ANZAHL,PREIS FROM WARENVERKAUF1';
   qryMain.Open;
   while not qryMain.EOF do begin
     { hier die Werte übernehmen}
     idfeld:=qryMain.Fields.Fieldbyname('ID').asstring;
     ......
     qryMain.Next;
   end;
und ich packe immer vor und hinter jede Query noch ein .Close also
Delphi-Quellcode:
   qryMain.Close;
   qryMain.SQL.Text := 'SELECT ID,KDNR,NAME,VORNAME,FIRMA,PRODUKT,ANZAHL,PREIS FROM WARENVERKAUF1';
   qryMain.Open;
   while not qryMain.EOF do begin
     { hier die Werte übernehmen}
     idfeld:=qryMain.Fields.Fieldbyname('ID').asstring;
     ......
     qryMain.Next;
   end;
   qryMain.Close;
damit ich mir keinen Dreck einhandele.

Gruß
K-H

P.S.
das .Close natürlich auch vor das Update-Statement.
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector

Geändert von p80286 (11. Apr 2017 um 15:54 Uhr)
  Mit Zitat antworten Zitat