FireDAC INSERT oder EDIT

[DaCoda]

Hallo,
ich habe eine Tabelle, die einmal pro Sekunde "geupdatet" werden soll (in einer TIdThreadComponent);

Ich versuche das derzeit so, was aber nicht richtig funktioniert (Erhängt sich meistens sehr schnell):

Code:

procedure TKommunikation.trdSqlDatenRun(Sender: TIdThreadComponent);
var
  Loop: Integer;
begin
  for Loop := 1 to MaxmaschinenIndex do begin
    if (MaschinenListe[Loop].FrameType = 'TYP1') OR (MaschinenListe[Loop].FrameType = 'TYP2') then begin
        LogMaschinendatenToTempSql(Loop);
    end;
  end;
  Sleep(1000); //SqlDatenSleepTime);
end;

procedure TKommunikation.LogMaschinendatenToTempSql(Index: Integer);
begin
  Daten.tblMaschinendaten_Temp.Open;
  Daten.tblMaschinendaten_Temp.Filtered := False;
  Daten.tblMaschinendaten_Temp.Filter := 'MaschinenIndex = ' + QuotedStr(Index.ToString);
  Daten.tblMaschinendaten_Temp.Filtered := True;
  DbgInfo('Index: ' + Index.ToString + ' - Recordcount: ' + Daten.tblMaschinendaten_Temp.RecordCount.ToString);
  if Daten.tblMaschinendaten_Temp.RecordCount = 0 then begin
      Daten.tblMaschinendaten_Temp.Insert;
  end else begin
      Daten.tblMaschinendaten_Temp.Edit;
  end;

  Daten.tblMaschinendaten_TempMaschinenIndex.AsInteger := Index;
  Daten.tblMaschinendaten_TempTemperatur.AsInteger := MaschinenDaten[Index].ActTemperature;
  Daten.tblMaschinendaten_TempPartial_Stueckzaehler.AsInteger := MaschinenDaten[Index].Partial_Pcs;
  Daten.tblMaschinendaten_TempTotal_Stueckzaehler.AsInteger := MaschinenDaten[Index].Total_Pcs;
  Daten.tblMaschinendaten_Temp.Post;
  Daten.tblMaschinendaten_Temp.Close;
end;

[Uwe Raabe]

Ist tblMaschinendaten_Temp ein TFDTable oder eine TFDQuery?

[DaCoda]

tblMaschinendaten_Temp ist ein TFDTable.

[himitsu]

Und warum?

Das Ding läd sinnlos die komplette Tabelle,
wobei eine Query, mit WHERE anstatt Filter, nur den einen Datensatz behandelt.


Und MairaDB kann auch ein InsertOrUpdate
https://mariadb.com/kb/en/insert-on-...te-key-update/
womit garkein Datensatz runtergeladen werden muß, weil es reicht "ein" einfaches Execute abzuschicken.



PS: https://www.delphipraxis.net/10311-r...ed%3Dtrue.html

Eventuell hilft IsEmpty oder EoF, anstatt RecordCount.
Und was natürlich geht auch if Daten.tblMaschinendaten_TempMaschinenIndex.IsNull then oder if Daten.tblMaschinendaten_TempMaschinenIndex.AsInteger <> Index then ,
denn entweder ist kein Datensatz ausgewählt und hat somit NULL, oder es gibt Einen und er hat den entsprechenden Index.

[DaCoda]

@himitsu:

InsertOrUpdate im query habe ich schon probiert, aber ich bin irgendwie zu unwissend, es klappt einfach nicht,
von daher mein Cryptoconstruct mit der Table etc.

Ich möchte ja nur, wenn MaschinenIndex vorhanden, dann it neuen Daten updaten und wenn nicht da, dann anlegen mit den Daten...

[Uwe Raabe]

Zitat von DaCoda:

InsertOrUpdate im query habe ich schon probiert, aber ich bin irgendwie zu unwissend, es klappt einfach nicht,
von daher mein Cryptoconstruct mit der Table etc.

Dann sollte man vielleicht besser das Grundproblem beheben.