[fito42]

Tengo una query realizada y enlazada todo con una base de datos y enlazada a un grid...Pues bien,lo que quiero es hacer un boton que al pulsar me haga la consulta y me la muestre en el grid.

Por ultimo tengo un boton que se llama ,Actualizar o refrescar que al pulsarlo quiero que o me vacie el grid o me lo deje como estaba en un principio...

Les paso el codigo y espero que puedan ayudarme...


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, ExtCtrls, Db, DBTables, StdCtrls, DBCtrls, Buttons;

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
SISCONIB: TDatabase;
Table1: TTable;
DSSISEST: TDataSource;
Panel1: TPanel;
DBGrid1: TDBGrid;
Panel2: TPanel;
DBNavigator1: TDBNavigator;
Query1: TQuery;
DataSource1: TDataSource;
consulta: TBitBtn;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure consultaClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.consultaClick(Sender: TObject);
begin
Query1.close;
Query1.open;

// Asociar datasource
DBGrid1.

// Refrescar grid


end;

end.

Mi principal probema es no saber decirle al boton que al ejecutar la consulta debe rellenar el DBgrid1 con los datos del DataSource1....No se como enlazarlo...

Busque y busque pero nada...llevo ya dos dias con esto dandome cabezazos espero puedan ayudarme...

Un saludo y muchas gracias por anticipado-