Probleme beim einfügen von neuen Datensätzen

[Flash68]

Hallo zusammen,

bei mir funktioniert das einfügen von neuen Datensätzen teilweise nicht mehr. Wenn ich das einfügen vom Navigator benutze dann öffnet sich ein neuer Datensatz, wenn ich den Befehl append benutze tut sich nichts:

Delphi-Quellcode:

procedure TFRM_Main.But_NeuClick(Sender: TObject);
begin
  DM_Rechner.ADS_Rechner.Append;
end;

Kann mir jemand dabei helfen?

Gruß

Flash

[DeddyH]

Jepp, die Hilfe: http://docwiki.embarcadero.com/VCL/d...DataSet.Append

Zitat:

Bei Datenmengen, die eine Bearbeitung erlauben, können Sie mit Append folgende Aktionen durchführen:

1. Einen neuen leeren Datensatz am Ende der Datenmenge öffnen.

2. Der neue wird zum aktiven Datensatz gemacht.

Nach dem Aufruf von Append kann die Anwendung den Benutzern die Eingabe von Daten in die Felder des neuen Datensatzes ermöglichen. Anschließend können die Änderungen mit Post in die Datenbank oder das Änderungsprotokoll eingetragen werden (Client-Datenmengen können die im Protokoll enthaltenen Änderungen durch einen Aufruf von ApplyUpdates in die Datenbank schreiben).

[Flash68]

Das verwende ich ja so wie ich es oben angegeben habe, aber leider fünktioniert das nicht, die Felder werden nicht leer.

[DeddyH]

Welche Felder? Eingabefelder im Sinne von DBEdits etc.?

[haentschman]

Hallo...

:gruebel: war das nicht so, daß dem Append automatisch ein Post folgt ? Wenn der Datensatz editiert werden soll muß wieder mit Edit in den Editiermodus versetzt werden, oder ?

Zitat:

die Felder werden nicht leer

...ich glaube er meint damit, daß der ganze Datensatz markiert ist und nicht der Cursor in einem Feld blinkt...

PS: wenn RowSelect aktiv ist bekommst du das Grid nicht in den "visuellen" Editiermodus

[DeddyH]

Ich arbeite ja so gut wie nie mit Append und Konsorten, aber welchen Sinn sollte es haben, nach dem Append gleich ein Post folgen zu lassen? Man muss doch erst einmal die Felder belegen und dann erst wegschreiben, oder irre ich mich?

[Bummi]

Zitat:

war das nicht so, daß dem Append automatisch ein Post folgt?

Nein, glücklicherweise nicht....

[haentschman]

nö...

es gibt ja auch AppendRecord, da wird der Datensatz gleich mit Daten angelegt. Append erzeugt imho (lange her) einen leeren Datensatz. Diesen mußt du zum editieren erst wieder in den Edit Modus versetzen und dann mit Post wegschreiben.

Auszug aus einer Codeleiche: :zwinker:

Delphi-Quellcode:

ZQueryDetail.Append;
ZQueryDetail.Edit;
ZQueryDetail.FieldValues['KOMPO']:= 'BSK';
.
.
.
ZQueryDetail.Post;

...ich meine mich zu errinnern, daß ohne das Edit eine Fehlermeldung kam...

[DeddyH]

Na, OK, dann klinke ich mich lieber aus (mache ja eh alles per SQL) :mrgreen:

[haentschman]

SQL... besser ist das. 8-)

[Bummi]

Kann man IMHO nicht generalisieren.
Bei eigenen Manipulationen sehe ich es auch so, aber (komplexe) Benutzeroberflächen fackle ich doch lieber über Komponenten ab.

[haentschman]

Nachtrag:

hab es noch mal ausprobiert...

tataaa...das Edit ist wirklich nicht notwendig. Lieber eins zu viel als zu wenig :oops:

Mann bin ich froh von den datensensitiven Controls weg zu sein... :cheer:

[Flash68]

mit Felder meine ich wie schon jemand schrieb die DBedits und ähnliches, ich benutze kein Grid zum Datensatz hinzufügen.

Also ich benutze sonst auch nur das Append und kein edit dazu, es funktioniert sonst immer ohne Probleme. Aber hier in dem Fall geht es nicht, selbst wenn ich meine alte Accessdatenbank als Quelle benutze.

[Bummi]

