requete SQL sous delphi

Version imprimable

08/06/2007, 11h59
oasis

requete SQL sous delphi
Bonjour tout le monde,

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

voila une portion de mon programme:
Code:

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.

Salut

Code:

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

08/06/2007, 13h45
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.
08/06/2007, 13h49
Cl@udius

Citation:

Envoyé par 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.

+ 1 Remarque judicieuse ! :D 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
08/06/2007, 14h02
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.
08/06/2007, 16h00
evarisnea

:salut:

Citation:

Envoyé par 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 ?

eh bien, il aurait suffit d'un petit :f1: sur ces 2 propriétés pour savoir que Value est de type Variant et AsString est de type String :mouarf:
08/06/2007, 16h19
od.dev

Ok merci.

Donc quel peut être l'intérêt d'utiliser ".Value" ? 8O
08/06/2007, 22h48
Mihalis

je l'utilise uniquement pour les dates
09/06/2007, 00h09
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.
09/06/2007, 17h24
od.dev

Citation:

Envoyé par Mihalis

je l'utilise uniquement pour les dates

ben, ily aAsDateTime

Citation:

Envoyé par aityahia

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

cela ne nous dis pas laquelle.

:salut:
alors

Code:

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;

10/06/2007, 10h32
od.dev

Et :

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

ça devrait marcher.
10/06/2007, 10h39
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 ?
10/06/2007, 11h10
Cl@udius

Citation:

Envoyé par od.dev

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).

Citation:

Envoyé par od.dev

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
10/06/2007, 11h21
aliwassem

Citation:

Envoyé par 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 ?

:salut:

alors le code travaille tres bien avec moi ADO compsant.

pour le ExecSQL je l'oublie mais ca marche normal avec ou sans.
10/06/2007, 11h42
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.
10/06/2007, 11h56
od.dev

Citation:

Envoyé par aliwassem

:salut:

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 :? ).
10/06/2007, 17h03
aityahia

Citation:

Envoyé par od.dev

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.
10/06/2007, 18h23
od.dev

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

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