Requête SQL via les composants ADO sur une Table Access 97

Windows XP-SP2 / Delphi 7 Enterprise / Access 97

J'ai écrit un petit programme qui utilise une requette SQL via les composants ADO de Derlphi 7 sur une table d'une base de données MS Access 97

Extrait du code utilisé:

Code:

---

1 2	AdoQuery1.SQL.Text := 'SELECT DOS_ID, DOS_EMPR_NOM, DOS_EMPR_PRENOM, DOS_DATE_PHASE1 From Dossier WHERE ((DOS_DATE_PHASE1)=#12/01/2007 11:03#) order by DOS_ID'; AdoQuery1.Open;

---

La requette SQL genère une erreur disant:

Citation:

---

Le projet PerfeoStatManager.exe a provoqué une classe d'exception EOLeException avec le message 'Objet Parameter défini de manière incorrecte. Des informations incohérentes ou incomplètes ont été fournies', Processus stoppé. Utilisez Pas-à-pas ou Ecécuter pour continuer.

---

Ce qui me pose un problème est la partie de "temps":

Citation:

---

((DOS_DATE_PHASE1)=#12/01/2007 11:03#)

---

Et voici ma question:
Comment doit je formuler la requette pour le temps?

Complement d'information:
Quand j'ouvre la table sous Access en mode Création je trouve les informations suivantes:

DOS_DATE_PHASE1: Date/Heure
Format: Date, abrégé



Merci d'avance pour votre aide.;)

Bonjour,
je ne suis pas trop calé mais as tu essayé ceci:

Code:

---

1 2 3

AdoQuery1.SQL.Add('SELECT DOS_ID, DOS_EMPR_NOM, DOS_EMPR_PRENOM, DOS_DATE_PHASE1 From Dossier WHERE ((DOS_DATE_PHASE1)=#12/01/2007 11:03#) order by DOS_ID'); AdoQuery1.Open;

---

Hola andreditdd, Merci pour ton aide.;)

Quand j'execute la commande suivante je ne reçoit pas d'erreur:

Code:

---

1 2	AdoQuery1.SQL.Add('SELECT DOS_ID, DOS_EMPR_NOM, DOS_EMPR_PRENOM, DOS_DATE_PHASE1 From Dossier order by DOS_ID');

---

puis quand j'execute cette commande:

Code:

---

AdoQuery1.SQL.Add('SELECT DOS_ID, DOS_EMPR_NOM, DOS_EMPR_PRENOM, DOS_DATE_PHASE1 From Dossier WHERE ((DOS_DATE_PHASE1.date)=#12/01/2007 11:03#) order by DOS_ID');

---

je reçoit un message d'erreur disant:

Citation:

---

Le projet PerfeoStatManager.exe a provoqué une classe d'exception EOLeException avec le message 'Objet Parameter défini de manière incorrecte. Des informations incohérentes ou incomplètes ont été fournies', Processus stoppé. Utilisez Pas-à-pas ou Ecécuter pour continuer.

---

Je conclus donc que l'erreur vient de ce petit bout de code:

Code:

---

((DOS_DATE_PHASE1.date)=#12/01/2007 11:03#)

---

La question suivante reste d'actualité:
Comment doit je formuler la requette pour le temps?

Merci d'avance pour votre aide.

:salut:
essai plutôt avec un paramètre sa vous évite toute peine

Code:

---

1 2	AdoQuery1.SQL.Add('SELECT DOS_ID, DOS_EMPR_NOM, DOS_EMPR_PRENOM, DOS_DATE_PHASE1 From Dossier WHERE (DOS_DATE_PHASE1= :MyDate) order by DOS_ID'); AdoQuery1.Parameters.ParamByName('MyDate').Value := UneValeureTDateTime;

---

Salut

Citation:

---

Envoyé par Didier100

Je conclus donc que l'erreur vient de ce petit bout de code:

Code:

---

((DOS_DATE_PHASE1.date)=#12/01/2007 11:03#)

---

---

Pourquoi ajouté .date au champ ?
Plutôt comme ceci:

Code:

---

DOS_DATE_PHASE1=#12/01/2007 11:03#

---

@+ Claudius

Bonjour Cl@udius,

quand je remplace la partie du code concernant le temps
par

Code:

---

DOS_DATE_PHASE1=#12/01/2007 11:03#

---

Je reçois toujours le même message d'erreur disant

Citation:

---

Le projet PerfeoStatManager.exe a provoqué une classe d'exception EOLeException avec le message 'Objet Parameter défini de manière incorrecte. Des informations incohérentes ou incomplètes ont été fournies', Processus stoppé. Utilisez Pas-à-pas ou Ecécuter pour continuer.

---

Par contre la requette suivante passe bien mais ne fournit pas de résultat

Code:

---

DOS_DATE_PHASE1>=01/10/2007

---

Il reste encore un problème de formatage de la date ...?

As-tu essayé de passer par une requête paramétrée comme la suggéré aityahia ?

Bonjour Cl@udius

effectivement ce que aityahia ma proposé semble de bien fonctionner

Code:

---

1 2	AdoQuery1.SQL.Add('SELECT DOS_ID, DOS_EMPR_NOM, DOS_EMPR_PRENOM, DOS_DATE_PHASE1 From Dossier WHERE (DOS_DATE_PHASE1 >= :MyDate) order by DOS_ID'); AdoQuery1.Parameters.ParamByName('MyDate').Value := StrToDate('15/11/2007');

---

Je doit débocher .... et vais continuer mes tests Mercredi matin le 19.12.2007 ....

Il me semble que nous sommes sur la bonne piste:yaisse2:

MERCI aityahia

A Mercredi ....

Bon j'ai vérifié le bon fonctionnement du code.

Ca marche "Nickel":king:

Merci a tous pour votre aide.

Le problème est résolu!

Citation:

---

Envoyé par Didier100

Bon j'ai vérifié le bon fonctionnement du code.

Ca marche "Nickel":king:

Merci a tous pour votre aide.

Le problème est résolu!

---

Pense alors à cliquer sur le bouton :resolu: ^^