[ADO-Access] Ajout de nouvel enregistrement impossible
Bonjour,
Venant de Delphi je m'intéresse de manière ludique à Lazarus et j'essaie de passer une application de base de données ADO-Access que j'ai réalisée sous Delphi 10.2 vers Lazarus.
Problème : quand j'ajoute (sous Lazarus) un nouvel enregistrement :
1. il se place en avant-dernière ligne du DBGrid ;
2. quand j'arrête l'appli et que je la redémarre, l'enregistrement a disparu. Voici le code qui fonctionne très bien sous Delphi et pas sous Lazarus :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
procedure TForm1.btnValiderClick(Sender: TObject);
begin
if lblTitre.caption='Ajouter le contact' then
Dm.ADOQuery1.Insert
else
Dm.ADOQuery1.Edit;
Dm.ADOQuery1.FieldByName('Numero').Value:=NumeroEdit.Text;
Dm.ADOQuery1.FieldByName('Jour').Value:=DatePicker3.Date;
Dm.ADOQuery1.fieldbyname('Debut').value:=DebutMaskEdit.text;
Dm.ADOQuery1.fieldbyname('Fin').value:=FinMaskEdit.text;
Dm.ADOQuery1.fieldbyname('Bande').value:=BandeEdit.text;
Dm.ADOQuery1.FieldByName('Indicatif').Value:=IndicatifEdit.Text;
Dm.ADOQuery1.fieldbyname('S_RST').Value:=SRSTEdit.Text;
Dm.ADOQuery1.fieldbyname('M_RST').Value:=MRSTEdit.Text;
Dm.ADOQuery1.fieldbyname('Mode').Value:=ModeComboBox.Text;
Dm.ADOQuery1.fieldbyname('Observations').Value:=ObservationsEdit.Text;
Dm.ADOQuery1.fieldbyname('S_QSL').Value:=SQSLEdit.Text;
Dm.ADOQuery1.fieldbyname('M_QSL').Value:=MQSLEdit.Text;
Dm.ADOQuery1.FieldByName('Zone_CQ').Clear;
Dm.ADOQuery1.Post;
Form1.NbContacts.Caption := Format('%d', [Dm.AdoQuery1.RecordCount]);
end; |
Même problème avec un tuto ADO/Access venant de Delphi.
Merci de m'aider, je suis perplexe !
Bon WE à tous.