Insert SQL

[Lemmy]

Zitat von Hansa:

Lemmy hat mich mit seinen leeren Datenmengen trotzdem verwirrt. Lemmy, wo bist Du

zuhause... soso.. jetzt bin ich wieder schuld....

Wenn Du das kapiert hast, was die anderen so geschrieben haben dann vergiss die leere Datenmenge einfach...

Wenn Du es dennoch wissen willst, dann schreib nochmal, nicht dass ich dich noch mehr verwirre....

Grüße
Lemmy

[Hansa]

bist hoffentlich nicht beleidigt. Ich mach jetzt einfach notfalls "Try and Error"

[Lemmy]

Guten Morgen,

Zitat von Hansa:

bist hoffentlich nicht beleidigt.

Weshalb denn..??

Grüße
Lemmy

[Ralf Stehle]

Beschäftigt sich derzeit noch jemand mit dem Problem ?

Ich habe auf Grund eurer Beiträge folgenden Code versucht

Delphi-Quellcode:

   DM.IBTagesplan.Close;
   DM.IBTagesplan.DeleteSQL.Text := 'Delete from UDAT';
   //DM.IBTagesplan.InsertSQL.Text := 'Insert Into UDAT (Patient) VALUES (''BlaBla'')';
   DM.IBTransaction.Commit;
   DM.IBTagesplan.Open;

Die Daten verschwinden auch zunächst im DBGrid.
Bei Neustart des Programmes sind sie aber wieder vorhanden.

Mit DM.IBTagesplan.ExecSql bekomme ich nur die Fehlermeldung "Verwenden Sie Open für eine Select-Anweisung"

[kiar]

tausche mal commit und open

[Ralf Stehle]

es funktioniert einfach nicht:

Mit dieser Anweisung sollte doch eigentlich ein neuer Datensatz eingefügt werden:

Delphi-Quellcode:

   DM.IBTagesplan.Close;
   DM.IBTagesplan.InsertSQL.Text := 'Insert Into UDAT (ID,UNTERSUCHUNGSDATUM, PATIENT) VALUES (50,''15.10.2005'',''Thomas Cook'')';
   DM.IBTagesplan.Open;
   DM.IBTransaction.Commit;

[kiar]

hallo ralf, ich mache soetwas immer mit einer query und zwar so

Delphi-Quellcode:

with DM1.IBQuery3 do
        Begin
           Close;
           SQL.Clear;
           SQL.Add('insert Into Tab_Mitarbeiter (VNummer
                                              , Name
                                              , Vorname
                                              , Beruf
                                              , Firmen_Id)'+
          'values           (:VNummer,:Name,:Vorname,:Beruf,:Firmen_id)');
                   ParamByName('VNummer')  .AsString := Edit1.Text;
                   ParamByName('Name')     .AsString := Edit3.Text;
                   ParamByName('Vorname')  .AsString := Edit2.Text;
                   ParamByName('Beruf')    .AsString := Edit4.Text;
                   ParamByName('Firmen_Id').AsInteger:= x[ComboBox1.ItemIndex];
           Open;
        end;
        DM1.IBTrans1.Commit;

also ich versuche immer paramisierte felder zu nehmen .versuche es mal auf dein dataset umzusetzen.

raik

edit :ich hoffe du hast nicht 800*600 als auflösung, bei mir sieht es schrecklich aus

[Hansa]

Wie kiar das beschrieben hat, so geht es im Prinzip. Wenn schon, dann aber direkt eine stored Procedure verwenden. Ja, man lernt eben nie aus. Das von mir anfangs eingeführte Lager-Beispiel habe ich so realisiert (Menge soll vom Bestand abgezogen werden) :

Delphi :

Delphi-Quellcode:

procedure SchreibeLager (menge : integer);
begin
  with EingDM do begin // EingDM : DataModule
    LagSP.ParamByName('ID_ART').AsInteger := ArtDS.FieldByName ('ID').AsInteger;
...
    LagSP.ParamByName('MENGE').AsInteger := menge;
    LagSP.ExecProc;
  end;
end;

Voraussetzumg ist natürlich, daß diese SP in der DB definiert ist.

DB:

SQL-Code:

SET TERM ^ ;

CREATE PROCEDURE LAGSP (
    ID_ART INTEGER,
    MENGE INTEGER)
AS
DECLARE VARIABLE AENDERN INTEGER;
begin
  AENDERN = -1;
  SELECT ID FROM LAGER WHERE ID_ART= :ID_ART INTO :AENDERN;
  IF (AENDERN < 0) THEN BEGIN
    INSERT INTO LAGER8 (ID_ART,MENGE) VALUES (:ID_ART,-1*:MENGE);
  END
  ELSE BEGIN
    UPDATE LAGER SET MENGE = MENGE - :MENGE
    WHERE ID_ART = :ID_ART;
  END
  suspend;
end
^

SET TERM ; ^

Das ist jetzt allerdings noch stark verkürzt. Nicht relevante Felder und Statements habe ich weggelassen.

Außerdem ist ein guter Trick integriert : nämlich die DB entscheiden zu lassen, ob ein INSERT oder ein UPDATE ausgeführt werden muß. Würde ich auf keinen Fall vernachlässigen

Es muß also im Programm nur "SchreibeLager" ausgeführt werden, egal ob der Lagerbestand schon existiert oder nicht !!