Bist Du sicher dass Du auf dem richtigen Dataset append durchführst.
Hast Du Events im AfterInsert, hängt die Datasource richtig ....

[Furtbichler]

Immer wieder lustig: Im OnNewRecord durch das Dataset scrollen, um z.B. eine neue Id zu erstellen.
Einige Dataset-Derivate mögen es gar nicht, wenn man im dsEdit/dsInsert-Modus ein Lookup macht.

[Flash68]

Ich habe extra ein vereinfachtes Programm erstellt umd das ganze nachzustellen und da habe ich in meinem Datenmodul nur 3 Objekte, eine Connection, ein DataSet und eine DataSource und verweise mit dem Button wie oben direkt auf das Dataset. Im Normalfall lasse ich noch den Cursor auf das erste Feld springen und die Buttons aktivieren und deaktivieren, das hatte ich dann in der einfachen Form weggelassen. Aber beim drücken auf dem +-Button von Navigator reagiert es kommischerweise.

[Bummi]

Zitat:

nur 3 Objekte, eine Connection, ein DataSet und eine DataSource
........
Im Normalfall lasse ich noch den Cursor auf das erste Feld springen und die Buttons aktivieren und deaktivieren, das hatte ich dann in der einfachen Form weggelassen

Wo siehst Du etwas bei Deinen 3 Objekten, wohin soll hier ein Cursor springen und welche Buttons wann wie warum "aktivieren und deaktivieren"

Hast Du mal veruschweise ein DBGrid mit angehängt, ein Showmessage ins AfterInsert eingebaut ...

:glaskugel:

[vagtler]

Zitat:

Zitat von Bummi (Beitrag 1141294)

[...] Wo siehst Du etwas bei Deinen 3 Objekten, wohin soll hier ein Cursor springen und welche Buttons wann wie warum "aktivieren und deaktivieren" [...]

Du erwartest doch nicht etwa qualifizierte Fehlerbeschreibungen oder gar Code? :dance:

[Bummi]

@vagtler

nicht mehr ...

[Flash68]

das sind ja nur die Objekte für die Anbindung der Datenbank. Auf dem Form hab ich ein Grid das ganz normal den Inhalt der Tabelle zeigt und dazu die DBeditfelder zum Anzeigen bzw. eingeben/editieren.

Delphi-Quellcode:

procedure TFRM_Main.But_Neuer_RechnerClick(Sender: TObject);
begin
  DM_Rechner.ADO_DS_Rechner.Append;
  setbuttonsRechner(2);
  DBE_Rechner_Bezeichnung.SetFocus
end;

Weggelassen hatte ich für mein Testprogramm hatte ich die zeilen mit setbuttons und Setfocus da sie für das Anfügen nicht wichtig sind.


Was ich suche ist vielleicht eine Einstellung oder was ähnliches das ich eventuell vergessen haben könnte.

[jobo]

Ist das jetzt das "vereinfachte" Programm bzw. ein Bröckchen daraus?
Was steckt hinter dem Dataset? Table? Query?

[Flash68]

Wie gesagt ich habe einen MS SQL DB auf die wird mittels der Connection/Nativeclient zugegriffen dahinter hängt dann das Ado Dataset mit der Abfrage Select * from Rechner und das DBgrid und die DBEdits greifen dann über ein Datasource auf das Dataset zu.


PS: Es gibt keine Fehlermeldung, es passiert nur einfach nichts.

[jobo]

Welchen Client benutzt Du?
Irgendwo ein Try Block, der nicht zuende programmiert ist?

[Flash68]

Du meinst um auf die Datenbank zuzugreifen, den Nativeclient wie er mit dem SQL-Server ausgeliefert wird. Version-Nr. ist 10.1.

Try hab ich keinen eingebaut.

[Flash68]

Ich habe nochmal was getestet, ich benutze normal ein Datenmodul wo die ganzen Datenbankverbindungen, Datasets etc.. drin sind, ich habe diese jetzt direct in das Formular eingebaut und dann funktioniert es. Komisch ist das es sonst mit dem Datenmodul funktioniert und hier jetzt nicht, habe es ganz normal unter uses deklariert und auch beim aufrufen von Append angegeben (DM.ADS.append; ) Mein Problem ist das es in dem Program ziemlich viele Datasets und ähnliches gibt und ich die nicht alle im Formular unterbringen kann und damit das Datenmodul brauche.

