Datenerfassung mit Firebird Datenbank

[mkinzler]

Nei muss dann so heissen:

SQL-Code:

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

[Jens Hartmann]

Ja , so hatte ich das eben auch schon mal alles, dann kommt aber die Fehlermeldung

Cannot retrieve Resultset data.

Ich habe schon massig Version probiert, ich vermute eher einen Grundlegenden Fehler gemacht zu haben, den ich nicht sehe

[Satty67]

Oben sieht es so aus, dass Du zwei einzelne Apostroph genommen hast, statt dem Anführungszeichen

" <> ' '

Finde es irgenwie beruhigend, das Du über die Steine stolperst, über die ich vor ein paar Tagen gestolpert bin (selber SQL Anfänger)

[mkinzler]

Zeig mal den entsprechenden Delphicode ( in dem du den query setzt)

[Jens Hartmann]

Um nochmal auf das Case Sensitiv zu kommen.

Wenn ich das jetzt richtig vertanden habe, brauchte ich die Anführungszeichen gar nicht, da ich in meiner Datenbank auch nicht mit Anführungszeichen gearbeitet habe, und somit meine Feldnamen nicht Case sensitiv sind

[DeddyH]

Richtig, bei den Feldnamen brauchst Du sie nicht, aber bei den Stringfeldern. Hier wäre es sowieso besser, mit SQL-Parametern zu arbeiten.

[mkinzler]

Es sihet aber so aus, als ob du das hättest. Zum Bsp. wenn du die entsprechende Option im IBExpert gesetzt hast

[Jens Hartmann]

In der Form.Create sage ich...

Delphi-Quellcode:

procedure TFUebung.FormCreate(Sender: TObject);
var
i : integer;
begin
  {Datenbankverbindung aufbauen über ZConnection (ZEOS)}
  ConSecurdat.Connect;

Dann öffne ich die Datenbank...

Delphi-Quellcode:

{Datenbank Öffnen}
procedure TFUebung.Button8Click(Sender: TObject);
begin
  QrySecurdat.Open;
end;

Und beim eintrage sage ich...

Delphi-Quellcode:

procedure TFUebung.Button9Click(Sender: TObject);
var
  i : integer;
begin
  QrySecurdat.Active := false;
  QrySecurdat.SQL := Memo1.Lines;
  QrySecurdat.Active := true;

Und dann habe ich noch AfterPost angelegt

Delphi-Quellcode:

{Refreshanweisung nach AfterPost}
procedure TFUebung.QrySecurdatAfterPost(DataSet: TDataSet);
begin
  QrySecurdat.Refresh;
end;

[mkinzler]

Delphi-Quellcode:

  QrySecurdat.Close;
  QrySecurdat.SQL := Memo1.Lines;
  QrySecurdat.ExecSQL;

.Open/.Active := True nur bei Selects. Bei DML-Statements immer .ExecSQL!

[Jens Hartmann]

Zitat:

Es sihet aber so aus, als ob du das hättest. Zum Bsp. wenn du die entsprechende Option im IBExpert gesetzt hast

Ich vermute du meinst den Haken "datenbankobjektnamen immer groß schreiben" in der Datenbank Registrierung.

Ist aber nicht so.

Zitat:

.Open/.Active := True nur bei Selects. Bei DML-Statements immer .ExecSQL!

Jetzt ist zwar der Fehler weg, aber bei der SQL-Abfrag mit SELECT, erscheinen keine Daten

Delphi-Quellcode:

{SQL-Abfrage starten}
procedure TFUebung.Button7Click(Sender: TObject);
begin
  QrySecurdat.Open;
  QrySecurdat.SQL := Memo2.Lines;
  QrySecurdat.Active := true;
end;

[EDIT]...

Zitat:

Finde es irgenwie beruhigend, das Du über die Steine stolperst, über die ich vor ein paar Tagen gestolpert bin (selber SQL Anfänger)

Hast du den einen Thread oder so, wo ich eine bißchen lesen könnte oder Info´s sammeln könnte die Dir weiter geholfen haben