Discussion :

[neuneu1]

Bonjour,
je ni comprend rien j ai fait un test avec une table pour inserer un numero unique a chaque enregistrement.

Donc la table ce met sur le dernier enregistrement, recupere la faleur du champ ID et incremente 1.

je fais la meme chose su une autre table, sauf que quand je fais un insert , la ligne cree se met au dessus du dernier enregistrement, et donc plantage car la valeur existe deja.

je sais pas pourquoi?????

code qui marche

Le bur etais de recuper la valeur des checkbox cocher

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
 
 
 
rocedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
table2.last;
i:=table2.Fields[0].AsInteger;
table1.First;
 
while not  table1.Eof do
  begin
 
if TCheckBox(FindComponent(table1.Fields[0].asstring)).checked  then
 
 begin
  i:=i+1  ;
 table2.Insert;
 table2.Fields[0].AsInteger:=i  ;
 table2.Fields[1].AsString:=table1.Fields[0].asstring;
 table2.Post;
 
   end;
    table1.Next;
 
 end;

code qui marche pas

Juste inser des donnees d un dbeidt dans la table en inserant un numeros auto valeur +1

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
 
procedure TForm1.FormCreate(Sender: TObject);
begin
pagecontrol1.TabIndex:=0;
televes.Last;
end;
 
Pour l insert je me sert du dbnavigator.
 
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 
televes.Fields[0].AsInteger:=televes.Fields[0].AsInteger +1 ;
televes.Fields[6].AsString:=metelephonef.Text   ;
dbnavigator1.BtnClick(nbpost);

merci

[PadawanDuDelphi]

Salut,

Peut-être que ma remarque ne te servira rien, mais la plupart (pour ne pas dire tous) des SGBD intègre des champs auto-incrémentés.

Sinon par rapport à ton code, si ton DBNavigator ne te sert qu'à ajouter des valeurs, pourquoi ne pas plutôt utiliser insert et post comme dans ton exemple qui fonctionne ?

A+.

[Parrain]

Pour eviter tous soucis au lieu de rechercher le dernier enregistrement, tu recherches la plus grande valeur de ton champ ID dans ta table et tu l'incrementes en parcourant tout la table.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function NextID():integer;
var 
    i: integer;
begin
   i:=0;
   MaTable.First;
   while not MaTable.Eof do begin
     if i<MaTable.Fields[0].AsInteger then i:= MaTable.Fields[0].AsInteger ;
     MaTable.Next;
   end; 
   NextID:= i+1;
end;

[neuneu1]

Merci je vais teste ,
le dbnavigator , c'est juste que c 'est plus simple a gere pour mes testes.

mais j'ai fais un essaie avec un bouton
televes.insert , c 'est pareil la ligne est inserer au dessus.

pour le champ auto increment j 'ai essaye mais pas reussi
j utilise mysql serveur 5.0 avec mysql administrator, mais lorsque je precise le champ autoincrement lors de mon insert j'ai un plantage

le champ est vide donc ca veut dire qu il a pas eu autoincrementation.

je pense que ca vient de moi , car je ne sais pas comment me servir correctement de ce type de champs.

merci
a+

[neuneu1]

Bon j'ai trouve , ca vient de la position du last, en fait il faut le mettre avant l insertion,recuper la valeur et faire l insert.

merci

[PadawanDuDelphi]

Je persiste quand même à penser qu'un champs auto incrémenté se serait plus adapté à ta situation, puisqu'il sont avant tous fait pour le problème que tu rencontre.

Code :

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

j utilise mysql serveur 5.0 avec mysql administrator, mais lorsque je precise le champ autoincrement lors de mon insert j'ai un plantage

Peut-tu nous donner le code qui plante ?

A voir, aussi pour aider:
http://mysql.developpez.com/faq/?pag...AUTO_INCREMENT

A+.

[neuneu1]

En fait j'ai pas de code, quand je veux enregistre une donne je fait un insert, je pensais que lorsque que le champ etait autoincremente, ca se faisiat tout seul pas par code.

ex
id-auto
nom varchar

table1.insert;
table1.fields[1].asstring='tot';

resultat
id = 1
nom = toto

voila
merci

[neuneu1]

Bonjour,
Si vous avez un petit bout de code pour une tble auto increment je veux bien le regarder pour comprendre

merci

[gduo200]

Les champs auto-incrémentés s'incrémentent seuls ! on n'a jamais besoin et il ne faut pas les renseigner.

Par contre, dans le cas d'une application client/serveur, mes notions rudimentaires me laissent penser que : Du côté client, avant de référencer le champs (le lire), il faut s'assurer que la valeur de ce champs auto-incrémenté (qui est fournie par le serveur) a bien été récupérée par le client.

Quelqu'un pourrait confirmer ?

[aityahia]

a mon avis une requête me semble plus approprié qu'une boucle pour récupérer l'élément le plus grand.

Code :

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

1
2
3
4
5
6
7
8
9
MyQuery.Close;
MyQuery.Sql.Clear;
MyQuery.Sql.Add('SELECT TOP 1  Num FROM MaTable ORDER BY Num DESC');
MyQuery.Open;
 
if  MyQuery.RecordCout = 0 Then
  MaTable.FieldByName('Num').Value := 1
else
MaTable.FieldByName('Num').Value := MyQuery.FieldByName('Num').Value+1;