Requête Champ Date en Delphi (déplacé)

Version imprimable

J'ai fouillé partout et je n'arrive pas
mon problème est d'envoyer une requête SQL en delphi (Embarcadero) avec une base access avec un champ date

du style
Code:

1 2 DM10.TabIndex.SQL.Add('Select * FROM Valeur Where DateValeur < '+DateToStr(Now)+' ORDER BY DateValeur Asc'); DM10.TabIndex.SQL.Add('Select * FROM Valeur Where DateValeur < 01/01/2015 ORDER BY DateValeur Asc');
rien ne fonctionne
juste une petite info pour m'indiquer comment passer cette date dans ma requête

Merci

06/03/2015, 07h25
SergioMaster

Bonjour,

Utilisez une requête paramétrée

Code:

DM10.TabIndex.SQL.Add('Select * FROM Valeur Where DateValeur < :ParamDate ORDER BY DateValeur Asc');

et passez la valeur du paramètre avant d'ouvrir la requête , selon le composant utilisé la syntaxe n'est pas toujours la même donc faites une recherche de la syntaxe en fonction.

et surtout postez au bon endroit, ;) je me permets de déplacer la discussion vers Delphi/Base de Données
06/03/2015, 08h48
Laurent G

1 pièce(s) jointe(s)
Déjà je te remercie et m'excuse pour cette erreur de forum

j'ai pas encore trouvé encore en ligne de commande donc j'ai été avec l'inspecteur d'objet sur mon composant ou j'ai ajouté un parametre
Datatype ftDateTime
Name ParamDate
Value 01/01/2015
Type Date

J'ai donc modifié ma requête en
Code:

1 2 DM10.TabIndex.SQL.Clear; DM10.TabIndex.SQL.Add('Select * FROM Valeur Where DateValeur < :ParamDate ORDER BY DateValeur Asc');
Lorsque je l’exécute il me retourne une erreur sur "Aucun Valeur Donnée pour un ou plusieurs des paramètres requis"

J'ai essaye dans le code de rajouter avant
Code:

1 2 Dt1:=StrToDate('01/01/2015'); DM10.TabIndex.Parameters.Items[0].Value:=Dt1;
J'ai une erreur Indice de List hors limite (0)

J'ai essaye de créer en dynamique un paramètre mais là je m'en sort pas dans les données
j'ai fait des recherches avec google

Code:

DM10.TabIndex.Parameters.CreateParameter('ParamDate',ftDatetime,pdInput);

le ftDateTime ne passe pas pourtant c'est ce qui est mis dans l'inspecteur d'objet

Un dernier petit coup de pouce ne serait pas de refus car je ne dois pas être top loin pour que ça marche
06/03/2015, 09h54
Papy214

Écrire la requête correctement suffit généralement à créer automatiquement le paramètre.

Code:

Query.SQL.Text = 'select champ from tabletruc where champmachin = :param';

Ensuite :

Code:

Query.ParamByName('param').asdatetime := Now;

Mais un peu plus de précisions aurait été bienvenu :

ADO ? DBE ? DBXpress ? autre ?

un petit complément: Si je ne me trompe pas, la plupart des SGCB comprennent n'importe quelle date écrite au format YYYYMMDD.
Par exemple, pour la requête donnée dans la question:

DM10.TabIndex.SQL.Add('Select * FROM Valeur Where DateValeur < '20150101' ORDER BY DateValeur Asc');

aurait des chances de fonctionner
06/03/2015, 10h23
Laurent G

Non j'ai bien écris la requête sauf quand j'ai copié le ':p' a été mis comme un smiley

Sinon en precision il s'agit d'un ADOQuery et le Query.ParamByName('param').asdatetime := Now; ne fonctionne pas
quand à l'autre solution
DM10.TabIndex.SQL.Add('Select * FROM Valeur Where DateValeur < '20150101' ORDER BY DateValeur Asc');
ça ne passe pas non plus

Merci quand même d'avoir bien voulu répondre, je pense ne pas en être loin mais débutant en SQL c'est pas évident
06/03/2015, 10h31
Papy214

Depuis le temps que ça fonctionne pour tout le monde, il y forcément une coquille au niveau du code.
Essayez uniquement par code (sans TADOQuery posé sur le Datamodule mais en le déclarant en variable dans une procédure) et postez le source ici pour qu'on puisse voir ce qui ne va pas.
06/03/2015, 10h33
SergioMaster
Citation:

Envoyé par Laurent G

Déjà je te remercie et m'excuse pour cette erreur de forum

y a pas de quoi
Comme le dit

Citation:

Envoyé par Papy214

ADO ? DBE ? DBXpress ? autre ?

m'aurais permis d'indiquer la syntaxe pour le paramètre par exemple, si la requête est crée en mode design
Code:

1 2 3 4 5 //BDE Query.ParamByName('nomparam').asDateTime:=Date; // ADOQuery ADoQuery.Params.ParamByName('nomparam').Value:=Date
cela suffit

Citation:

Envoyé par Papy214

Si je ne me trompe pas, la plupart des SGCB comprennent n'importe quelle date écrite au format YYYYMMDD.

