Datenmenge weder im Editier noch im Einfügemodus

[hirsch]

Erstmal danke, Blup

SQLDSArtikel ist ein TSQLDataset
CDSArtikel ist ein TClientDataSet

CDSArtikel ist mit deinem TDatasetProvider mit Namen DSPArtikel verbunden. Dieser ist dann mit dem SQLDSArtikel verbunden, und dieser mit der TSQLConnection der an der Datenbank hängt.

DB -> SQL -> DP ->CDS

Welche Einstellungen möchtest Du gerne wissen?

Der Code ist nun hoffentlich übersichtlicher, mit ohne dem With...

Delphi-Quellcode:

     if b_merker=True then begin
       sql:='Select * from Teil2710 where ART_SCHN = '''+EDSch.text+''';';
       if Datamodul.DataModule1.SQLDSArtikel.Active=True then Datamodul.DataModule1.SQLDSArtikel.Active:=False;
       if Datamodul.DataModule1.CDSArtikel.Active=True then Datamodul.DataModule1.CDSArtikel.Active:=False;
       Datamodul.DataModule1.SQLDSArtikel.commandText:=sql;
       Datamodul.DataModule1.SQLDSArtikel.Active:=True;
       Datamodul.DataModule1.CDSArtikel.Active:=True;
       Datamodul.DataModule1.SQLDSArtikel.refresh;
       Datamodul.DataModule1.CDSArtikel.refresh;
       if Datamodul.DataModule1.CDSArtikel.recordcount=1 then begin
         Art_grp:=Datamodul.DataModule1.CDSArtikel.FieldByName('ART_GR').asstring;
         Art_Num:=Datamodul.DataModule1.CDSArtikel.FieldByName('ART_NR').asstring;
         if Datamodul.DataModule1.CDSArtikel.State<>dsEdit then
           Datamodul.DataModule1.CDSArtikel.Edit;
         Datamodul.DataModule1.CDSArtikel.FieldByName('Bemerkung').asstring:=Bem;
         Datamodul.DataModule1.CDSArtikel.FieldByName('ART_GR').asstring:=Art_Grp;
         Datamodul.DataModule1.CDSArtikel.FieldByName('ART_NR').asstring:=Art_Num;
         Datamodul.DataModule1.CDSArtikel.Post;

         Datamodul.DataModule1.CDSArtikel.ApplyUpdates(-1);//<<Table unknown
       end else
         Showmessage('Die Bemerkung konnte nicht eingetragen werden');
         Datamodul.DataModule1.CDSArtikel.active:=False;
         Datamodul.DataModule1.SQLDSArtikel.Active:=False;
         Art_Grp:='';
         Art_Num:='';
         edSch.Text:='';
         b_merker:=False;

     end;

[hirsch]

Ok, ich habs....

Ich wusste nicht, das Interbase Groß.- und Kleinschreibung beachtet.....


Vielen Dank an Alle, die versuchten mir zu helfen...

[Perlsau]

Mir ist an deinem Code aufgefallen, daß du zuerst die beiden Felder ART_NR und ART_GR ausliest, um im Editmodus genau diese beiden Werte wieder in genau diese Felder reinzuschreiben. Das ergibt irgendwie keinen Sinn: Wenn du diese beiden Werte nicht ändern möchtest, mußt du diese beiden Felder auch nicht anfassen.

Delphi-Quellcode:

         // Art_grp:=Datamodul.DataModule1.CDSArtikel.FieldByName('ART_GR').asstring;
         // Art_Num:=Datamodul.DataModule1.CDSArtikel.FieldByName('ART_NR').asstring;
         if Datamodul.DataModule1.CDSArtikel.State<>dsEdit then
           Datamodul.DataModule1.CDSArtikel.Edit;
         Datamodul.DataModule1.CDSArtikel.FieldByName('Bemerkung').asstring:=Bem;
         // Datamodul.DataModule1.CDSArtikel.FieldByName('ART_GR').asstring:=Art_Grp;
         // Datamodul.DataModule1.CDSArtikel.FieldByName('ART_NR').asstring:=Art_Num;
         Datamodul.DataModule1.CDSArtikel.Post;

[Sir Rufo]

Du kannst die Zeilen mit

Delphi-Quellcode:

if SomeDataset.Active {= True} then
  SomeDataset.Active := False;

einfach ersetzen durch

Delphi-Quellcode:

// Dataset soll geschlossen sein
SomeDataset.Active := False;

Ist die Datenmenge geöffnet, dann wird die geschlossen, ansonsten bleibt die geschlossen.
Dein Code bläht das nur um eine zusätzliche und unnötige Abfrage auf.

In deinem Code ist auch die Abfrage auf den State unnötig, denn kurz vorher öffnest du die Datenmenge und dann ist die gesichert niemals im dsEdit State.

[himitsu]

Wobei ich die Methoden Open und Close meistens etwas übersichtlicher/verständlicher finde, als das Active-Property.

Die Abfrage auf den State war, wie schon gesagt wurde, eher nutzlos.
Selbst wenn es schon auf dsEdit/dsInsert steht, dann kann man Edit dennoch aufrufen, da sich ja nichts ändert. (ist wie beim Active ... wenn es das schon ist, dann bleibt es so)

Und das Refresh der Datasets könnte ebenfalls weg, denn die wurden ja grade erst geladen und sind somit schon aktuell.

[mkinzler]

Zitat von himitsu:

Wobei ich die Methoden Open und Close meistens etwas übersichtlicher/verständlicher finde, als das Active-Property.

Dann halt

Delphi-Quellcode:

// Dataset soll geschlossen sein
SomeDataset.Close;