Novato (Parametros de busqueda)

[[enecumene]]

tengo un boton que al presionar sale una ventana de busqueda, aqui os dejo el codigo:

Código Delphi [-]
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
  // Muestra el diálogo de consultas
  dlgBuscar.ShowModal;
  if dlgBuscar.ModalResult = mrOK then begin
      qryConsulta.Close;
      qryConsulta.ParamByName('Casa_Comercial').AsString :=
          dlgBuscar.BuscarEdt.Text+'%';
      qryConsulta.Open;
      if qryConsulta.EOF then
         ShowMessage('No se encontró!');
  end;
end;

yo quiero saber como puedo ampliar los parametros, o sea, que no busque solamente por casa_comercial, sino tambien orden_compra, carta_orden y asi sucesivamente, pero me gustaria que me presentara todos las coincidencias en una grilla aunque en un campo este repetido.

gracias!!!!

[vtdeleon]

Saludos

Pare hacer eso debes modificar la sentencia sql e indicarle por cual campo buscar.

Código Delphi [-]
procedure TForm3.BitBtn1Click(Sender: TObject);
var
  campo:String
begin
  Campo:='Carta_orde';//O cualquier otro campo
// Muestra el diálogo de consultas
dlgBuscar.ShowModal;
if dlgBuscar.ModalResult = mrOK then begin
qryConsulta.Close;
qryConsulta.Sql.Text:='Select * from tabla where '+campo+'=:busqueda';
qryConsulta.ParamByName('busqueda').AsString :=
dlgBuscar.BuscarEdt.Text+'%';
qryConsulta.Open;

Donde campo es una variable string que indica el campo que deseas buscar

[[enecumene]]

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!!!!

[[Lepe]]

Si vas a buscar por muchos parámetros, yo construiría varias funciones para no complicar mucho el código:

Código Delphi [-]

procedure SqlPrincipal;
begin

query1.Sql.Text := 'Select * from tabla WHERE '+ 
                          casa_comercial;
end;

function casa_comercial:string;
var tmp:string;
begin
 if editcasaComercial.text = EmptyStr then
    result := emptyStr ; // devolvemos una cadena vacia
 else
   result := ' casa_comercial = ' + quotedStr(editcasaComercial.text);

  tmp := orden_compra;
  if tmp <> emptystr then
    result := result + ' and ' + tmp;
 // concatenamos con AND, OR, o lo que haga falta las diferentes condiciones

 tmp := carta_orden;
  if tmp <> emptystr then
    result := result + ' and ' + tmp;
 // concatenamos con AND, OR, o lo que haga falta las diferentes condiciones
  
end;
    
end;

function orden_compra:
begin
  if editOrdenCompra.text = emptystr then
    result := emptystr
  else
    result := ' orden_compra = '+ quotedStr(editOrdencompra.Text);
end;


function carta_orden:
begin
  if editCartaOrden.text = emptystr then
    result := emptystr
  else
    result := ' carta_orden = '+ quotedStr(editCartaOrden.Text);
end;

Vamos el famoso "divide y vencerás". Cada función se encarga de una pequeña parte (cada condición) y despues devuelve el string con el SQL que corresponde con esa condición.

En este caso es mejor no usar parámetros (parambyname), los parámetros no aportará mejora alguna, porque de una ejecución a otra varía la SQL y con ello el número de parámetros.

Antes de hacer un Query1.Open, haz un Memo1.Lines.Add(query1.Sql.Text) para ver que toda la SQL está correcta, los apostrofes, las uniones con "and" y "or", los espacios en blanco, etc. Así no te mareas mucho

Saludos.

[vtdeleon]

Empezado por enecumene

...recuerda que quiero que busque varios campos de una tabla y no una sola como mostre en el codigo anterior.

Ah bueno, ya Lepe ha resuelto

enecumene, trata de usar las etiquetas [delphi] [/delphl] para los codigos, no ves la diferencia entre mi codigo y el tuyo