Discussion :

[BuzzLeclaire]

Bonjour à tous,

Je réalise cette requete qui fonctionnait depuis hier, qui maintenant ne fonctionne plus et je n'ai rien changé dans la requete.

Code :

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

1
2
3
4
5
      ADOQueryCalendrier.SQL.Add('SELECT Sum(Calendrier.Width) AS SommeDeWidth ');
      ADOQueryCalendrier.SQL.Add('FROM Calendrier ');
      ADOQueryCalendrier.SQL.Add('Where Calendrier.ARow=:LigneaRow ');
      ADOQueryCalendrier.SQL.Add('And Calendrier.NumeroSemaine=:Semaine ');
      ADOQueryCalendrier.SQL.Add('And Calendrier.NumeroAnnee=:Annee ');

L'erreur se situe au niveau du Sum(....), D7 me retourne l'erreur plutot une exception :
"Project ....exe....... 'Access Violation.............. in module 'msjet40.Dll' read of ......"

Le délire c'est que depuis le début de mon projet cela marchais bien.

Une idée ?

[Linkin]

En pas à pas, ADOQueryCalendrier est-il à nil?

[BuzzLeclaire]

Voilà la function en entière

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
19
20
21
22
function TempsDisponible(xLigne, xSemaine, xAnnee: Integer): Boolean;
Begin
  result := true;
  Try
    with ModuleDeDonneeSecondaire do
    Begin
      ADOQueryCalendrier.SQL.Clear;
      ADOQueryCalendrier.SQL.Add('SELECT Sum(Calendrier.Width) AS SommeDeWidth ');
      ADOQueryCalendrier.SQL.Add('FROM Calendrier ');
      ADOQueryCalendrier.SQL.Add('Where Calendrier.ARow=:LigneaRow ');
      ADOQueryCalendrier.SQL.Add('And Calendrier.NumeroSemaine=:Semaine ');
      ADOQueryCalendrier.SQL.Add('And Calendrier.NumeroAnnee=:Annee ');
      ADOQueryCalendrier.Parameters.ParamByName('LigneaRow').Value := xLigne;
      ADOQueryCalendrier.Parameters.ParamByName('Semaine').Value := xSemaine;
      ADOQueryCalendrier.Parameters.ParamByName('Annee').Value := xAnnee;
      ADOQueryCalendrier.Open;
      if ADOQueryCalendrier.Fields.Fields[0].AsInteger = 660 then result := False;
    end;
  except
    ShowMessage('Vérification de disponibilité annulée.');
  end;
end;