Forum: Datenbanken
by Delphi.Narium,
19. Jun 2023
Habe mal noch ein bisserl rumgefrickelt:
// procedure TMxSQL.Get_act_MachineJSON(Machine_ID: string; RefreshData, SendData: boolean; var LStream: TMemoryStream);
procedure TMxSQL.Get_act_MachineJSON(Machine_ID: string; RefreshData, SendData: boolean; LStream: TMemoryStream);
var Logic: TLogic;
API_URL: string;
IdHTTP_MStatus: TIdHTTP;
RStream: TMemoryStream;
begin
if...
Forum: Datenbanken
by Delphi.Narium,
17. Jun 2023
Eventuell ginge aber auch sowas:
procedure TMxSQL.Get_act_MachineData(Machine_ID: string; LStream: TStream; RefreshData, SendData: boolean);
...
begin
...
OperationsList := DB_Modul.Read_Einstellungswert('Life_Data_OperationList');
MsQuery.SQL.Add('große Abfrage von oben'); // Neue Abfragen erstellen.
CDMQuery.SQL.Add('kleine Abfrage von oben');
MsQuery.Open; // Erste Abfrage...
Forum: Datenbanken
by Delphi.Narium,
15. Jun 2023
Wozu sind die beiden da?
CDMQuery.First;
MsQuery.First;
Vorher stehst Du in beiden Querys auf dem benötigten Datensatz.
Dann änderst Du (vermutlich) in beiden Querys den Datensatzzeiger per First, um dann auf jedenfall den ersten Datensatz in MsQuery per Edit zu ändern.
Das erscheint mir nicht zwingend sinnvoll. Bei zwei Querys mit jeweils nur einem Datensatz mag das unschädlich...