Flash

Wünsche allen ein frohes und gesundes neues Jahr.

[Furtbichler]

Du kannst beruhigt sein. Das Problem ist nicht das Datenmodul, sondern der Quark, der irgendwo in deinem Code schlummert. Jetzt hast du dran gerüttelt und nun funktionierts. Das liegt aber nicht daran, das "Rütteln" die Lösung ist.

Es verhält sich genauso mit den guten alten Münzen, die man rubbelt, damit sie vom Münzautomaten angenommen werden. Und dabei werden sie beim 2.Versuch sowieso angenommen, aber da man nach dem 1.Versuch rubbelt, denkt man, rubbeln hilft.

Räum dein Programm auf, verteile die Daten auf Datenmodule (mehrzahl), wenns sein muss.

Oder mach eine Pause und beschäftige dich mit ORM.

[Flash68]

Ich habe ein Testprogramm nur mit dem dem nötigsten(nur eine Tabelle) erstellt und auch da funktioniert es über das Datenmodul nicht. Also kann es meiner Meing nach nicht an dem Quark/ überflüssigem Programcode liegen.

Ab wievielen Elementen sollte mann denn ein neues Datenmodul benutzen?

[Iwo Asnet]

Zeig doch mal den Test, der angeblich ohne Datenmodul nicht funktioniert.

Ach ja: Verknüpfungen zwischen Datenmodul und Formular (z.B. TDataset<-TDatasource), die man mit dem Designer erstellt hat, verschwinden gerne mal zwischendurch.

Desweiteren ist die Aufrufreihenfolge von Belang. Auch hier verschwinden gerne mal Verknüpfungen.

Auf der sicheren Seite bist Du, wenn z.B. das Hauptformular das Datenmodul erstellt und anschließend die Verknüpfungen per Code einrichtet.

[Flash68]

Es funktioniert mit dem Datenmodul nicht richtig. Wenn ich die Connection, das Ado-Dataset und die DataSource in das Formular setze funktioniert es. Im Datenmodul funktioniert es dann nur über den Navigator und nicht mit append, cancel etc...

Was für Quellcode brauchst du denn?

[p80286]

Zitat:

Zitat von Flash68 (Beitrag 1144290)

Was für Quellcode brauchst du denn?

Na für's erste das DM und die Zugriffe auf das DM!
Hast du mal den Debugger bemüht?
So richtig langweilig mit F7 nachvollzogen was passiert wenn?

Gruß
K-H

[Flash68]

Das Datenmodul sieht wie folgt aus:

Delphi-Quellcode:

unit Datamodul;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM_Rechner = class(TDataModule)
    CON_Rechner: TADOConnection;
    ADS_Rechner: TADODataSet;
    DS_Rechner: TDataSource;
    ADS_RechnerID: TAutoIncField;
    ADS_RechnerBezeichnung: TWideStringField;
    ADS_RechnerRechnertyp_ID: TIntegerField;
    ADS_RechnerStatus_ID: TIntegerField;
    ADS_RechnerBesonderheiten: TWideMemoField;
    ADS_RechnerGehäuse_ID: TIntegerField;
    ADS_RechnerNetzteil_ID: TIntegerField;
    ADS_RechnerMainboard_ID: TIntegerField;
    ADS_RechnerProzessor_ID: TIntegerField;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  DM_Rechner: TDM_Rechner;

implementation

{$R *.dfm}

end.

Die zugriffe sehen dann wie folgt aus:

Delphi-Quellcode:

procedure TFRM_Main.But_NeuClick(Sender: TObject);
begin
  DM_Rechner.ADS_Rechner.Append;
  but_Neu.Enabled:= false; but_abbrechen.Enabled:= true; bitbtn1.Enabled:= false;
  dbe_bezeichnung.SetFocus
end;

procedure TFRM_Main.But_AbbrechenClick(Sender: TObject);
begin
  DM_Rechner.ADS_Rechner.Cancel;
  DM_Rechner.ADS_Rechner.Edit;
  but_Neu.Enabled:= true; but_abbrechen.Enabled:= false;bitbtn1.Enabled:= true
end;

Mit F7 hab ich mal durch geklickt, hab aber keine Erfahrung damit und worauf ich da achten muß. Hab jetzt so nichts gesehen.