![]() |
Datenbank: Firebird • Version: 2.5 • Zugriff über: IBDAC
Array aus DB mit Zahlen füllen
Moin,
bisher habe ich die Daten aus meiner DB einzeln ausgelesen. Also für jedes Einzeldatum ein FB-Zugriff. Das ist sehr zuverlässig aber auch sehr langsam. Ich wollte mal fragen, welche Strategie für einen schnelleren Zugriff sinnvoll ist: die Verschachtelung von Befehlen statt des einzelnen Zugriffs (also statt des Zugriffs ein Anhängen von SQL-Sequenzen die dann in einem Schritt ausgelesen werden) oder eine SP die ein Array ausgibt? Zielvariable ist ein mehrdimensionales dynamisches Array. Die erste Idee sieht auf den ersten Blick ziemlich fehleranfällig aus. Für die zweite Variante fehlt mir ein wenig der Ansatz. Die Struktur ist Auftrag -> Fertigungslos -> Komponente -> Subkomponente -> Messwertarray Die Daten gehören auf der Delphi-Seite also der Subkomponente. Wie gehe ich das an, dass die Datenabfrage für die vorhandenen 300 Komponenten mit je 68 Subkomponenten (je 15 Messungen) nicht viele Minuten dauert? Danke, Messie |
AW: Array aus DB mit Zahlen füllen
Wie sieht denn deine Tabellen- bzw Datenbankstruktur aus? Generell geht es am einfachsten und am schnellsten mit einem schnöden
Code:
select * from Messwerte
|
AW: Array aus DB mit Zahlen füllen
Die Messswerte liegen in der DB als freie Abkömmlinge der Subkomponente und haben noch einen Zeitstempel als Zusatzinformation.
Im Moment hole ich mir das Fertigungslos, die Komponente und die Subkomponente einzeln. Die Messwerte werden auch einzeln geholt und ins Array gelegt. Ein get * from Messwerte where diese und jenes? Mal ausprobieren Grüße, Messie |
AW: Array aus DB mit Zahlen füllen
Wenn Du innerhalb Deiner Anwendung wahlfreien Zugriff auf die Messwerte von 300x68 Subcomponenten benötigst, ist es evtl. sinnvoll, diese in einem Rutsch in ein entsprechend dimensioniertes Array einzulesen.
Ausgangspunkt wäre eine(!) Abfrage über alle Entitäten, die Dein Array hält, deren Daten dann iterativ ins Array übertragen werden. Das wäre das Vorgehen, bei dem das Array Verfahren wohl erhalten bleiben könnte- wenn notwendig / gewünscht. Frage wäre, wie sich das Volumen perspektivisch entwickelt und ob man an diesem Verfahren festhalten kann /muss. Was spricht gegen eine gezielte Datenabfrage und Haltung in Datasets ohne Verwendung eines Arrays und die dazu notwendige Datenübertragung ins Array? |
AW: Array aus DB mit Zahlen füllen
Ich würde mir eine stored proc schreiben, die mir zu einem Auftrag/Los alle notwendigen Informationen abholt. Das ist dann eine einzige Abfrage.
Die Messwerte holst du dir dann mit 'select * from Messwerte where SubComponentID = :SubComponentID' |
AW: Array aus DB mit Zahlen füllen
Moin,
Zitat:
Zitat:
Für Stichworte/Tipps/Links in Richtung Umsetzung wäre ich dankbar. Grüße, Messie |
AW: Array aus DB mit Zahlen füllen
Also ein Rutsch, das macht es wohl schneller, aber nicht besser und nicht "nachhaltig" - tolles Wort!
Dieser Vorschlag macht nur Sinn, wenn Du große Teile Deiner Anwendung (das Array und alles was dran hängt) so erhalten willst oder musst wegen des sonst bevorstehenden Änderungsaufwands. Ich wiederhole also meine Frage, muss alles gleichzeitig im Zugriff sein? Muss es im Array sein? Was spricht gegen die einzelne Abfrage der benötigten Daten und deren verbleib im Dataset- ohne Array? Das sind für eine Subkomponente 1x68*15 Zeilen? Wären im Zugriff vielleicht ne 10tel Sekunde?! Wie war noch mal die Mengenentwicklung? Zur StoredProc: Das kann man machen, bringt aber m.E. im Vergleich zu Select nur etwas, wenn mglw. ein komplexes Select Statement durch Procedure Sprachkonstrukte vereinfacht werden kann. Es garantiert darüber hinaus eine ordentliche Parametrierung und Vorkompilierung. Lohnt sich vor allem bei hochfrequenter Nutzung, viele User, die ständig zugreifen. |
AW: Array aus DB mit Zahlen füllen
Zitat:
Wieso ist 'schneller' (hier) nicht 'besser'? Wenn man die Daten in einem `SELECT` abholen kann, um sie in ein Array zu packen (wenn man es braucht), was soll daran nicht nachhaltig sein? Bezüglich der Nachhaltigkeit bzw. dem 'Änderungsaufwand' (falls ich das für dich übersetzen darf): Die Daten werden an einer(!) Stelle in der DB erzeugt (Stored Procedure) und an einer(!) Stelle in der Anwendung empfangen und umgeformt (aka ins Array geschrieben). Selbst wenn man die komplette DB umschreibt, muss man für diesen Ansatz nur die Stored Procedure anpassen. Und selbst wenn man die Datenstruktur in der Anwendung komplett neu schreibt, muss man widerum nur eine Stelle anpassen (die SP). Bin mal gespannt, was Du hier optimieren willst. (bin ja immer offen für Verbesserungen) Zitat:
Weiterhin: Will man die Daten anzeigen, aggregieren, weiterleiten, weiterverarbeiten etc. sollte man das schnellstmöglich aus dem Dataset holen. Etwas langsameres als ein Dataset fällt mir jedenfalls auf Anhieb nicht ein. Will man die Daten dagegen eh nur in seiner zusammengeklicken Oberfläche anzeigen (Chart o.ä.) dann kann man das so machen, also auf das Array verzichten. Aber so programmiert man heute eigentlich nur noch im LOB-Bereich, bei dem man die kleinen Frickeltools raushauen muss. Dafür ist Delphi ja geeignet. Zitat:
|
AW: Array aus DB mit Zahlen füllen
Zitat:
Ich habe aber bereits nachgefragt, wie das Array bzw. das Mengengerüst ist. Wenn er eines Tages 10T Subcomponenten hat, macht Rutsch wahrscheinlich irgendwo halt. Zitat:
Um Dich vielleicht etwas zu beruhigen, was Du da schreibst hätte von mir sein können. Ich hab kein Problem mit SP. Es ist leider so, dass man auch hier häufig zu lesen bekommt, "ich mach das in einer SP, dann ist es schneller". Das stimmt halt so pauschal nicht. Eine SP die nichts anderes tut, als ein Selectstatement zu kapseln, bringt keinen nenneswerten Geschwindigkeitsvorteil. Erst unter gewissen Umständen, habe ich ja schon geschrieben. Zitat:
Zitat:
Selbst eine Weiterleitung mache ich gerne im Backend, also der DB per Link. Komplette Abhängigkeit von der DB. Das klingt doch langsam etwas nach Sales BlaBla. Natürlich mache ich mich mit diesen und anderen Dingen abhängig von der Struktur. Deswegen gebe ich mir idR Mühe, eine performante und flexible Struktur zu schaffen. Man kann das natürlich alles machen wie Du sagst, es muss nur am Ende jemand tun und bezahlen. In diesem Thread bswp. war jetzt nicht die Rede davon, die große, finale Anwendung zu schreiben. Ich hab schon 2 mal gefragt wo die Reise denn hingehen soll und mögliches Vorgehen skiziert. Zitat:
Eine SP ist nicht per se die beste Lösung. Eine schlechte clientseitige Implementierung wird nicht automatisch besser dadurch, dass ich auf die DBSeite wechsel. Das ist eigentlich alles, was ich sagen wollte. Erfahrungsgemäß lassen sich DB Anwendungen stellenweise bis zum Faktor 100, 1000, 10000 oder sogar unendlich tunen. Das ist keine Zauberei, sondern im Gegenteil recht einfach, wenn sie nämlich zuvor zum Stillstand gekommen sind. Ursache ist bei großen Steigerungen allerdings meist eine ziemlich schlechte Erst-Implementierung. Es gibt sehr naheliegende Dinge, die den Einsatz von SP empfehlenswert machen. Viele- auch hier- scheuen sich aber scheinbar davor. Zitat:
Also Deine Gedanken halte ich nicht für verkehrt, ich bezweifele nur, dass sie dem TE helfen. |
AW: Array aus DB mit Zahlen füllen
Moin und Danke erstmal für die Tipps. Hat ja ein wenig gedauert bis ich da wieder Zeit für habe.
Der Grund: der Import alter Daten dauert jetzt schon ein paar Wochen. Auch hier habe ich für jedes Fertigungslos, die Komponente und die Subkomponente sowie die Messdaten je einen Zugriff der sehr langsam ist. Hier kann ich auch nicht sicher sagen, ob ein Teil der Datensätze schon in der DB vorhanden ist und ich ein paar weitere Messdaten hinzu fügen muss (Die Messdaten sind oft in verschiedenen Dateien abgelegt). Kann man das Beschreiben der Datenbank irgendwie beschleunigen? Struktur ist:
Delphi-Quellcode:
Das blöde ist, ich brauche es nur ein Mal.s := 'SELECT count(*) FROM ' + Fertigungslos + ' WHERE (Auftragsnummer = ' + QuotedStr(IntToStr(JobID)) + ' .... )'; i := DM.IBCQuery1.FieldByName('COUNT').AsInteger; if i > 0 then begin //modify entry in table s := 'SELECT ID FROM ' + Fertigungslos + ' WHERE (Auftragsnummer = ' + QuotedStr(IntToStr(JobID)) + '.... )'; if not DM.IBCQuery1.IsEmpty then begin idx := DM.IBCQuery1.fieldbyname('ID').AsInteger; end; s := 'UPDATE ' + Fertigungslos +, DRAWING_NO = .... 'WHERE ID = ' + IntToStr(idx); DM.IBCQuery1.SQL.Add(s); DM.IBCQuery1.ExecSQL; DM.IBCTransaction1.Commit; end else begin //add entry to table s := 'INSERT INTO ' + Fertigungslos + QuotedStr(Batch.DrawNo) + ....')'; DM.IBCQuery1.SQL.Add(s); DM.IBCQuery1.ExecSQL; DM.IBCTransaction1.Commit; end; DM.IBCTransaction1.StartTransaction; DM.IBCQuery1.SQL.Clear; //Kontrolle s := 'SELECT ID FROM ' + Fertigungslos + ' WHERE (Auftragsnummer = ' + QuotedStr(IntToStr(JobID) .... ' )'; DM.IBCQuery1.SQL.Add(s); DM.IBCQuery1.Open; if not DM.IBCQuery1.IsEmpty then begin idx := DM.IBCQuery1.fieldbyname('ID').AsInteger; end else begin Result := False; DM.IBCTransaction1.Commit; Exit; end; Batch.DBindex := idx; DM.IBCTransaction1.Commit; if SavePumps then begin for i := 0 to Fertigungslos.PumpCount -1 do begin //pumpen speichern SavePumpToDB(Fertigungslos.Items[i],idx); ------> hier gehen die Strukturen iterativ weiter. end; end; Result := True; Grüße, Messie |
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:48 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz