Datenerfassung mit Firebird Datenbank

[mkinzler]

Man unterscheidet Abfragen welche eine Ergebnismenge zurückliefern ( Select) und welche nicht (DML).
Für die erstere verwendet man ein .Open

[Jens Hartmann]

Das hatte ich auch schon mal überlegt.

Aber...

1. Wann weiße ich denn dann zur Laufzeit meinen SQL Befehl zu.

2. Wenn der Befehl zugewiesen ist, und ich Daten eingefügt habe, bleibt mein Grid leer.

Ich habe es jetzt so gelößt, funktioniert auch, aber ich weiß ja eigendlich das es falsch ist...

Delphi-Quellcode:

{Neue Daten in Datenbank einfügen}
procedure TForm1.BTDatenbankClick(Sender: TObject);
begin
  QryMB256PLUS.Close;
  QryMB256PLUS.SQL.Text := 'INSERT INTO MB256PLUS'+
      '("LfdNr", "Datum", "Uhrzeit", "Ereignis", "Teilnehmer", "Bereich")'+
      'VALUES(:LfdNr,:Datum,:Uhrzeit,:Ereignis,:Teilnehmer,:Bereich)';

  QryMB256PLUS.ParamByName('LfdNr').AsInteger := 1231;
  QryMB256PLUS.ParamByName('Datum').AsString := '12.12.2009';
  QryMB256PLUS.ParamByName('Uhrzeit').AsString := '12:12:43';
  QryMB256PLUS.ParamByName('Ereignis').AsString := 'Extern Unscharf';
  QryMB256PLUS.ParamByName('Teilnehmer').AsString := 'Schalteinrichtung';
  QryMB256PLUS.ParamByName('Bereich').AsString := 'Verwaltung';
  QryMB256PLUS.ExecSQL;
  ConMB256PLUS.Commit;

  QryMB256PLUS.Close;
  QryMB256PLUS.SQL.Text := 'SELECT * FROM MB256PLUS';
  QryMB256PLUS.Open;

end;

[DeddyH]

Wieso soll das falsch sein?

[mkinzler]

Warum nimmst du nicht einfach 2 Queries?

[Jens Hartmann]

Also ich fasse mal zusammen.

Meine Lösung ist nicht verkehrt, und funktioniert. (Sorry zum größten Teil Eurer Lösung)

Aber es wäre Besser mit 2 Query´s zu areiten.

Das heißt, ich nehme die eine für meine Anzeige, die ich aber wahrscheinlich nach jedem neuen eintragen mit einem Refresh füllen muss.

Die zweite Query nur für´s eintragen in die Datenbank, in der ich dann meinen SQL Befehl z.B. im OnCreate von Form1 zuweisen lassen kann.

Somit habe ich die Möglichkeit meine SQL Anweiseung später anzupassen und sie ist vorallem beim Programmstart leer.

[mkinzler]

Zitat:

Das heißt, ich nehme die eine für meine Anzeige, die ich aber wahrscheinlich nach jedem neuen eintragen mit einem Refresh füllen muss.

Ein enfaches

Delphi-Quellcode:

Query.Refresh;

sollte reichen

[Jens Hartmann]

Das habe ich jetzt auch so gemacht und alles Funktioniert.

Leider muss ich feststellen, das ich auch hier das selbe Problem habe, wie ich es in einem anderen Beitrag geschrieben habe.

Anderer Thread

Ich werde, diesen Beitrag jetzt nochmal anstoßen, vieleicht hat da noch jemand eine Idee

[Satty67]

Sorry, das ich mich hier immer reindrängel, aber der Thread passt halt prima auf meine eigene Situation/Fragestellungen

Ich hab' jetzt mal INSERT via FieldByParam in meinem Übungsprojekt umgesetzt:

Delphi-Quellcode:

