Buscar

Consulta do delphi

Código

Procedure Tfrm_menu.Edit1Change(Sender: TObject);
var campo,inicio,fim:string;
begin
if radiobutton1.Checked then begin campo := 'cod'; inicio := '="'; fim := '"' end;
if radiobutton2.Checked then begin campo := 'produto'; inicio := 'like "%'; fim := '%"' end;
  with dm.qr_produtos do begin
    Close; SQL.Clear;
    SQL.Add('SELECT * FROM produtos WHERE '+CAMPO+' '+INICIO+''+edit1.Text+''+FIM+' ORDER BY '+campo);
    Open;
  end;
end

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 23/11/07
Por: Francisco Lima Silva
Visualizada: 4170 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009