bonjour, je suis nouveau en programmation, voila mon probleme et que j'ai une base de données interbase qui est composée de cinq tables, voila lorsque j'ajoute des enregistrements, je suis oblige de fermer le programme et de le relancer pour pouvoir imprimer les derniers enregistrements,
car si j'imprime directement, les enregistrements ajoutes n'apparaissent pas.
merci pour votre aide.
Rq:
j'utilise: ibdatabase, ibtransaction, ibtable.
j déjà utilise ibtable1.refresh: ca ne marche pas;
j utilise ibdatabase.connected:=false puis ibdatabase.connected:=true: ca ne marche pas
j utilise ibtable1.open..........ibtable1.refresh ibtable1.close : non plus
je ne comprend plus rien
voici mon code :
pour le bouton impression:
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
24
25
26
27
28
29
30
31 //*******************FAMILLES********************************** //%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% IF FAMILLES.Visible THEN BEGIN IBTABLE1.First; for i:=1 to ibtable1.RECORDCOUNT DO BEGIN IF (ibtable1.FieldValues['CODE']=EDIT1.TEXT) AND (ibtable1.FieldValues['FAMILLE']=EDIT2.TEXT) THEN BEGIN SHOWMESSAGE('LA FAMILLE EXISTE DEJA'); FAMILLES.Visible:=FALSE; EDIT1.Text:=''; EDIT2.Text:=''; AJOUTER.Enabled:=FALSE; ANNULER.Enabled:=FALSE; EXIT; END; ibtable1.Next; END; ibtable1.Last; ibtable1.APPEND; ibtable1.FieldValues['NFM']:=ibtable1.RECORDCOUNT+1; ibtable1.FieldValues['CODE']:=EDIT1.TEXT; ibtable1.FieldValues['FAMILLE']:=EDIT2.TEXT; ibtable1.POST; FAMILLES.Visible:=FALSE; EDIT1.Text:=''; EDIT2.Text:=''; END;
merci pour vos reponses
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 IBTABLE1.Active:=TRUE; ETAT_ART.IBQUERY1.Active:=FALSE; ETAT_ART.IBQUERY1.SQL.Clear; ETAT_ART.IBQUERY1.SQL.Text:='select * from FAMILLES'; ETAT_ART.IBQUERY1.Active:=TRUE; ETAT_ART.QR1.Preview;
Partager