zQueryArtikel.SQL.Text = 'INSERT INTO '+sql_tbl_ArticleIO+' ('+
                         sql_fn_Location+','+
                         sql_fn_ArticleNo+','+
                         sql_fn_ArticleDesc+','+
                         sql_fn_PackCount+','+
                         sql_fn_Packing+','+
                         sql_fn_Quantity+','+
                         sql_fn_QuantityUnity+','+
                         //...da kommt noch einiges...
                         sql_fn_Remarks+
                         ') VALUES ('+
                         ':'+CutQuotes(sql_fn_Location)+','+
                         ':'+CutQuotes(sql_fn_ArticleNo)+','+
                         ':'+CutQuotes(sql_fn_ArticleDesc)+','+
                         ':'+CutQuotes(sql_fn_PackCount)+','+
                         ':'+CutQuotes(sql_fn_Packing)+','+
                         ':'+CutQuotes(sql_fn_Quantity)+','+
                         ':'+CutQuotes(sql_fn_QuantityUnity)+','+
                         //...da kommt genausoviel
                         ':'+CutQuotes(sql_fn_Remarks)+
                         ');

Bei mir sind alle Feldnamen als Konstante gespeichert (incl. "..."). Damit ich nicht doppelte Konstanten hab', muss ich jetzt für Parameter-Namen die Quotes wieder entfernen.

Insert via ParamByName:

Delphi-Quellcode:

with zQueryArtikel do begin
  ParamByName(CutQuotes(sql_fn_Location)).AsString := EditLocation.Text;
  ParamByName(CutQuotes(sql_fn_ArticleNo)).AsString := EditArticleNo.Text;
  ParamByName(CutQuotes(sql_fn_ArticleDesc)).AsString := EditArticleDesc.Text;
  ParamByName(CutQuotes(sql_fn_PackCount)).AsString := EditPackCount.Text;
  ParamByName(CutQuotes(sql_fn_Packing)).AsString := EditPacking.Text;
  ParamByName(CutQuotes(sql_fn_Quantity)).AsString := EditQuantity.Text;
  ParamByName(CutQuotes(sql_fn_QuantityUnity)).AsString := EditQuantityUnity.Text;
  // usw...
  ExecSQL;
end;

INSERT wie ich es vorher hatte, als Funktionsaufruf:

Delphi-Quellcode:

function InsertArtikel(Location, ArticleNo, ArticleDesc [...] String):Integer;
// In der Funktion wird Insert generiert und abgesetzt
// als Feldwerte die Parameter der Funktion übernommen
  [...]VALUES ('+
       QuotedStr(Location)+','+
       QuotedStr(ArticleNo)+','+
       QuotedStr(ArticleDesc)+','+

Eventuelle Tipp-Fehler mal ignorieren, Copy+Paste ist gerade nicht verfügbar (deshalb auch stark gekürzt)... :cry:

Das sind ja (in meinem Fall) gut 15 weitere Methodenaufrufe pro Datenfeld. CutQuotes() gleicht sich mit QuotedStr() aus. Wirklich übersichtlicher ist es für mich auch nicht.

Mir stellt sich jetzt die Frage, wo die Vorteile von FieldByParam sind?

PS: Mein SQL-Buch behandelt Parameter nicht wirklich, wie sie in TQuery's verwendet werden. Zugriff via Delphi, C/C++ etc. ist da überhaupt kein Thema.

[mkinzler]

Parameter haben den Vorteil
-kein Quoten nötig
-weitgehenst automatiche Typkonvertierung
-das DBMS braucht die Abfrage nur einmal zu parsen und zu kompilieren, bei erneutem Aufrufen müssen nur die geänderten Paramter gesendet werden -> Geschwindigkeitsvorteil

[Satty67]

Ok, das mit dem Quoten ist bei meiner Vorgehensweise so eine Sache. Entweder ich lasse bei den Konstanten Spaltennamen die Quotes weg und muss die dann bei den Spaltennamen im INSERT-String wieder einfügen. Sobald ich Konstanten verwende, komme ich um einmal wegschneiden oder zufüge nicht drum rum.

Automatische Typkonvertierung ist ein großer Vorteil. Da ich bisher immer mit Record's gearbeitet hatte, hab' ich mich da selber drum gekümmert. Gestolpert bin ich aber da auch schon beim Automatismus: TypUmwandlung AsFloat. Hab' da meine liebe Mühe mit dem DezimalSeperator als Komma. Behelfe mir mit der verwendung von AsCurrency, dort wird die Einstellung verwertet.

Geschwindigkeit ist natürlich später auch ein großes Argument. Da merke ich im Moment beim Übungsprojekt noch nichts. Muss mir mal eine Zufallsdatenbank mit großer Datenmenge generieren, damit ich da besser testen kann.