Discussion :

[adelcrb]

salam

je suis entrain de réaliser une application de statistique donc beaucoup de requête sql ... mon problème est avec le champ date j'utilise access et adoquery pour la connexion et mon champ et de type de donné Date/Heure format Date abrégé .
avant de poster j'ai chercher partout que ce soit sur le site ou ailleurs j'ai trouver quelque solution mais ça génère un message d'erreur a chaque fois :

Code :

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

1
2
3
4
5
6
7
8
9
with rebut do
  begin
    sql.Clear  ;
    sql.Add('SELECT tempsdefaults.Date1');
    sql.Add('FROM tempsdefaults');
    sql.Add('WHERE (tempsdefaults.Date1)='+QuotedStr(date1.Caption));
    Open;
    qt_NC.Caption := IntToStr(RecordCount);
  end;

c'est logique que ça marche pas puisque je cherche dans un champ date avec un string j'ai essayer ça aussi :

Code :

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

1
2
3
4
5
6
7
8
9
10
with rebut do
  begin
    sql.Clear  ;
    sql.Add('SELECT tempsdefaults.Date1');
    sql.Add('FROM tempsdefaults');
    sql.Add('WHERE (tempsdefaults.Date1)=:date');
    Parameters.CreateParameter('date', ftstring, pdInput, 0,  StrToDate(date1.Caption));
    Open;
    qt_NC.Caption := IntToStr(RecordCount);
  end;

et voila le message d’erreur : objet paramétrer définie de manière incorrect

j'ai essayer aussi :

Code :

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

1
2
3
4
5
6
7
8
9
10
with rebut do
  begin
    sql.Clear  ;
    sql.Add('SELECT tempsdefaults.Date1');
    sql.Add('FROM tempsdefaults');
    sql.Add('WHERE (tempsdefaults.Date1)=:date');
    Parameters.CreateParameter('date', ftDate, pdInput, 0,  (now));
    Open;
    qt_NC.Caption := IntToStr(RecordCount);
  end;

message d'erreur :

type de donner incompatible dans l’expression des critère

voila si quelqu'un a une solution je suis preneur et merci d'avance.

[Ph. B.]

Bonjour,
Avez vous essayé le type ftDateTime ?

Code :

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

Parameters.CreateParameter('date', ftDateTime, pdInput, 0, now);

Et utilisez la balise [ CODE ] (bouton #) plutôt que [ QUOTE ]...

[adelcrb]

Bonjour,
Avez vous essayé le type ftDateTime ?

Code :

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

Parameters.CreateParameter('date', ftDateTime, pdInput, 0, now);

Et utilisez la balise [ CODE ] (bouton #) plutôt que [ QUOTE ]...

oui ça génère la même erreur puisque mon format et date abrégé mais merci comme même.

[tourlourou]

Y a-t-il une fonction SQL intégrée à Access qui permette de convertir les dates stockées dans un autre format ?

Sinon, il ne reste qu'à formater la date souhaitée pour qu'elle soit au format attendu par la base...

Code :

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

FormatDateTime('mm/dd/yy', Now) + ' 11:59PM'; // par exemple

[Ph. B.]

Autre chose que je n'ai pas précisé lors de mon 1° message

N'utilisez pas CreateParameter comme vous le faites.
Après la saisie de la requête SQL, un paramètre est déjà ajouté dans la liste.
Un paramètre de trop est ajouté au tableau des paramètres.
Utilisez plutôt :

Code :

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

1
2
3
4
5
6
with Parameters.ParamByName('date') do
begin
  DataType := ftDateTime;
  Direction := pdInput;
  Value := StrToDate(date1.Caption);
end;

[Cl@udius]

Salut

Sinon, il ne reste qu'à formater la date souhaitée pour qu'elle soit au format attendu par la base...

Avec Access si l'on veut transmettre une date sous forme littérale, on peut utiliser ce format: #MM/DD/YYYY HH:NN:SS#.

Soit par exemple:

Code :

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

sql.Add('WHERE (tempsdefaults.Date1) = #' + FormatDateTime('mm/dd/yyyy hh:nn', Now) + '#');

Sinon +1 avec la méthode proposée par Ph.B ci-dessus.

@+ Claudius.

[liazidf]

salut,
changer date par xdate, en sql date est un mot réservé.

[tourlourou]

mon champ est de type de donnée Date/Heure format Date abrégé

d'où ma proposition (abrégé comment ?)

[adelcrb]

j'ai finalement réussi a résoudre le problème

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
with rebut do
  begin
    sql.Clear  ;
    sql.Add('SELECT tempsdefaults.Date1');
    sql.Add('FROM tempsdefaults');
    sql.Add('WHERE (((tempsdefaults.Date1)=:lll));');
    with Parameters.ParamByName('lll') do
begin
  DataType := ftDate;
  Direction := pdInput;
  Value := StrToDate(date1.Caption);
end;
    Open;
 
    qt_NC.Caption := IntToStr(RecordCount);
  end;

c'était dans la manière de créer le paramètre (Ph. B.)en plus j'ai changé date en III (liazidf) .
tourlourou ==> date abrégé ça veut dire #MM/DD/YYYY #et non #MM/DD/YYYY HH:NN:SS#

Cl@udius : merci pour l'information ça va beaucoup me servir puisque j'utilise sauvant access