Thema: Delphi InsertSQL

Einzelnen Beitrag anzeigen

fapsons

Registriert seit: 29. Jan 2007
Ort: Berlin
65 Beiträge
 
#1

InsertSQL

  Alt 13. Mär 2007, 14:02
Datenbank: Firebird • Version: 2.0 • Zugriff über: InterBase - TDataSet
Hallo Leute,

will mit folgender Procedure einen Datensatz in die Datenbank hinzufügen. Irgendwie tut sich nur beim Ausführen der Procedure nichts. Erhalte auch keine Fehlermeldung seitens Delphi.

Könnt ihr mir da weiterhelfen?


Gruß,
-fapsons---


Delphi-Quellcode:
procedure Add_New_Terminal(typ, Bez, Beschr :String);
begin
 with D_DataModule.DataSet do
 begin
   InsertSQL.Clear;
   InsertSQL.Text := 'INSERT INTO terminal (TYP, BEZEICHNUNG, BESCHREIBUNG) VALUES (''' + typ + ''',''' + Bez + ''',''' + Beschr + ''')';
   Open;
   Insert;
   Close;
 end;
end;
  Mit Zitat antworten Zitat