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;

[mkinzler]

Delphi-Quellcode:

   [s]InsertSQL.Clear;[/s]
   InsertSQL.Text := 'INSERT INTO terminal (TYP, BEZEICHNUNG, BESCHREIBUNG) VALUES (''' + typ + ''',''' + Bez + ''',''' + Beschr + ''')';
   Open;
   Insert;
   Post;
   Close;

[fapsons]

Super, vielen Dank!

Das einzige, was jetzt noch nicht funzt ist, wenn ich einen Datensatz lösche und dann wieder einen neuen hinzufügen will, sagt er mir, dass keine Primary-ID vergeben werden konnte.

Eine Ahnung, woran es liegen kann?
Wenn ich das Programm dazwischen neustarte, gibt es keine Probleme. Sieht irgendwie so aus, als würde ich die Datenbankverbindung nicht korrekt beenden.

Aber führe immer die Close-Anweisung aus. Gibt es noch eine andere?

[mkinzler]

Wie heißt den der Primärschlüssel? Wie vergibst du ihn (Generator? Trigger?)

[fapsons]

Mit diesem Trigger:

SQL-Code:

AS
BEGIN
  IF (NEW.TMID IS NULL) THEN
    NEW.TMID = GEN_ID(GEN_TERMINAL_ID,1);
END

[mkinzler]

Wie sind den die Transkationseinstellungen?

[fapsons]

Meinst du die Eigenschaften von TTransaction?

[mkinzler]

Ja.

[fapsons]

Transaction:

Active := false;
AutoStopAction := saNone;
DefaultAction := TACommit;

[mkinzler]

Aktiviere sie mal.

[fapsons]

Bringt leider nichts. Kommt die selbe Fehlermeldung...

[TBx]

Hallo!

Poste bitte mal die genaue Fehlermeldung, die Dir ausgegeben wird.

Gruß

Thomas

[fapsons]

Im Projekt reg.exe ist eine Exception der Klasse EDatabaseError aufgetreten. Meldung: 'Feld 'TMID' muss einen Wert haben'. Prozess wurde angehalten. Mit Einzelnen....

[hoika]

Hallo,

warum nimmst du nicht einfach

.InsertSQL.ExecSQL.


Heiko

[Hansa]

Warum machst Du das nicht so ?

Delphi-Quellcode:

procedure Add_New_Terminal(typ, Bez, Beschr :String);
begin
 with D_DataModule.DataSet do
 begin
   Insert;
   FieldByName ('TYP').AsString := typ;
   FieldByName ('BEZEICHNUNG').AsString := Bezeichnung;
   FieldByName ('BESCHREIBUNG').AsString := Beschr;
   Post;
 end;
end;

[/quote]

[fapsons]

Habe es jetzt mit der IBQuery versucht. Jetzt klappts problemlos... Danke...;)