|
o sea que para que el edit busque no solamente un solo campo sino varias hago lo siguiente:
procedure TForm3.BitBtn1Click(Sender: TObject);
var
campo:String
carta:String
Valor:Currency
begin
Campo:='Carta_orden';//O cualquier otro campo
carta:='Casa_Comercial';
Valor:='Valor_orden';
// Muestra el diálogo de consultas
dlgBuscar.ShowModal;
if dlgBuscar.ModalResult = mrOK then begin
qryConsulta.Close;
qryConsulta.Sql.Text:='Select * from tabla where '+campo+' "" '+carta+' "" '+Valor+'=:busqueda';
qryConsulta.ParamByName('busqueda').AsString :=
dlgBuscar.BuscarEdt.Text+'%';
qryConsulta.Open;
end;
end;
es correcto? o que es lo que esta mal?? recuerda que quiero que busque varios campos de una tabla y no una sola como mostre en el codigo anterior.
gracias!!!!
|