F�rum consulta em uma dbgrid com sql #389454

27/10/2010

Tenho uma edit e uma dbgrid, gostaria de digitar o nome parcial na edit e ela me mostar os dados na dbgrid. O codigo que estou usando � este:

procedure TForm_Rel_Fornecedores.Edit1Change(Sender: TObject);
begin
  Form_Relatorio_Fornecedor.sqlquery1.Close;
  Form_Relatorio_Fornecedor.sqlquery1.SQL.Clear;
  Form_Relatorio_Fornecedor.sqlquery1.SQL.Add('Select * from fornecedor where fornecedor LIKE ''%'+edit1.Text+'%''');
  Form_Relatorio_Fornecedor.sqlquery1.Open;
end;

porem ele me mostra todos os dados (que ja sao listados ao abrir o formuario) e nao os dados da edit

Daniel

Curtir t�pico

+ 0

Responder

Posts

27/10/2010

Marcos Iwazaki

amigo verifique com aten��o o data source ligado a sua query em quest�o. e tbm se o datasource q esta ligado no dbgrid � o mesmo data source ligado na query.

Responder

Gostei + 0

27/10/2010

Fernando Vilhena

Amigo penso que sua solu��o abaixo deve sofrer algumas altera��es.

Tenho uma edit e uma dbgrid, gostaria de digitar o nome parcial na edit e ela me mostar os dados na dbgrid.
O codigo que estou usando � este:

procedure TForm_Rel_Fornecedores.Edit1Change(Sender: TObject);
begin
  Form_Relatorio_Fornecedor.sqlquery1.Close;
  Form_Relatorio_Fornecedor.sqlquery1.SQL.Clear;
  Form_Relatorio_Fornecedor.sqlquery1.SQL.Add('Select * from fornecedor where fornecedor LIKE ''%'+edit1.Text+'%''');
  Form_Relatorio_Fornecedor.sqlquery1.Open;
end;

porem ele me mostra todos os dados (que ja sao listados ao abrir o formuario) e nao os dados da edit

1�) Mova o c�digo acima para o evento onCreate do form.2�) Remova a cl�usula like com as informa��es do edit, ou seja o c�digo ficar� assim.

procedure TForm_Rel_Fornecedores.FormCreate(Sender: TObject);
begin
  sqlquery1.Close;
  sqlquery1.SQL.Text := 'Select * from fornecedor order by fornecedor';  sqlquery1.Open;end;

No evento Edit1Change coloque o seguinte c�digo:

procedure TForm_Rel_Fornecedores.Edit1Change(Sender: TObject);
begin    sqlquery1.Locate('fornecedor',edit1.Text, [loPartialKey, loCaseInsensitive]);end;

Bem acho que � isso que voc� deseja, espero ter ajudado.

Responder

Gostei + 0

28/10/2010

Daniel

amigo verifique com aten��o o data source ligado a sua query em quest�o. e tbm se o datasource q esta ligado no dbgrid � o mesmo data source ligado na query.

Sim sao os mesmos

Responder

Gostei + 0

28/10/2010

Daniel

Amigo penso que sua solu��o abaixo deve sofrer algumas altera��es.

Tenho uma edit e uma dbgrid, gostaria de digitar o nome parcial na edit e ela me mostar os dados na dbgrid.
O codigo que estou usando � este:

procedure TForm_Rel_Fornecedores.Edit1Change(Sender: TObject);
begin
  Form_Relatorio_Fornecedor.sqlquery1.Close;
  Form_Relatorio_Fornecedor.sqlquery1.SQL.Clear;
  Form_Relatorio_Fornecedor.sqlquery1.SQL.Add('Select * from fornecedor where fornecedor LIKE ''%'+edit1.Text+'%''');
  Form_Relatorio_Fornecedor.sqlquery1.Open;
end;

porem ele me mostra todos os dados (que ja sao listados ao abrir o formuario) e nao os dados da edit

1�) Mova o c�digo acima para o evento onCreate do form. 2�) Remova a cl�usula like com as informa��es do edit, ou seja o c�digo ficar� assim.

procedure TForm_Rel_Fornecedores.FormCreate(Sender: TObject);
begin
  sqlquery1.Close;
  sqlquery1.SQL.Text := 'Select * from fornecedor order by fornecedor';
  sqlquery1.Open;
end;

No evento Edit1Change coloque o seguinte c�digo:

procedure TForm_Rel_Fornecedores.Edit1Change(Sender: TObject);
begin
    sqlquery1.Locate('fornecedor',edit1.Text, [loPartialKey, loCaseInsensitive]);
end;

Bem acho que � isso que voc� deseja, espero ter ajudado.

Cara tentei desta forma e ele continua nao executando a pesquisa

Responder

Gostei + 0

28/10/2010

Wilson Junior

Voc� quer filtar os registros ou voc� quer se posicionar no registro?

Responder

Gostei + 0

28/10/2010

Wilson Junior

Desculpe pelo erro, *filtrar

Responder

Gostei + 0

28/10/2010

Marcelo Diniz

Link para download o exemplo abaixo usando base de dados Access.http://www.ligteltelecom.com.br/delphi/banco_grid.rar

procedure TForm1.edt1Change(Sender: TObject);begin    LocalizarRegistros(edt1.Text);end;
procedure TForm1.LocalizarRegistros(registro: string);begin   with qry1 do   begin         Close;         SQL.Clear;         SQL.Add('select * from marcas where marca like');         SQL.Add(QuotedStr('%' + edt1.Text + '%'));         Open;   end;end;
end.

Responder

Gostei + 0