DB 2Werte vergleichen um zwischen Insert und Update zu unterscheiden

[Amenovis]

ja ich auch das ergebnis blieb das gleiche

Delphi-Quellcode:

  RQuery2.SQL.Text:='SELECT count(*) as var2 FROM OPmonth where ID=:ID';
  RQuery2.ParamByName('ID').AsString := edit25.Text;
  RQuery2.Open;
  if RQuery2.FieldByName('var2').AsInteger > 0
  then begin
  Query1.SQL.Text:='update OPmonth set WorkH=:WorkH,EIndex=:EIndex,WIndex=:WIndex where id=:id';
  Query1.Params.CreateParam(ftString,'WorkH',ptInputOutput);
  Query1.Params.CreateParam(ftString,'EIndex',ptInputOutput);
  Query1.Params.CreateParam(ftString,'WIndex',ptInputOutput);
  Query1.ParamByName('WorkH').Text:=Edit29.Text;
  Query1.ParamByName('EIndex').Text:=Edit64.Text;
  Query1.ParamByName('WIndex').Text:=Edit65.Text;
  Query1.ExecSQL;
  end
  else
  Query1.SQL.Text:='Insert into OPmonth (WorkH,EIndex,WIndex)'+
  'values (:WorkH,:EIndex,WIndex)';
  Query1.Params.CreateParam(ftString,'WorkH',ptInputOutput);
  Query1.Params.CreateParam(ftString,'EIndex',ptInputOutput);
  Query1.Params.CreateParam(ftString,'WIndex',ptInputOutput);
  Query1.ParamByName('WorkH').Text:=Edit29.Text;
  Query1.ParamByName('EIndex').Text:=Edit64.Text;
  Query1.ParamByName('WIndex').Text:=Edit65.Text;
  Query1.ExecSQL;
  end;