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

**Didier100** · 14/12/2007, 12h25

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 :

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

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:

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":

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

**andreditdd** · 14/12/2007, 12h32

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

Code :

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

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;

**Didier100** · 17/12/2007, 09h32

Hola andreditdd, Merci pour ton aide.

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

Code :

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

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 :

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

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:

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 :

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

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

**aityahia** · 17/12/2007, 11h07

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

Code :

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

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;

**Cl@udius** · 17/12/2007, 11h07

Salut

Envoyé par Didier100

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

Code :

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

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

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

Code SQL :

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

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

@+ Claudius

**Didier100** · 17/12/2007, 16h53

Bonjour Cl@udius,

quand je remplace la partie du code concernant le temps
par

Code :

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

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

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

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 :

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

DOS_DATE_PHASE1>=01/10/2007

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

**Cl@udius** · 17/12/2007, 16h58

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

**Didier100** · 17/12/2007, 17h15

Bonjour Cl@udius

effectivement ce que aityahia ma proposé semble de bien fonctionner

Code :

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

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');