InsertSQL

[fapsons]

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;