probleme aved Dbgrid relier a Access

Question

Salut voici le code de mon programme delphi.Je depute encore.Lorsque j apuie sur le bouton moyenne.Il me dit 'Field Distance not found'. Le probleme provient de la procedure TFormMain.BitBtn1Click. Tout le reste fonctionne.Mon programme est relie a une base de donne access.La connection est bien faite.J arrive a ajouter des records...Voici le code

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, Mask,
  Buttons;

type
  TFormMain = class(TForm)
    Button1: TButton;
    Button3: TButton;
    DBNavigator1: TDBNavigator;
    Button4: TButton;
    Label7: TLabel;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    ADOQuery1: TADOQuery;
    BitBtn1: TBitBtn;
    dbgrid1: TDBGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

{$R *.dfm}

procedure TFormMain.Button1Click(Sender: TObject);
begin
close
end;

procedure TFormMain.Button3Click(Sender: TObject);
begin
// sert a rien du tt...

  DBEdit1.Text := '';
  DBEdit2.Text := '';
  DBEdit3.Text := '';
  DBEdit4.Text := '';
  DBEdit5.Text := '';
  DBEdit6.Text := '';
end;

procedure TFormMain.Button4Click(Sender: TObject);
var heure,minute,seconde,temps : longint;
begin
  temps := StrToInt (DBEdit5.Text);
  heure := temps div 3600;
  minute := (temps mod 3600) div 60;
  seconde := (temps mod 3600) mod 60;
  Label7.Caption := 'Result : ' + IntToStr(heure) + ' h ' + IntToStr(minute)
  + ' min ' + IntToStr(seconde)+' s';

end;

procedure TFormMain.BitBtn1Click(Sender: TObject);
begin

dbgrid1.Columns.Clear;
dbgrid1.Columns.Add.FieldName:= 'Distance';
dbgrid1.Columns[0].Width:= 50;

adoquery1.SQL.Clear;
adoquery1.SQL.Add('select avg(Distance) from table1');
adoquery1.Open;

end;

end.

Wriggles · Answer

Salut à toi,

Dans ton code il ya un point qui me chagrine. Il vaut mieux d'abord ouvrir ton adoquery avant d'ajouter ta colonne.

Ton cahmp n''existe pas encore, au moment ou tu demandes l'ajout dans la DBGrid. La DBGrid ne pouvant trouver le champ "Distance", elle te lance le message d'erreur.

En plus, je ne suis pas sur que le champ en question se nomme "Distance" dans la mesure ou tu utilises une fonction aggrégat SQL, ton champ risque de s'appeler EXPR_1. Je te laisse vérifier.

Bonne prg à toi.

tjtoz92 · Answer

ton prog est completement faux! tu ne peux pas faire de traitement sur un dbgrid, tu ne peux que afficher des données provenant d'une base. DONC SUPPRIME déjà ces trois lignes: <> Ensuite tu peux mettre: datasource_adoquery1.dataset:=adoquery1; adoquery1.Close adoquery1.SQL.Clear; adoquery1.SQL.Add('select avg(Distance) from table1'); adoquery1.Open; dbgrid1.datasource:=datasource_adoquery1; Attention "distance" doit etre un champs de ta table1. Pour le reste je te laisse revoir ton code... :clown) BON COURAGE L'AMI!!! :clown) :clown)

rafraf6 · Answer

Salut,

Merci pr vos reponses. En fait je me demande si ds mon code je peux mettre le resultat de la requete select ds un label?
Comment mettre le resultat d un requetre ds un simple label?

Merci d avance

Wriggles · Answer

Salut, 

tu peux essayer :


Label.caption := MaRequête.FieldbyName('Monchamp').AsString;

rafraf6 · Answer

Salut,

Merci beaucoup. Ca marche a present avec le label.

Cordialement

Probleme aved Dbgrid relier a Access

5 réponses

Votre réponse

Discussions similaires