Voor het inserten zou je bv iets van het volgende doen.
Let op is wel ruw uit het hoofdje.
Code:
procedure TForm.Button1Click(Sender: TObject);
begin
try
Datamodule.Tabel.Insert;
Datamodule.Tabel.FieldByName('Veld1').text := Edit1.text;
Datamodule.Tabel.FieldByName('Veld2').text := Edit2.text
Datamodule.Tabel.FieldByName('Veld3').text := Edit3.text;
DataModule.Tabel.Post;
except
on E: Exception do
DataModule.Tabel.Cancel;
end;
end;
En wat de referentiele integriteit betrefd kan ik je niet verder helpen.
PS. dit bovenstaande is gebaseerd op gebruik van een DataModule en
NO DataAware Controls.
Succes,
Richard
Bookmarks