Discussion :

[NABIL74]

salut,
j'ai une table avec le champ "num_eleve" de type numérique.
sans que l'utilisateur soit obligé de saisir le "num_eleve", je veux que delphi
l'enregistre automatiquement selon la valeur de l'enregistrement précédent auquel on ajoute 1:

ex:Table1.FieldByName('Num_eleve').AsInteger:=la valeur du champ précédent +1.

j'ai essayé mais sans résultat.je n'ai pas trouvé le code pour indiquer la valeur du champ précédent de 'Num_eleve'.
comment faire svp?

[liazidf]

salut,
j'ai une table avec le champ "num_eleve" de type numérique.
sans que l'utilisateur soit obligé de saisir le "num_eleve", je veux que delphi
l'enregistre automatiquement selon la valeur de l'enregistrement précédent auquel on ajoute 1:

ex:Table1.FieldByName('Num_eleve').AsInteger:=la valeur du champ précédent +1.

j'ai essayé mais sans résultat.je n'ai pas trouvé le code pour indiquer la valeur du champ précédent de 'Num_eleve'.
comment faire svp?

voilà un petit exemple qui purrait t'aider.

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
procedure Tfom1.CdsNewRecord(DataSet: TDataSet);
Var n:integer;
begin
with numero do
 begin
 edit;
 with fieldbyname('numligne') do
  begin
   asinteger :=asinteger + 1;
   n:=asinteger;
  end;
  post;
end;
CdsNordre.Value:=n;
end;

[rec82]

salut.
tu peut déclarer le champ "n_eleve" comme un champ auto incriment, dans ce cas dans le type de champ "n_eleve" tu met un plus (+) et comme ça le champs s'incriment automatiquement quand on ajoute un enregistrement.
cordialement ,bon codage.

[NABIL74]

voilà un petit exemple qui purrait t'aider.

procedure Tfom1.CdsNewRecord(DataSet: TDataSet);
Var n:integer;
begin
with numero do
begin
edit;
with fieldbyname('numligne') do
begin
asinteger :=asinteger + 1;
n:=asinteger;
end;
post;
end;
CdsNordre.Value:=n;
end;

Bonjour tout le monde,
liazidf ,
j'ai essayé ce code mais delphi me signale qu'il y a des erreurs dans mon code.
quelle est la nature de "numero" , ''numligne'' , asinteger ?
Dans ma table,j'ai deux champs:"'Num_eleve'' et "nom_prénom".

[liazidf]

Bonjour tout le monde,
liazidf ,
j'ai essayé ce code mais delphi me signale qu'il y a des erreurs dans mon code.
quelle est la nature de "numero" , ''numligne'' , asinteger ?
Dans ma table,j'ai deux champs:"'Num_eleve'' et "nom_prénom".

Salut,
effectivement, je n'est pas donné de détails sur ce code, voilà il le numero désigne le nom d'une table dans l'aquelle vous allez stocker le dernier numéro attribué, pour vous c'est le "Num_eleve", bien-sur il y a là une solution y'en a d'autres voir SQL.
Bonne chance.

[NABIL74]

bonjour à tous,
j'ai passé beaucoup de temps sur ce problème et je n'ai pas encore trouvé la solution.
est-il possible de le resoudre en utilisant "bookmark?
je m'arrache les cheveux mes amis.

[BuzzLeclaire]

Lu Nabil74

Tu est dans quelle type de base ? Access ?

Si c'est avec Access une simple requete te de donnera la réponse. J'utilise déjà cette fonctionalité sur mon soft.

Je reviendrais te mettre ma procedure.

[NABIL74]

bonjour BuzzLeclaire,
je travaille avec Absolute.Database.v5.12
merci à toi!

[BuzzLeclaire]

Bonjour,

Voilà une procédure que j'utilise pour ajouter 1 à un champs de type numérique, pour éviter à l'utilisateur de connaître le prochain 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
function ProchainCodeLibre(Table, Champ: String; Option: Byte): Integer;
...
...
 
function ProchainCodeLibre(Table, Champ: String; Option: Byte): Integer;
Begin
  result := 0;
  With ModuleDeDonneeSecondaire.ADOQueryX do 
// Module de donnée propre à mon applicatif
// ADOQueryX pour réaliser une requète
  Begin
...
{ if Option =1 then }
 
    if Option = 2 then // champs de type numérique
    Begin
      SQL.Clear;
      SQL.Add('SELECT Last('+Table+'.'+Champ+') AS LastDeCode FROM '+ Table);
      Try
        Try
          Open;
          Result := Fields.Fields[0].AsInteger + 1; // Retourne LastDeCode + 1
        Except
          MessageDlg(Application.Title + ' a généré une erreur pendant l''éxécution de : '
          +#10+#13 + SQL.Text
          +#10+#13 + 'Noter ce message et contacter le service Technique', mtError, [mbOk], 0);
        end;
      Finally
        Close;
      end;
    end; // On pourrais imaginé un Else mais j'ai pas envie lol !!!
    if Option = 3 then // Utiliser pour les champs de type Texte
    Begin
      SQL.Clear;
      SQL.Add('SELECT Max(Val('+Table+'.'+Champ+')) As MaxDeCode From '+ Table + ' ');
      SQL.Add('Order By Max(Val('+Table+'.'+Champ+'))');
      Try
        Try
          Open;
          Result := Fields.Fields[0].AsInteger + 1; // Retourne MaxDeCode+1
        Except
          MessageDlg(Application.Title + ' a généré une erreur pendant l''éxécution de : '
          +#10+#13 + SQL.Text
          +#10+#13 + 'Noter ce message et contacter le service Technique', mtError, [mbOk], 0);
        end;
      Finally
        Close;
      end;
    end;
  end;
end;

utilisation

Code :

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

Edit1.Text := IntToStr(ProchainCodeLibre('Salarie','Code',2));

Explication :
le coup du Val dans "Max(Val(" n'ai valable que dans le cas où le champ code est de type texte et que l'on écris que des chiffres dedans (je sais je suis malade mais je me soigne cf : contrainte inter-logiciel)

Bon, je connais pas ton sytem de base de données mais dans l'idée l'option 2 pour le coté champs numérique, l'option 3 pour le coté champs text (donnée numérique), J'ai pas tout mis j'ai d'autre option.

J'espère que cela pourras t'aider.

[valer]

Moi aussi je fais ça dans mon application.
Ce que je fais est simple : Le champ en question est juste en position lecture dc on peut pas écrire.
Chaque fois kon veut insèrer je fais une requête dans la table et le champ le plus grand que je trouve j'ajoute 1. Mais le champ doit être auto incrémentant absolument sinon tu pourras avoir tout le temps des bugs.

[NABIL74]

OKKKKKK ça marche!!!!!!!!!!!!!
La solution c'est l'idée l'option 2 pour le coté champs numérique.
Avant,j'ai testé beaucoup de trucs mais sans résultats.
merci à vous tous surtout à toi BuzzLeclaire.tu m'as beaucoup aidé.
encore merci infiniment.
au plaisir d'avoir d'autres discutions sur le forum.