Les SGCB peut être mais les SGBD ;) je ne pense pas (en tout cas Firebird t'enverrai balader avec une erreur de conversion)
06/03/2015, 10h44
Laurent G

Citation:

Envoyé par Papy214

Depuis le temps que ça fonctionne pour tout le monde, il y forcément une coquille au niveau du code.
Essayez uniquement par code (sans TADOQuery posé sur le Datamodule mais en le déclarant en variable dans une procédure) et postez le source ici pour qu'on puisse voir ce qui ne va pas.

Là désolé tu m'as perdu je ne suis pas assez compétent pour une création dans le code
je vais rechercher la création dans d'autre message puis je reviendrai en testant ce que tu m'as dit

un exemple tiré d'une application sur une base SQL Server

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
const
  Req = 'SELECT quantite FROM catalogue WHERE codebarre = :cb';
begin
  with TADOQuery.Create(Self) do
  begin
    Connection := ADOConnection1;
    SQL.Text   := Req;
    ParamCheck;
    Parameters.ParamByName('cb').Value := CodeBarres;
    Open;
    if not Eof then
      Result := Fields[0].AsInteger
    else
      Result := 0;
    Close;
    Free;
  end;

à adapter

06/03/2015, 11h20
Papy214

Citation:

Les SGCB peut être mais les SGBD je ne pense pas (en tout cas Firebird t'enverrai balader avec une erreur de conversion)

Merci pour la précision !
En tous cas, SQL Server l'accepte sans problème. Les autres, je ne sais pas, je pratique trop peu.
Je vais tester avec FB par curiosité :D

Voila ce que j'ai testé en Delphi 7
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Var ADOQuery : TADOQuery; DataSrc : TDataSource; Param, Param1 : TParameter; procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery := TADOQuery.Create(Self); ADOQuery.Connection:=ADOConnection1; ADOQuery.SQL.Add('Select * FROM Valeur Where DateValeur > :ParamDate1 and DateValeur < :ParamDate2 ORDER BY DateValeur Asc'); Param:=ADOQuery.Parameters.ParamByName('ParamDate1'); Param.DataType:=ftDateTime; Param.Value:=Now; Param1:=ADOQuery.Parameters.ParamByName('ParamDate2'); Param1.DataType:=ftDateTime; Param1.Value:=Now+50; ADOQUery.Prepared := True; Try ADOQuery.Open(); Except End; DataSrc := TDataSource.Create(Self); DataSrc.DataSet:=ADOQuery; DataSrc.Enabled:=True; DBGrid1.DataSource:=DataSRc end;
ça fonctionne, j'espére que ça fonctionne aussi sous embarcadero

Petite question :
- pour modifier le champ de recherche par rapport au date, dois t-on fermer et réouvrir la base en ayant modifier la valeur des paramètres ou y a t'il une autre commande

- qu'est ce qui est plus rapide passer par une requête SQL ou passer avec un filtered

Encore un grand merci pour toute votre aide qui m'a permis de mieux comprendre l'adoquery , sql et les paramétres

07/03/2015, 10h03
SergioMaster

Bonjour,

Citation:

Envoyé par Laurent G

Voila ce que j'ai testé en Delphi 7 ça fonctionne, j’espère que ça fonctionne aussi sous embarcadero

si par Embarcadero tu entends les versions Delphi D2010 et plus, oui y a pas de raison

Petite question :

Citation:

- pour modifier le champ de recherche par rapport au date, dois t-on fermer et réouvrir la base en ayant modifier la valeur des paramètres

la Base(ADOConnection )non, la Requête (ADOQuery) oui

Citation:

- qu'est ce qui est plus rapide passer par une requête SQL ou passer avec un filtered

vaste débat, je pense que pour Access (comme pour Paradox), contrairement aux SGBDR en Client/Serveur, le filtre est mieux
encore faut-il exprimer la date sous le bon format (puisque le filtre est une string), rien d'insurmontable il faut simplement exprimé la date sous le format US

Code:

filter:='DATE1 < '+FormatDateTime('mm/dd/yyyy',Date);
07/03/2015, 10h10
Papy214
Quelques remarques pour aider :
Code:

1 2 3 4 Param:=ADOQuery.Parameters.ParamByName('ParamDate1'); Param.DataType:=ftDateTime; Param.Value:=Now;
n'est pas utile.
D'abord, on peut utiliser directement ADOQuery.Parameters.ParamByName('ParamDate1').
Ensuite, utiliser ADOQuery.Parameters.ParamByName('ParamDate1').Value va forcer automatiquement le type en assignant une date.
Ça évite du code superflu.

Pour ajouter un nombre de jours à une date, même si le code utilisé ici est correct, il serait plus judicieux d'utiliser la fonction IncDay proposée par l'unité DateUtils.

Enfin, il faut éviter d'utiliser Try..Except sans prendre en compte l'erreur éventuellement déclenchée.
Si l'ouverture échoue, on essaiera quand même d'afficher des données sans même savoir que la requête n'a pas été effectuée.

Bon w-e de corrections !