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 :
Même problème avec un tuto ADO/Access venant de Delphi.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Merci de m'aider, je suis perplexe !
Bon WE à tous.
Partager