DBText

Version imprimable

DBText

Bonjour,

Je fais appel a cette procedure à partir d'un bouton. Celle-ci m'indique "violation d'acces". pourquoi ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure CalculSolde;
var Calcul:real;
begin
    With DM.SoldeADOQuery do
      Begin
          Close;
          SQL.Clear; // Effacement de la requete
          SQL.Text:='select (sum(debit)-sum(remb)) As Calcul from Operations';
          Open;
          with Form1.DBTextSolde do
            begin
                If Calcul<0 then Font.Color:=clred
                else Font.Color:=clblack;
                DataField:='calcul';
            end;
      end;
end;

20/04/2006, 00h02
Merlin

il faudrait savoir sur quelle ligne tu as l'erreur ...
mais c'est que tu fais appel à un objet inexistant, dans ton code et sans autre précision c'est soit DM, soit form1
20/04/2006, 09h25
Rayek

Est ce que ton DbText est relié à un datasource et ce dernier est il relier à la requete SoldeADOQuery ?

- Mon DbText est bien relié à un datasource et ce dernier est bien relié au SoldeADOQuery.

- Voila mon code actuel en version light :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
procedure FormCreate(Sender: TObject);
procedure CalculSolde;
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
 
var
Form1: TForm1;
 
implementation
 
uses Data_Module;
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
      ...
     CalculSolde;
end;
 
procedure TForm1.CalculSolde;
var Calcul:real;
begin
    With DM.SoldeADOQuery do
      Begin
          Close;
          SQL.Clear; // Effacement de la requete
          SQL.Text:='select (sum(debit)-sum(remb)) As Calcul from Operations';
          Open;
          with Form1.DBTextSolde do
            begin
                If Calcul<0 then Font.Color:=clred
                else Font.Color:=clblack;
                DataField:='calcul';
            end;
      end;
end;

Et j'ai le message d'erreur des la 1° ligne : With DM.SoldeADOQuery do

20/04/2006, 12h34
Cl@udius

Salut,

Vérifie que ton DataModule est bien créé avant ta fiche ! (Projet | Options). C'est doit être ca !

@+
20/04/2006, 12h40
yanba
Oups, je recommence ...

Claudius40 : En plus je le savais ...
J'ai rajouté ceci :
Code:

1 2 3 4 5 6 7 procedure TForm1.FormCreate(Sender: TObject); begin DM:=TDM.Create(Application); ... CalculSolde; end;
Cette fois-ci, j'ai le message d'rreur suivant :
"Champs calcul non trouvé" au niveau de "DataField:='Calcul';"

Meme lorsque je la declare en double, ca marche pas. Je suis entrain de faire n'importe quoi ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var Calcul:double;
begin
    With DM.SoldeADOQuery do
      Begin
          Close;
          SQL.Clear;
          SQL.Text:='select (sum(debit)-sum(remb)) As Calcul from Operations';
          Open;
          Calcul:=FieldByName('Calcul').AsFloat;
          with DBTextSolde do
            begin
                If Calcul<0 then Font.Color:=clred else Font.Color:=clblack;
                DataField:='Calcul';
            end;
      end;

20/04/2006, 13h00
Cl@udius

Re,

J'ai l'impression que tu te compliques la tâche.
A la conception lie ton DBText 'DBTextCalcul' à ton Champ 'Calcul', et supprime la ligne 'DataField := 'Calcul';' de ta procédure !

@+

Un peu plus de précision...

Le code pourrait être celui-ci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure CalculSolde;
var
  Calcul:Currency;
begin
    With DM.SoldeADOQuery do
      Begin
          Close;
          SQL.Clear; // Effacement de la requete
          SQL.Text:='select (sum(debit)-sum(remb)) As Calcul from Operations';
          Open;
          with Form1.DBTextSolde do
            If Calcul<0 then
              Font.Color:=clred
            else
              Font.Color:=clblack;
          end;
      end;
end;

20/04/2006, 14h16
yanba

Cette fois, j'ai pas de message d'erreur, mais je n'ai aucun resultat qui s'affiche.
Quand je fais f7, j'ai : calcul=4.12232e+12
20/04/2006, 14h20
Cl@udius

Je ne comprends pas, ton TDBText est bien lié au champ Calcul de ta requête ?
20/04/2006, 14h41
yanba

J'ai ceci :
- Unit Data_Module avec un adoconnection relié avec un dataset relié avec une adotable + un adoquery.
- Unit Menu avec un dbgrid qui est relié avec mon datasource - Ok
et un DBText relié avec datasource et datafield=calcul (comme tu l'as dit).

Aurai-je oublier quelque chose ?
20/04/2006, 14h46
Cl@udius

Ben a priori je dirais que tu n'as rien oublié !

Pour faire un test, ajoute le champ calcul dans ton DBGrid (si c'est bien ta requête qui y est relié) afin de vérifier si il affiche les résultats.

@+
20/04/2006, 15h46
Rayek

Ton SoldeAdQuery est il bien relié à l'adoconnection ?

J'ai rien compris. J'ai tout recommencé, tout refait. A mon avis, j'ai refait pareil, mais là ca marche.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.CalculSolde;
var Calcul:Currency;
begin
    With DM.SoldeADOQuery do
      Begin
          Close;
          SQL.Clear;
          SQL.Text:='select (sum(debit)-sum(remb)) As Calcul from Operations';
          Open;
          with Form1.DBTextSolde do
            Begin
                If Calcul<0 then Font.Color:=clred else Font.Color:=clgreen;
                DataSource:=DM.DSSolde;
                DataField := 'Calcul';
            end;
      end;
end;

Sauf qu'il ne respecte pas ma condition de couleur ... Ma couleur est toujours vert. Vais-je y arriver un jour ????????

Il faudrait peut etre que tu la récupères cette valeur calcul ^^

Code:

1
2
3
4
5
6
7
8
 
with Form1.DBTextSolde do
Begin                
  Calcul := FieldByName('Calcul').asfloat;
  If Calcul<0 then Font.Color:=clred else Font.Color:=clgreen;            
  DataSource:=DM.DSSolde;                
  DataField := 'Calcul';           
end;

20/04/2006, 16h57
yanba

En relisant tous mes messages, je venais juste de me rendre compte de mon oubli.
A force de lire et relire, je ne voyais plus rien.

Merci.