Datenerfassung mit Firebird Datenbank

[mkinzler]

Wie schon öfters erwähnt kein .Open bei DML-Statements ( Insert, Update, Delete)
Du brauchst die Abfrage auch nur einmal zu setzen und nicht für jeden Datensatz

[Jens Hartmann]

Das mit der Abfrage ist klar, die kann ich doch auch in der Query direkt eintragen, weil das habe ich so gemacht.

Ich habe das lediglich gerade zum test gemacht.

Das mit dem open war mir schon wieder entgangen.

Funktioniert jetzt......

[Jens Hartmann]

Ich muss nochmal nerven,

Ich habe das ganze jetzt mit dem Open und den ExecSQL mal so überlegt, um es zu verstehen, ich habe jetzt eine Unstimmigkeit in meinem Verständnis.

Beim Starten von meinem Programm, möchte ich ja das meine Daten von meiner Datenbank angzeigt werden. Also habe ich in die OnCreate von meinem Hauptformular folgende Anweisung geschrieben...

Delphi-Quellcode:

  {Datenbankverbindung aufbauen über ZConnection (ZEOS)}
  ConMB256PLUS.Connect;
  QryMB256PLUS.Open;

Da ich aber ja in meiner Query Komponente den SQL String festgelegt habe...

SQL-Code:

INSERT INTO MB256PLUS'("LfdNr", "Datum", "Uhrzeit", "Ereignis", "Teilnehmer", "Bereich")
     VALUES(:LfdNr,:Datum,:Uhrzeit,:Ereignis,:Teilnehmer,:Bereich)';

kommt es ja logischer Weise zu meinem bekannten Fehler.

Daraus folgere ich, das ich entweder die Datenansicht anders realisieren muss oder der Open Befehl anders eingesetzt werden muss.

[DeddyH]

Wenn Du den SQL-String unbedingt zur Designtime festlegen willst, dann verwende doch einfach mehrere Queries. Ansonsten nur eine und SQL zur Laufzeit befüllen.

[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 Query.Refresh; sollte reichen