Discussion :

[rvzip64]

Salut tout le monde,


J'ai une petit appli qui est connectée a une base de données.
Dans mon prog en delphi, j'ai un composant query qui me permet de remplir 20 dbedit pour que l'utilisateur puisse faire des modifications d'une table.

Je voudrais insérer une nouvelle ligne dans ma table, mais le problème c'est que quand je fais un append ou un insert, cela m'efface tout mes dbedits et l'utilisateur doit tout re-rentrer. Y a t'il une solution pour que les dbedits restents "pleins".

Merci d'avance pour votre aide.

[Aka Guymelef]

Bonjour,

pourrais-tu être plus précis sur le acteurs en jeu, à quoi sont reliés tes DBEdit, au query, à un TTable? Si ce n'est pas au query alors comment remplis-tu les DBEdit ?

[rvzip64]

Tous les dbedits sont connectés à un datasource qui est lui meme connecté a TSQLquery.

Est ce que c'est la bonne solution pour faire ce que je veux ?

[evarisnea]

Je voudrais insérer une nouvelle ligne dans ma table, mais le problème c'est que quand je fais un append ou un insert, cela m'efface tout mes dbedits et l'utilisateur doit tout re-rentrer. Y a t'il une solution pour que les dbedits restents "pleins".

je n'ai peut être pas tout compris, mais il me semble que ce soit normal que lors de l'ajout d'un nouvel enregistrement, les DBEdit se vident pour attendre la saisie des valeurs de l'enregistrement.
si tu veux que lors de l'ajout tu aie déjà des valeurs dans tes DBEdit, il faudrait que ta source de données ait des valeurs par défaut pour les champs ou alors que tu définisse ces valeur par du code (dans l'évènement AfterInsert du dataset par exemple).
Bref, plus de précisions s'imposent à mon avis.

[rvzip64]

Je veux bien données plus de précisions, mais je ne vois pas comment etre plus clair.

Je veux faire un insert dans une table, sauf que je veux que les valeurs du champ précédement sélectionner reste afficher dans mes dbedits pour que l'utilisateur n'est a modifié que certain champ.

[popo]

Tu n'as qu'a stocker ses données avant l'insertion et les remettre en place après l'insertion. Je ne vois pas où est le problème.

Avant insertion :

Code :

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

1
2
3
MesDonnees.Numero := ZsNumero.Text;
MesDonnees.Nom := ZsNom.Text;
MesDonnees.Prenom := ZsPrenom.Text;

Après l'insertion :

Code :

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

1
2
3
ZsNumero.Text := MesDonnees.Numero;
ZsNom.Text := MesDonnees.Nom;
ZsPrenom.Text := MesDonnees.Prenom;

[akli_agha]

Ou alors fais un Edit au lieu d'Insert !
Tes DBEdits ne changeront pas et l'utilisateur aura la possibilité de modifier les informations !