Discussion :

[Mohamedbenlakhrech]

salut tout le monde,je suis débutant en delphi
et j'arrive pas a enregistrer les valeur de mon formulaire dans la base de donneés,jai un probléme au niveau du radiobutton group
que jai nomé "sexe"
voila mon code

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
procedure TForm8.EnregistrerClick(Sender: TObject);
var etat:string;
    etat1:string;
begin
 
 
if sexe.Itemindex=0 then etat:='Masculin' else
if sexe.ItemIndex=1 then etat:='Masculin' else
if etatcivil.checked[0] =true then etat1:='Célibataire' else
if etatcivil.Checked[1]=true then etat1:='Marié(e)' else
if etatcivil.Checked[2]=true then etat1:='Divorcé(e)' else
if etatcivil.Checked[3]=true then etat1:='Veuf(e)' ;
 
modbase.IBQuery.SQL.Clear;
modbase.IBQuery.SQL.Add('INSERT INTO PATIENT (codpat,nompat,prenpat,daten,age,adrpat,profpat,sexe,etatcivil,notes) VALUES (:codpat,:nompat,:prenpat,:daten,:age,:adrpat,:profpat,:sexe,:etatcivil,:notes)');
modbase.IBQuery.Params[0].AsString:=codpat.Text;
modbase.IBQuery.Params[1].AsString:=nompat.Text;
modbase.IBQuery.Params[2].AsString:=prenpat.Text;
modbase.IBQuery.Params[3].AsString:=daten.Text;
modbase.IBQuery.Params[4].AsString:=age.Text;
modbase.IBQuery.Params[5].AsString:=adrpat.Text;
modbase.IBQuery.Params[6].AsString:=profpat.Text;
modbase.IBQuery.Params[7].AsString:=etat;
modbase.IBQuery.Params[8].AsString:=etat1;
modbase.IBQuery.Params[9].AsString:=notes.Text;
 
modbase.IBQuery.Open;
end;

Merci d'avance

[louay02]

modbase.IBQuery.open;
end;[/code]

Bonjour,

Le open ne peut être utilisé qu'avec des requêtes Select, pour les requête Insert/Update/Delete il faut utiliser ExecSql

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

modbase.IBQuery.ExecSql;

Bon courage.

[SergioMaster]

salut tout le monde,je suis débutant en delphi

Bienvenue sur le forum

Tout d'abord merci de prendre l'habitude de mettre le code entre balise (bouton #) pour une lecture plus facile .
Une bonne habitude aussi est d'indiquer le système d'exploitation, la version de Delphi et si besoin le SGBD (cela peut modifier les réponses)

Il y a beaucoup de chose à dire sur ce code et sur l'enregistrement
pour répondre à la question tout d'abord , la syntaxe du if est mal comprise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if sexe.Itemindex=0 then etat:='Masculin' else etat:='Féminin';

pour état civil , j'utiliserai plutôt un case

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
case etatcivil.itemdex of
  0 : etat1:='Célibataire' ;
  1 : etat1:='Marié(e)' ;
  2 : etat1:='Divorcé(e)';
  3 : etat1:='Veuf(e)' ;
end;

enfin pour l'exécution un insert ne renvoie pas de valeur donc c'est un execute qu'il faut faire non un open

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
modbase.IBQuery.ExecSQL;