Datensätze speichern in einer Datenbank

[DeddyH]

Ach so. Du brauchst ein TDataset (z.B. eine Table oder Query), eine TDataSource und Dein Grid. In der Datasource stellst Du im OI als Dataset Dein Dataset ein und beim Grid unter Datasource Deine Datasource. Anschließend alles auf active setzen, und die Daten sollten im Grid dargestellt werden.

[Kleine]

Hab den fehler gefunden

Nu hab ich aber folgendes Problem:
Er soll eigentlich den Datensatz, den man einträgt, wenn man auf neu geht in das grid speichern bzw zu datenbank hinzufügen.

[DeddyH]

Poste doch einfach den relevanten Quelltext zum Speichern, zumindest ich habe nicht viel Lust, mir jedesmal das ganze Projekt herunterzuladen und darin zu suchen.

[Kleine]

Delphi-Quellcode:

procedure TFormMain.Neu1Click(Sender: TObject);         // Beim Klicken auf Neu ober in der Leiste
var
  FormAdresse : TFormAdresse ;

  kontaktdaten : tKontaktdaten;
begin
  formAdresse := TFormAdresse.Create( Self );           // Es wird wieder das Formular Adresse erstellt

  formAdresse.Adresse := tAdresse.Create ; ;

  if formadresse.ShowModal = mrOK then                  // Wenn OK geklickt wurde, dann ..
  begin
    ShowMessage ( 'Die Werte wurden gespeichert' );     // Wird dieser Text ausgegeben und ..
    Adressen.Add( FormAdresse.Adresse ) ;               // Die eingetragenden Daten werden in der TList Adressen abgespeichert
    tbAdressen.Insert;
    tbAdressenCreate;
    tbAdressen.Post ;
  end
  else                                                  // Ansonsten..
    ShowMessage ( 'Die Aktion wurde abgebrochen' ) ;    // wird diese Meldung ausgegeben


  RefreshList ;            // AdresseListBox wird aktualisiert und somit wird der neue Datensatz eingetragen

  formadresse.Release ;    // Gibt den Speicher im Formular Adresse wieder frei

end;
procedure TFormMain.tbAdressenCreate;
begin

  tbAdressen.FieldByName('ID').AsInteger := adresse.id;
  tbAdressen.FieldByName('Anrede').AsString := adresse.Anrede;
  tbAdressen.FieldByName('Nachname').AsString := adresse.Nachname;
  tbAdressen.FieldByName('Vorname').AsString := adresse.Vorname;
  tbAdressen.FieldByName('Strasse').AsString := adresse.Strasse;
  tbAdressen.FieldByName('PLZ').AsInteger := adresse.PLZ;
  tbAdressen.FieldByName('Ort').AsString := adresse.Ort;
end;

[DeddyH]

Hast Du einmal in tbAdressenCreate (blöder Name übrigens, das klingt eher nach einem Konstruktor) einen Haltepunkt gesetzt und nachgesehen, was an die Felder übergeben wird? An Deiner Stelle würde ich das aber sowieso ganz anders handhaben: eine Methode AddAdresse, innerhalb derer der komplette Code zum Eintragen in die DB steht, inkl. Insert und Post.

[Kleine]

ich hab nachgeschaut, anscheinend ist adresse = nil doch im nebenformular werden die informationen aus den editfeldern in genau diesen variablen gespeichert und das bevor er durch tbAdressen.Insert läuft.
das mit der methode ist eine gute idee.
Danke

[DeddyH]

Naja,

Zitat:

formAdresse.Adresse := tAdresse.Create;

hier erzeugst Du eine neue Instanz Deiner Adresse in einer Property des Unterformulars und greifst anschließend auf das Feld oder die globale Variable Adresse im Hauptformular zu. Das ist ja nicht dasselbe, solange Du es nicht explizit zuweist.

[Kleine]

und wie löse ich nu das problem?
ich bin totaler änfanger ..