Discussion :

[tchimou]

Bonjour à tous!
je suis entrain de chercher deux dates dans ma table , et j'utilise le Locate.
voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TMvtJourForm.SpeedButton3Click(Sender: TObject);
var resultat :variant;
begin
  resultat:=DM.tbHisto_inout.Locate('DATEDEB ; DATEFIN',VarArrayOf([DateJour1.Date,DateJour2.Date]),[]);
  if resultat then
  begin
    MessageDlg('        Cette date existe déjà !!!        ',
    mtInformation,[mbOk],0);
  end;
end;

DATEDEB et DATEFIN sont les champs de ma table tbHisto_inout;
DateJour1 et DateJour2 sont mes deux DateTimePicker qui permettent de choisir les dates;
il s'excute bien sans erreur , mais lorsque je clique sur ok dans mon programme, il m'affiche une erreur : la description des champs sont invalides.
Merci de m'aider.

[Frank]

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TfrmTest.SpeedButton1Click(Sender: TObject);
var resultat :variant;
begin
  resultat:=Dm.ADOTable1.Locate('dateA ; dateB',VarArrayOf([datetostr(dt1.Datetime),datetostr(dt2.Datetime)]),[]);
  if resultat then
  begin
    MessageDlg('        Cette date existe déjà !!!        ',
    mtInformation,[mbOk],0);
  end;
end;

Les champs datenA et dateB sont des string.

[Cl@udius]

Salut

Perso je pense plus à un problème avec le 1° paramètre du locate: les espaces sont en trop.

Code :

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

1
2
 
resultat:=DM.tbHisto_inout.Locate('DATEDEB;DATEFIN',VarArrayOf([DateJour1.Date,DateJour2.Date]),[]);

@+ Claudius

[franck SEFIC]

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
 
var
  LocateSuccess: Boolean;
  SearchOptions: TLocateOptions;
begin
  //rechercher par matricule
  if Rech1.Text<>''then
  begin
    with module_data.data.Agent do
    begin
      SearchOptions := [loPartialKey];
      LocateSuccess := Locate('code_agent', Rech1.text, SearchOptions);
    end;
    if not LocateSuccess then
       showmessage('Le matricule recherché n''existe pas.');
  end;

tu as ici un exemple de code avec locate. ce code recherche dans la table agent le matricule.

[Frank]

Salut

Perso je pense plus à un problème avec le 1° paramètre du locate: les espaces sont en trop.

Code :

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

1
2
 
resultat:=DM.tbHisto_inout.Locate('DATEDEB;DATEFIN',VarArrayOf([DateJour1.Date,DateJour2.Date]),[]);

@+ Claudius

Les espaces ne génèrent aucun problème chez moi.

[Cl@udius]

Les espaces ne génèrent aucun problème chez moi.

C'est exact j'ai parlé trop vite. J'ai également effectué un test et effectivement les espaces ne sont pas en cause.

Même si ceci me chagrine toujours:

il m'affiche une erreur : la description des champs sont invalides.

??

@+

[Rayek]

Composants utilisés ?
Base de données utilisée ?

[tchimou]

Merci pour vos reponses, j'utilise une base de données Access, j'utilise des DateTimePicker pour mes dates, et j'ai une table tbHisto_inout; je n'utilise pas ADO mais le BDE.
Merci

[tchimou]

voici l'erreur qui s'affiche :

[Rayek]

Si les champs dans la base de données ont bien ses noms là

Essaie comme çà

Code :

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

1
2
3
4
5
 
 resultat := DM.tbHisto_inout.Locate('DATEDEB;DATEFIN',
                                     VarArrayOf([FormatDateTime('#mm/dd/yyyy#',DateJour1.Date),
                                                 FormatDateTime('#mm/dd/yyyy#',DateJour2.Date)])
                                     ,[loCaseInsensitive]);

Je ne suis pas sûr à 100% que les # dans le format fonctionne, il faudrat peut être que tu les rajoutes après genre : '#' + formatDateTime + '#'

[tchimou]

Merci encore pour vos reponses;
Cl@udius a dit ceci:

Salut

Perso je pense plus à un problème avec le 1° paramètre du locate: les espaces sont en trop.

Code :

resultat:=DM.tbHisto_inout.Locate('DATEDEB;DATEFIN',VarArrayOf([DateJour1.Date,DateJour2.Date]),[]);

je suis revenu à mon code de depart , et j'ai supprimé les espaces, maintenant ça fonctionne très bien .
je ne sais pas, mais je pense qu'il avait raison , puisque j'ai juste supprimé les espaces pour que cela fonctionne.
De toutes les manières je vous remercie tous pour votre aide.