Discussion :

[colombe]

comment recuperer le numero de l'enregistrement en cours
j'ai utiliser se code mais j'ai toujours -1 ds combobox2.itemindex.

Code :

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

1
2
3
4
5
 
trub.FindKey([edit7.text]);
dbedit4.Text:=trublibrub.Value;
edit24.Text:=inttostr(trub.RecNo);
combobox2.ItemIndex:=strtoint(edit24.text);

[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

[tatareau]

Est-ce que trub.RecNo serait pas déjà du texte? une piste: vérifie à chaque étape le type des résultats.
Bon Code

[TicTacToe]

RecNo est bien un entier
mais c'est pas clair ton but, peut être peut tu être plus clair ?

[evarisnea]

comment recuperer le numero de l'enregistrement en cours

en utilisant TonDataSet.RecNo

quel est le role exact de ton combobox ? quelles valeurs contient-il ? parce que la ligne de code

Code :

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

combobox2.ItemIndex:=strtoint(edit24.text);

pourrait de créer des problème si aucun élément d'index voulu n'existe. de plus pourquoi faire ça

Code :

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

1
2
edit24.Text:=inttostr(trub.RecNo);
combobox2.ItemIndex:=strtoint(edit24.text);

alors que ceci suffit ?

Code :

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

combobox2.ItemIndex := trub.RecNo;

pour finir :

mais c'est pas clair ton but, peut être peut tu être plus clair ?

[e-ric]

Bonjour

La propriété RecNo retourne -1 pour la plupart des ensembles de données.

Pour un résultat de requête (SELECT), la notion même de numéro d'enregistement ne permet pas d'identifier un enregistrement de la base d'une manière générale, cela ne constitue pas une clé. Ce qui explique le choix de la valeur -1. Recno n'est pas un concept pertinent pour les bases relationnel. Il "dépanne" pour les bases de données dites navigationnelles (telle que Paradox).

Il faut plonger dans le code source du composant ensemble de données pour déterminer si Recno retourne -1 ou une valeur plus "significative" (cas des TTable).

La morale est qu'il vaut mieux éviter d'employer Recno.

A titre de complément, un extrait de l'aide de Delphi 2006

Telle qu'implémentée dans TDataSet, la valeur de RecNo est toujours -1. En général une application n'accède pas à RecNo au niveau de TDataSet. A la place, l'accès s'effectue à une propriété RecNo ré-implémentée dans une classe dérivée telle que TTable . RecNo propose une propriété de rappel pour les ensembles de données dérivés ne supportant pas les numéros d'enregistrement.

cdlt

e-ric

[TicTacToe]

+1, complétement d'accord Eric.

[heistein]

salut
il est possible d'utiliser une requette sql pour compter le nombre d'enregistrement déjà effectué de conserver cette valeur dans une variable local de type entier ou smallint , de l'incrémenter à pas de 1 puis de l'afficher
j'espers que cela vous aidera

[hocine]

Salut,
-1 veut dire vous avez 5 et vous obtenez 4 si oui

Code :

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

1
2
 
edit24.Text:=inttostr(trub.RecNo+1);

si votre combo contien -1 sa veut dire que votre table est vide
et avec le code que je vous ai donner vous allez obtenir 0 donc auccun enregistrement.
Bonne chance.
Merci.

[aityahia]

recno ne fonctione pas sur tous les type de base de donnée j'ai testé avec paradox c'est ok mais pas avec access par exemple.

[Yurck]

Bonjour,
Suivant les objets que tu utilise les options sont différentes.

Un TQuery :
Ajoute un champ RecNo à ta requête et calcule le ensuite.

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
 
var
 Qr : tquery;
begin
 Qr := tquery.create;
 .... /* initilaisations diverses et variées*/ 
 qr.sql.text := 'select Ch1, ch2, 0 RecNo from table'
 qr.cachedupdate := true;
 qr.updateobject := 
 qr.open;
  qr.first
  i := 1;
  while not qr.eof do 
  begin
    qr.fieldbyname('recno').asinteger := i;
    inc(i);
    qr.next;
  end;
end;

Avec un ttable (avec un tquery asssi) tu peux le basculer via tprovider dans un tclient dataset et faire la même chose.

enfin bon la solution dépend du problème.

a+