Discussion :

[stefano]

salut,

comment peut on faire pour envoyer une valeur numerique stocker dans une base de donnée type paradox vers un TEdit ?

Code :

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

NjourEdit1.Text := prestation.FieldByName(IntToStr('Njours1.text'));

Ce code me genere une erreur de ce type

[Error] ficheAgent.pas(655): E2250 There is no overloaded version of 'IntToStr' that can be called with these arguments

Code :

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

NjourEdit1.Text := prestation.FieldByName('Njours1.text').AsString;

me genere une erreur lors de l'execution

PojectCe.exe raised exception class EDBEngineError with message
'Record Locked by Another user, C:\Docuùents and setting\USER\mesDocuments\travail\Prest2DB
User :Utilisateur'.

Dans le debut du code j'ai

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TFiche.Retitution(Sender: TObject);
begin
if not Prestation.findKey( [ nomFicheEdit.Text, prenomFicheEdit.Text,
Form2.Table.FieldByName( 'service' ).AsString ] )
then  prestation.Edit;
AbonnementEdit.Text:=prestation.FieldByName('Abonnement').AsString;
.
..
.
.
.
.

Merci pour votre aide.

Je pense que l'erreur vient du format entre l'enregistrement dans la base et la valeur du TEdit (Integer et String) enfin c'est une hypothese.
Je continue quand meme mes recherches

[qi130]

Pourtant, tu étais bien parti

Code :

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

NjourEdit1.Text :=IntToStr( prestation.FieldByName('Njours1.text').AsInteger);

[TicTacToe]

Par rapport au code que tu as posté

1. tu n'as pas besoin de faire une 'Edit' sur ta table pour lire et affecter ton champ dans un TEdit

2. la syntaxe

Code :

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

Edit1.Text := prestation.FieldByName( 'MonChamp' ).AsString

est correct, même si ton champ 'MonChamps' est un champ numérique.
Delphi se charge de faire la converstion. Il n'y a pas besoint d'utiliser

Code :

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

Edit1.Text := IntToStr( prestation.FieldByName( 'MonChamp' ).AsInteger )

Le message d'erreur que tu as

PojectCe.exe raised exception class EDBEngineError with message
'Record Locked by Another user, C:\Docuùents and setting\USER\mesDocuments\travail\Prest2DB
User :Utilisateur'.

vient du fait que tu fais surement 2 'Prestation.Edit' de suite, le 2eme lève une erreur car ta table est déjà en edition.

Bon courage !

[stefano]

Bon je suis pas si nul que ça

je fais encore pas mal d'erreur mais bon, c'est en forgeant que l'on devient forgerons.
C'est pas facile d'apprendre la programation de façon autodidacte mais en cherchant sur le net , les forums et le cas echeant en demandant un petit coup de mais ça facilite l'apprentisage.

Merci a tous les deux pour vos reponses, je savais que j'etais pas tres loin de la solution, mais je ne savais pas que l'on devais mettre l'instruction intToStr devant l'ensemble de la ligne .


merci encore

Edit le 12/03/2006

Pour ce qui etais du message d'erreur , c'etais juste que la table n'etais pas active car j'avais apporter des modification sur la table et j'avais oublier de la recharger.