Discussion :

[oasis]

Bonjour tout le monde,

je voudrai savoir comment executer une requete "select" dans un programme delphi.

voila une portion de mon programme:

Code :

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

1
2
3
4
5
6
7
query1.SQL.Clear;
 
query1.SQL.Add('select nom');
query1.SQL.Add('from matable);
query1.SQL.Add('where mat=une valeur donnee');
query1.Open;
........

NB:je voudrai que lorsque je clique sur un boutton,la requete sera executee et affiche le resultat dans Tedit.

un tuto si vous en avez?

Merci.

[Cl@udius]

Salut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  with query1 do
  begin
    SQL.Clear;
    SQL.Add('select nom');
    SQL.Add('from matable');
    SQL.Add('where mat=une valeur donnee');
    Open;
    // Placer la valeur retournée dans le Edit
    Edit1.Text := FieldByName('NOM').Value;
  end;

@+ Claudius

[od.dev]

Cher Cl@udius,
une précision pour moi :

vaut-il mieux utiliser "FieldByName('NOM').Value"
ou bien "FieldByName('NOM').AsString" ?

Et pourquoi, si ce n'est pas abuser.

Merci d'avance.

[Cl@udius]

Cher Cl@udius,
une précision pour moi :

vaut-il mieux utiliser "FieldByName('NOM').Value"
ou bien "FieldByName('NOM').AsString" ?

Et pourquoi, si ce n'est pas abuser.

Merci d'avance.

+ 1 Remarque judicieuse ! Il est préférable d'utiliser AsString pour s'assurer de bien affecter une chaîne de caractères à l'Edit (au cas où NOM serait égal à NULL).

@+ Claudius

[od.dev]

Ok, merci.

La réponse est claire, mais je m'attendais à une réponse concernant les variants, que j'ai un peu de mal à appréhender.
J'ai lu quelque part, et c'est logique, que les variants sont hyper gourmands en ressources,
mais laquelle des deux expressions utilise un variant :
.Value
ou bien .AsString,
ou encore aucune ?

J'avoue que j'ai quelques lacunes de ce côté, et j'aimerai beaucoup être sûr de ne pas employer des variants sans m'en rendre compte.

Merci encore.

[evarisnea]

Ok, merci.

La réponse est claire, mais je m'attendais à une réponse concernant les variants, que j'ai un peu de mal à appréhender.
J'ai lu quelque part, et c'est logique, que les variants sont hyper gourmands en ressources,
mais laquelle des deux expressions utilise un variant :
.Value
ou bien .AsString,
ou encore aucune ?

eh bien, il aurait suffit d'un petit sur ces 2 propriétés pour savoir que Value est de type Variant et AsString est de type String

[od.dev]

Ok merci.

Donc quel peut être l'intérêt d'utiliser ".Value" ?

[Mihalis]

je l'utilise uniquement pour les dates

[aityahia]

si le Value est la c'est qu'il a certainement une utilité, moi j'utilise toujours le value, cela m'évite plusieurs peine de conversion de type.

[od.dev]

je l'utilise uniquement pour les dates

ben, ily aAsDateTime

si le Value est la c'est qu'il a certainement une utilité

cela ne nous dis pas laquelle.

[aliwassem]

alors

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  with QSelect do
        begin
                SQL.Clear;
                SQL.Add('SELECT Name,LogDate,LogTime FROM Thistory');
                SQL.Add('WHERE Name = :Name');// 1ere parametre
                SQL.Add('AND LogDate = :LogDate'); // 2eme parametere
                Parameters[0].Value := edit1.text;   // la variable Name
                Parameters[1].Value := DateToStr(Ldate); // la variable logDate
                ExecSQL;
                Open;
        end;

[od.dev]

Et :

Parameters[0].AsString := edit1.text; // la variable Name
Parameters[1].AsDate := DateToStr(Ldate); // la variable logDate

ça devrait marcher.

[od.dev]

Tiens, ben ton code ne marche même pas chez moi.
Il ne connaît pas Parameters.

De plus je le trouve bizarre, pourquoi tu fais un ExecSQL avant l'Open ?

[Cl@udius]

Tiens, ben ton code ne marche même pas chez moi.
Il ne connaît pas Parameters.

Cela dépend des compos que tu utilises. Cette syntaxe doit correspondre au compos ADO (sauf erreur).

De plus je le trouve bizarre, pourquoi tu fais un ExecSQL avant l'Open ?

Tu as parfaitement raison !! +1
Le ExecSQL est en trop. Seul le Open est nécessaire puisque c'est une requête SELECT.

@+ Claudius

[aliwassem]

Tiens, ben ton code ne marche même pas chez moi.
Il ne connaît pas Parameters.

De plus je le trouve bizarre, pourquoi tu fais un ExecSQL avant l'Open ?

alors le code travaille tres bien avec moi ADO compsant.

pour le ExecSQL je l'oublie mais ca marche normal avec ou sans.

[od.dev]

Ok, ceci explique cela.

Mais je maintiens qu'il vaut mieux, et de loin, utiliser .As... qu'utiliser des variants avec .Value.
Dans certains cas (rares ?), effectivement, je n'ai pu faire autrement que d'utiliser .Value, p.e. :

pour tester une valeur dont on ne sait pas si elle est Null :
"FieldByName('DateFact').AsDate <> Null" va évidemment planter si DateFact est Null,

j'ai donc dû faire :
"FieldByName('DateFact').Value <> Null" qui marche très bien.

Je dis tout cela en espérant que des experts me le confirment.
De plus quelqu'un pourrait-il confirmer ou infirmer que l'utilisation des variants pénalise lourdement une application, et, tant qu'à faire, pourquoi ?
(on peut toujours demander )

Merci d'avance.

[od.dev]

alors le code travaille tres bien avec moi ADO compsant.

pour le ExecSQL je l'oublie mais ca marche normal avec ou sans.

Ok, ceci explique cela.

Je maintiens qu'il vaut mieux, et de loin, utiliser .As... que de passer par les variants avec .Value.

Le seul cas rencontré où j'ai été obligé d'utiliser .Value, c'était pour tester une valeur à Null :

"FieldByName('DateFact').AsDate <> Null" plante si DateFact est Null.
"FieldByName('DateFact').Value <> Null" marche très bien dans tous les cas.

Je dis tout cela en espérant que des experts me disent si je suis à côté de mes pompes ou non.
J'aimerais qu'on me confirme que l'utilisation des variants pénalise lourdement une application, et pourquoi (on peut toujours demander ).

[aityahia]

Ok, ceci explique cela.

pour tester une valeur dont on ne sait pas si elle est Null :
"FieldByName('DateFact').AsDate <> Null" va évidemment planter si DateFact est Null,
Merci d'avance.

(Not FieldByName('DateFact').IsNull ) c'est encore mieux.

[od.dev]

Hé ben super, voilà qui ne me fait pas regrêter mon post.

Merci pour l'info aityahia, je n'y avais pas pensé, du coup je n'ai plus besoin des variants (pour l'instant).