Discussion :

[gsmurf]

ma requete est celle ci :

Code :

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

1
2
3
SELECT *
FROM film
WHERE Durée <= #12/30/1899 1:25:0#;

je l'ai bien mis dans la propriete de mon TADOQuery la connexion ce fait correctement puisque j'arrive tout a fait a faire toutes mes autres requete !

pour cette requete il me dit :

Code :

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

Objet Parameter défini de manière incorrecte. Des informations incohérentes ou incomplètes ont été fournies.

J'ai tester cette requete directement sous ACCESS no pb mais des que je veux la faire executer par l'ADO problème !

je pense que ca vient du format de ma durée mais je ne sais pas comment passé !!! quelqu'un aurait-il la solution ???

Merci d'avance

[Merlin]

le plus simple avec les formats datetime c'est d'utiliser un paramètre et de le charger avant de faire la requête.

Code :

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

1
2
3
SELECT * 
FROM film 
WHERE Durée <= #12/30/1899 1:25:0#;

devient

Code :

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

1
2
3
SELECT * 
FROM film 
WHERE Durée <= :LADUREE;

et avant de faire ta requête :

Code :

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

MaRequete.ParamByName('LADUREE').AsDateTime := <la date et l'heure>;

[gsmurf]

merci Merlin mais j'ai po reussi j'ai du mal a comprendre ! en fait j'ai un objet qui genere ma requete dynamiquement et l'une de me methode est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure class_Requete.modifieDuree(duree, choixDeDuree: string);
var signe:string;
begin
  if choixDeDuree = 'au moins' then
    signe := '>=';
  if choixDeDuree = 'égal' then
    signe := '=';
  if choixDeDuree = 'au plus' then
    signe := '<=';
  fnPrincipale.RecherchePrecise.ParamByName('LADUREE').AsDateTime := '12/30/1899 '+duree+':0';
//  Self.duree := 'AND film.Durée '+signe+' #12/30/1899 '+duree+':0#'; // Ici ma 1er tentative desesperée
  Self.duree := 'AND film.Durée '+signe+' :LADUREE';
end;

et apres une autre methode envoi et fait executer la requete !!! mais lorsque j'ecris :

Code :

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

fnPrincipale.RecherchePrecise.ParamByName('LADUREE').AsDateTime := '12/30/1899 '+duree+':0';

il me dit erreur car il ne connait pas la methode ParamByName de l'objet RecherchePrecise [TADOQuery] !!!

Voilà peux tu me dire où j'ai loupé le coche ?

[Merlin]

Well..

Bon, quand tu génères ta requête, il faut aussi générer le paramètre..
DOnc après les signes (=, <= etc) tu dois mettre le param, par exemple UREE (les deux points sont importants et sont collés au nom).

Ensuite, tu dois dans la foulée donner la valeur, pour ça il faut bien entendu utiliser les params de l'objet de requête.
Avec un TQUery c'est ParamByName, avec un TADOQuery c'est parameters.ParamValue['LADUREE'] := now; (par exemple).
Vérifie par F1 le nom exact j'ai un petit doute, mais c'est comme ça qu'il faut faire.

[gsmurf]

Excusez moi du temps qui est passé pas eu le temps de me repenché dessus !
J'ai donc reussi à générré une requete qui ne fait pas planter l'application , :p mais elle ne fonctionne toujours pas, cad elle ne me renvoi aucun resultat alors je ne sais pas si c'est ma requete qui ne correspond pas a ma recherche ou ...
Donc ce code fonctionne ;o)

Code :

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

1
2
3
 
fnPrincipale.RecherchePrecise.Parameters.ParamValues['DUREE'] := duree;
qsdduree := 'AND Durée > :DUREE';

Mais si j'affiche la requete qui est executer j'ai :

Code :

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

...AND Durée > :DUREE ORDER BY ...

Y aurai t'il possibilité de voir la requete sous toute ca forme qui est envoyé à ma base Acces ?