Discussion :

[lingli]

Je un problème d'ouvrir une requete ADOQuery

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
datedeb, datefin : TdateTime;
strRequete : String;
strRequete := 'SELECT CodeProjet, Datesaisie, Pourcentage'
 + ' From ParticiperProjet'
 + ' Where DateSaisie >= '+ QuoteChar +DateToStr(DateDeb)+ QuoteChar
 + ' And dateSaisie <=' +QuoteChar+DateToStr(DateFin) + QuoteChar;
ADOQuery.SQL.Clear;
 ADOQuery.SQL.Add(strRequete);
 ADOQuery.Connection := UDM.ADO_Connection;
 ADOQuery.Open;

Lorsque le programme execute la derniere ligne ADOQuery.Open,
j'ai le message 'Type de donnée incompatible dans l'expression du critère'
Comment filtre les dates dans une requete, ma base de données est crée avec MS Access

Qui peut m'aider rapidement, je suis bloqué
Lingli

[Cl@udius]

Salut,

Sous Access la date doit être présentée sous la forme #mm/dd/yyyy#.
Dans ton cas tu peux utiliser l'opérateur between pour préciser un intervalle de date:

Code :

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

1
2
3
4
5
6
 
ShortDateFormat := 'mm/dd/yyyy';
strRequete := 'SELECT CodeProjet, Datesaisie, Pourcentage ' +
 'From ParticiperProjet ' +
 'Where DateSaisie between #' + DateToStr(DateDeb) + 
 '# AND #' +DateToStr(DateFin) + '#';

Une petite remarque: Ta question aurait mieux trouvé sa place dans le forum Delphi et Bases de Données.

@+ et bon dev

[Arkal]

Tu peux aussi faire ... BETWEEN CONVERT(datetime, 'ta_date1', 120) AND CONVERT(datetime, 'ta_date2', 120) ...

[lingli]

Salut,

Sous Access la date doit être présentée sous la forme #mm/dd/yyyy#.
Dans ton cas tu peux utiliser l'opérateur between pour préciser un intervalle de date:

Code :

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

1
2
3
4
5
6
 
ShortDateFormat := 'mm/dd/yyyy';
strRequete := 'SELECT CodeProjet, Datesaisie, Pourcentage ' +
 'From ParticiperProjet ' +
 'Where DateSaisie between #' + DateToStr(DateDeb) + 
 '# AND #' +DateToStr(DateFin) + '#';

Une petite remarque: Ta question aurait mieux trouvé sa place dans le forum Delphi et Bases de Données.

@+ et bon dev

Salut,
Merci beaucoup pour ta réponse. mais j'ai essaye, par contre j'ai l'autre message erreur ' Erreur automation interne'. Veux-tu m'indiquer d'où il y a de problème, la configuration des options pour ADOQuery?
Merci d'avance
Lingli

[Cl@udius]

Salut,

Alors là je ne vois pas trop ! Je te propose donc de reposer cette question dans le forum Bases de données (où tu auras certainement plus de réponses) en précisant ta version de Delphi ainsi que celle d'Access que tu utilises.

Tu peux également demander un délestage de ce message.

@+

[Rayek]

Vérifie que les MDAC et le Jet Engine sont à jours sur ton poste.

Sur quel OS travailles tu ?

[lingli]

Vérifie que les MDAC et le Jet Engine sont à jours sur ton poste.

Sur quel OS travailles tu ?

Merci ta réponse. Mais comment vérifier MDAC et jet Engine.
Je travaille sur Windows XP avec Delphi 7 et Ms Access 2003.

[Rayek]

Merci ta réponse. Mais comment vérifier MDAC et jet Engine.
Je travaille sur Windows XP avec Delphi 7 et Ms Access 2003.

C'est bon pas besoin de vérifier, avec XP et Access 2003 tu es a jours normalement.

essaie ca

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
17
18
 
datedeb, datefin : TdateTime;
strRequete : String;
strRequete := 'SELECT CodeProjet, Datesaisie, Pourcentage'
 + ' From ParticiperProjet'
 + ' Where DateSaisie >= :PDDebut'
 + ' And dateSaisie <= :PDFin';
With AdoQuery do
begin
  Close;
  Connection := UDM.ADO_Connection;
  SQL.Clear;
  SQL.Add(strRequete);
  ParamCheck := True;
  Paramters.ParamByName('PDDebut').Value := DateDeb;
  Paramters.ParamByName('PDFin').Value := DateFin;
  Open;
end;

[lingli]

C'est bon pas besoin de vérifier, avec XP et Access 2003 tu es a jours normalement.

essaie ca

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
17
18
 
datedeb, datefin : TdateTime;
strRequete : String;
strRequete := 'SELECT CodeProjet, Datesaisie, Pourcentage'
 + ' From ParticiperProjet'
 + ' Where DateSaisie >= :PDDebut'
 + ' And dateSaisie <= :PDFin';
With AdoQuery do
begin
  Close;
  Connection := UDM.ADO_Connection;
  SQL.Clear;
  SQL.Add(strRequete);
  ParamCheck := True;
  Paramters.ParamByName('PDDebut').Value := DateDeb;
  Paramters.ParamByName('PDFin').Value := DateFin;
  Open;
end;

Merci pour votre réponse.
J'ai le même message d'erreur 'Erreur Automation interne'
Comment je doit faire? Help me!!!

[Rayek]

En pas à pas ca plante où ? sur le Open ?

[lingli]

En pas à pas ca plante où ? sur le Open ?

C'est sur OPEN

[Rayek]

Va sur le site de microsoft, et télécharge les MDAC et le jet engine (peut être par la mise à jour avec Office devrait normalement le faire)
Et installer le, car les composants ont peut être un problème autant mettre du propres.

[Arkal]

J'ai déjà eu cette erreur et j'ai jamais trouvé pourquoi ça le faisait, moi j'avais supprimer mes composants ADO et je les ai recréé et c'etait correcte..