Datenerfassung mit Firebird Datenbank

[Jens Hartmann]

Hallo nochmal zusammen,

So das mit dem INSERT, UPDATE und so, funktioniert soweit ganz gut, ich habe die Datenbank jetzt an mein Programm angebunden und auch das funktioniert einwandfrei.


Jetzt mal ne Frage, ich habe hier im Forum und sonst schon gesucht, kann allerdings nichts finden.

Ich habe ja jetzt verschiedene String´s, die den verschiedenen Feldern der Tabelle zugeordnet werden sollen. Bis lang, habe ich mit folgendem INSERT- Befehl gearbeitet. Wie ersetze ich jetzt die festen Eingaben gegen Variablen.

Delphi-Quellcode:

{Neue Daten in Datenbank einfügen}
procedure TForm1.BTDatenbankClick(Sender: TObject);
begin
  QryMB256PLUS.Close;
  QryMB256PLUS.SQL := Memo2.Lines;   //Der Inhalt von Memo2 ist mein SQL String
  QryMB256PLUS.ExecSQL;
  ConMB256PLUS.Commit;
end;

SQL-Code:

INSERT INTO MB256PLUS ("LfdNr", "Datum", "Uhrzeit", "Ereignis", "Teilnehmer", "Bereich")
VALUES('1234','12.12.2009','12:13:43','Extern Scharf','Schalteinrichtung','Verwaltung');

[Satty67]

Man möge micht korrigieren, wenn es falsch ist

Delphi-Quellcode:

// Entweder den String mit Variablen aufbauen
// QuotedStr halt die entsprechende Variable übergeben
Memo1.Text := 'INSERT INTO MB256PLUS ("LfdNr", "Datum", "Uhrzeit", "Ereignis", "Teilnehmer", "Bereich")
              VALUES('+
              QuotedStr('1234')+','+
              QuotedStr('12.12.2009')+','+
              QuotedStr('12:13:43')+','+
              QuotedStr('Extern Scharf')+','+
              QuotedStr('Schalteinrichtung')+','+
              QuotedStr('Verwaltung')+
              ')';

// oder gleich SQL.Text zuweisen.
// ExecSQL hinterher nicht vergessen 

// oder Field Eigenschaften von Query verwenden
Query.Insert;
Query.FieldByName('LfdNr').AsString := '1234';
Query.FieldByName('Datum').AsDate := StrToDate('12.12.2009');
[...]
Query.Post;

[mkinzler]

Mit (SQL-)Parametern

SQL-Code:

INSERT INTO MB256PLUS ("LfdNr", "Datum", "Uhrzeit", "Ereignis", "Teilnehmer", "Bereich")
VALUES(:lfdnr,:datum,:zeit,:ereignis,:teilnehmer,Bereich);

Die Abfrage setzt du einmalig und brauchst später nur noch die Werte setzen:

Delphi-Quellcode:

QryMB256PLUS.ParamByName('lfdnr').Value := ...
...
QryMB256PLUS.ExecSQL;

[DeddyH]

Nimm am besten SQL-Parameter.

Delphi-Quellcode:

Query.SQL := 'INSERT INTO Tabelle(Wert1,Wert2) VALUES(:wert1,:wert2)';
Query.ParamByName('wert1').AsInteger := 123;
Query.ParamByName('wert2').AsString := 'Wuppdi';
Query.ExecSQL;

[Satty67]

Wobei ich jetzt schon ein Problem der reinen SQL-Bücher sehe. So eine elegante Variante wie sie gerade mkinzler beschrieben hat, lernt man da nicht. (Oder hab' es gewissenhaft überlesen)

€: Nach ExecSQL fülle ich nur ParamByName neu auf und wieder ExecSQL (ohne SQL-Text zu verändern)?

[Jens Hartmann]

Danke erstmal wieder für die schnelle antwort,

Also, wenn ich das verstanden habe, kann ich schon in meiner Query Komponente die Parameters und auch den SQL String setzen.

Jetzt muss ich im eigentlichen Programm nur noch die Werte setzten

[mkinzler]

Zitat:

Wobei ich jetzt schon ein Problem der reinen SQL-Bücher sehe. So eine elegante Variante wie sie gerade mkinzler beschrieben hat, lernt man da nicht. (Oder hab' es gewissenhaft überlesen)

Dann ist es ein schlechtes Buch, wenn es keine parametrisierte Abfragen behandelt.

Zitat:

€: Nach ExecSQL fülle ich nur ParamByName neu auf und wieder ExecSQL (ohne SQL-Text zu verändern)?

Vor jedem Aufruf von .ExecSQL()( auch dem ersten)

[DeddyH]

Richtig, Du musst nur die Parameter neu befüllen, bevor Du ExecSQL erneut ausführst, das eigentliche SQL bleibt davon unberührt.

[Satty67]

Zitat von mkinzler:

Dann ist es ein schlechtes Buch, wenn es keine parametrisierte Abfragen behandelt.

Hab es dann wohl überlesen, wenn das so elementar ist.

Sehe schon, hab' bisher doch ziemlich umständlich gearbeitet. (Funktioniert hat es aber )

[Jens Hartmann]

So habe das jetzt mal so gemacht, er trägt auch Daten ein, bring mir nur wieder die Fehlermeldeung

Cannot retrieve Resultset Data

Ich habe das jetzt so integriiert..

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.Open;
end;