Discussion :

[nabilissa]

bonjour,

je suis un debutant en delphi, je doit faire une petite application.
j'ai un problème qui me derange.
je veux a l'aide d'un TEdit et un botton (recherche) et 3 DBEdit pouvoir me positionner sur une ligne dans mon DBGrid.

table: users(num_mat,nom_u,prenom_u)

au faite je doit saisir le num_mat dans le TEdit et si je clique sur recherche je veux voir le resultat sur mes DBEdit .

merci.

voici mon code d'essai qui change seulement la valeur des DBEDit mais independant DBGrid
avec:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Datamodule:DM1,IBQuery:Q_dep1,TEdit:cod_rec,TTable:Tab_dep1.
DM1.Q_dep1.Close;
DM1.Q_dep1.SQL.clear;
DM1.Q_dep1.SQL.Text:='select * from users  where num_mat='+QuotedStr(cod_rec.Text);
DM1.Q_dep1.Active:=true;
DM1.Tab_dep1.Active:=true;
DBG_dep.DataSource.DataSet:=DM1.Tab_dep1;
 
 
code_dep.EditText:=DM1.Q_dep1.Fields.Fields[0].AsString ;
 
DM1.Q_dep1.Open;

[Just-Soft]

Bonjour !

est-ce que les DBEDit et DBGrid pointent sur le même DataSet ? si c'est la cas ya aucune raison pour que ta ligne n'apparaisse pas sur les DBEdit ou DBGrdi.

[nabilissa]

bonjour, Au faite tout est lié: dbgrid et DBEdit prennent DataSource , DataSource lié au IBQuery via dataset.
mais avecIBUpdate je veux faire les modifications 'IBQuery.edit' et les suppression 'IBQuery.delete' une foie que j'ai le resultat, cela ne marche je sais pas pourauoi?

[redoran]

Salut; 2 en 1 : votre premier post concerne la recherche sur une table , normalement avec un locate ou une requête vous localisé automatiquement l'enregistrement voulu donc les données seront visible dans les dbedit s'ils sont branché avec le même datasource;
votre dernier message sur les mise à jour ,je vous informe qu'avec le code précèdent vous nous pouvez pas faire des mise a jours " SELECT" sinon posté votre code de mise a jour

[nabilissa]

bonjour je vous remercie beaucoup pour votre soutient ca marche comme je voulais; je donne le code pour les autres merci

Code :

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

1
2
3
4
if( DM1.Tab_pan.Locate('NUM_P',rec_ed_pan.Text,[])) then
                DM1.Tab_pan.Locate('NUM_P',rec_ed_pan.Text,[])
                else
                ShowMessage(' ce code n''existe pas');

je ne sais pas s'il est à modifier encore mais ca fait ce que moi je veux
merci encore

[yvesagha]

Mais pourquoi tu fais le locate 2 fois ??
Un seul suffit !

Code :

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

1
2
3
 
if not DM1.Tab_pan.Locate('NUM_P',rec_ed_pan.Text,[]) then
                ShowMessage(' ce code n''existe pas');