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 ?