Discussion :

[diablo-dz]

Salut tout le monde,
Je recherche l'instruction pour faire une recherche sur ma base de données sur sql server à partir de delphi avec le composant db query
et l'afficher dans le résultat sur la fenêtre ( chaque champ dans son dbedit) comme dbnavigateur
J'ai essayé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
i:integer
begin
i:=0;
i:=Nomdelaforme.dbedit1.text;
nomdelaforme.nomdelatable.first;
while not nomdelatable.eof do
begin
if nomdelaforme.nomdelatable['nomdechamp']=i then begin
showmessage('xxxxx');
nomdelatable.edit;
end;end;end;

mais n'affiche pas donc je recherche l'aide

[tourlourou]

Il y a ici sûrement confusion de type : si i est entier, on ne peut lui affecter la valeur Text d'un DBEdit, de type chaîne.

Il faut probablement utiliser les fonctions de conversion StrToInt ou IntToStr.

On doit aussi pouvoir utiliser des transtypages de champs : if nomdelaforme.nomdelatable['nomdechamp'].AsInteger=i then

[SergioMaster]

Bonjour,

le code est confus , mais je pense qu'il a été écrit 'à la volée' .

Outre l'erreur relever par tourlourou a propos de i , je note une possible confusion dans le "while not nomdelatable.eof do"
si Nomdelaforme est dans une autre unité alors l'indication manque , sinon à quoi cela sert-il de l'indiquer ailleurs .

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
 
var i : Integer;
begin
with NomdelaForme do 
 begin
   i:=StrToInt(dbedit1.text);
   nomdelatable.first;
   while not nomdelatable.eof do
    begin
       if nomdelatable['nomdechamp'].asInteger=i then 
            begin
                showmessage('xxxxx');
                nomdelatable.edit;
            end;
       nomdelatable.Next; // ça aussi , ça manque la boucle while serait infinie et si le 1°record ne correspond pas à la condition ....... pas de showmessage  
    end;
  end;
end;

Ensuite , si c'est une query qui est utilisée , pourquoi ne pas utiliser un paramètre pour n'avoir que l'ensemble de données à éditer ? ce qui éviterait d'avoir a faire un test de valeur

Code SQL :

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

1
2
 
SELECT * FROM TABLE WHERE CHAMPI=:I;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
With nomdelatable do
 begin
   Close;
   ParambyName('i').asInteger:=StrToInt(dbedit1.text); // note , si c'est un DBEdit il vaudrait carrément mieux passé par la data source 
   nomdelatable.Open;
   while not EOF do
     begin
      .....
      Next;
    end;
 end;

je vois encore plein d'améliorations possibles , mais à demande floue , réponse floue ! (le bon vieux GIGO informatique est toujours vivant)

[edam]

+ voir TTable.Locate,
mais dans les bases relationnels, comme FB, SQlserver,.. mieux utiliser les requêtes comme expliquer par SergioMaster

[Simara1170]

TU peux tenter le FindKey, mais je te conseille de te faire couler une bonne cafetière de café, parce que t'auras eu le temps de la boire le temps qu'il renvoie un résultat...
Le mieux ça reste quand même, à mon avis, de se faire une petite requête SQL qui te renverras le résultat voulu avec un temps d’exécution moindre

[diablo-dz]

TU peux tenter le FindKey, mais je te conseille de te faire couler une bonne cafetière de café, parce que t'auras eu le temps de la boire le temps qu'il renvoie un résultat...
Le mieux ça reste quand même, à mon avis, de se faire une petite requête SQL qui te renverras le résultat voulu avec un temps d’exécution moindre

bonjour simara1170
je voix que je suis mal exprimer, mon problème c'est comme afficher les résultat dans les dbedit .
je cherche comment faire des modification après une recherche directement ,j'ai une solution mais ce n'est pas quoi je recherche
c'est de faire une recherche avec une requête qui va afficher sur un dbgrid après tu clique sur le résultat automatiquement ça va afficher sur les dbedit
j’espère que la tous le monde va comprendre mon problème....je suis toujours a la recherche d'une solution