Mover Dados Para O Grid

[eroshands]

Estou com a seguinte duvida.

Não estou conseguindo transpor os dados para o Grid.

O programinha tem de fazer o seguinte.

Tem um combobox que esta pegando de uma tabela apenas um dado, chamado STATUS. Sendo assim, no evendo OnShow do Formulario coloquei.

begin

while not TB_Gra001.EOF do

begin

COmbobox1.items.add(TB_Gra001.fieldbyname('STATUS').asstring);

TB_Gra001.next;

end;

end;

Com isso ele vai colocar dentro do combobox todos os status da tabela GRa001.dbf

Seguinte, ao selecionar qualquer um dos status neste combobox, no grid, deverá aparecer a descrição e o arquivo relacionado ao item selecionado.

Sendo assim, no evendo onChang do combobox coloquei

qr_loc.Close;

qr_loc.Open;

With qr_loc do

QR_loc.SQL.Text := 'Select * from GRA001 '+'Where Status =:ComboBox1.Items';

if ComboBox1.Items = QR_LocSTATUS then

DBGrid1.Columns[0] := QR_Loc.fieldbyname'ARQUIVO';

DBGrid1.Columns[1] := QR_Loc.fieldbyname'DESCRI';

DBGrid1.Columns[2] := QR_Loc.fieldbyname'OBS';

end;

Sei que isso esta errado...Por isso, que pergunto. Como fazer?

Sem mais.

SDS

[Corposemalma]

Voce criou um parametro, mas não setou o valor dele..

Begin
qr_loc.Close;
qr_loc.Open;

QR_loc.SQL.Text := 'Select * from GRA001 Where Status = :parametro';

QR_loc.ParamByName('parametro').AsString := // aqui voce igual, não tenho certeza se ( ComboBox1.Items ) vai funcionar, o importante é que retorne o valor do campo selecionado no ComboBox

if ComboBox1.Items = QR_LocSTATUS then
DBGrid1.Columns[0] := QR_Loc.fieldbyname'ARQUIVO';
DBGrid1.Columns[1] := QR_Loc.fieldbyname'DESCRI';
DBGrid1.Columns[2] := QR_Loc.fieldbyname'OBS';
end;

[Corposemalma]

UP!

Voce tentou usar o procedimento que eu postei?