Ayuda busqueda de case usando radiogroup

[cristian22]

Empezado por Caminante

Hola

Me parece que primero completas el SQL de tu consulta y luego le haces open.

Código Delphi [-]
begin qProductos.close; 
qProductos.SQL.clear; 
qProductos.SQL.Text:='Select * from producto'; 
case radiog.ItemIndex of 
0: qProductos.SQL.ADD(' where estado=1') ;
1: qProductos.SQL.ADD(' where estado=0');
end;
qProductos.Open;

Saludos

si era al final el open. Me funciona escribo algo y lo filtra el problema ahora es que si intento colocar de nuevo esta linea

Código Delphi [-]
case radiog.ItemIndex of 
0: begin
qProductos.SQL.ADD(' where estado=1') ;
qProductos.SQL.ADD('where nombreproducto LIKE='+'%'+quotedstr(eProductos.text)+'%'); // esta linea
end;
end;

cuando escribo un producto lo busco me lo muestra sin problema. El problema viene cuando si estoy escribiendo un producto y borro una letra me tira error de sintaxy haciendo referencia a que el error se encuentra en

Código SQL [-]
('where nombreproducto LIKE='+'%'+quotedstr(eProductos.text)+'%')

[ecfisa]

Hola.

Estas mezclando peras con manzanas, lo último nada tiene que ver con el RadioGroup de la consulta inicial.

Lo que estas intentando ahora es una búsqueda incremental y normalmente se la realiza en el evento OnChange de un cuadro de edición, ejemplo:

Código Delphi [-]
procedure TForm1.eProductosChange(Sender: TObject);
begin
  qProducto.Close;
  qProducto.SQL.Text := 'SELECT * FROM PRODUCTO WHERE NOMBREPRODUCTO LIKE :NAME';
  qProducto.ParamByName('NAME').AsString := '%' + TEdit(Sender).Text + '%';
  qProducto.Open;
end;

Saludos

[cristian22]

Empezado por ecfisa

Hola.

Estas mezclando peras con manzanas, lo último nada tiene que ver con el RadioGroup de la consulta inicial.

Lo que estas intentando ahora es una búsqueda incremental y normalmente se la realiza en el evento OnChange de un cuadro de edición, ejemplo:

Código Delphi [-]
procedure TForm1.eProductosChange(Sender: TObject);
begin
  qProducto.Close;
  qProducto.SQL.Text := 'SELECT * FROM PRODUCTO WHERE NOMBREPRODUCTO LIKE :NAME';
  qProducto.ParamByName('NAME').AsString := '%' + TEdit(Sender).Text + '%';
  qProducto.Open;
end;

Saludos

yo este modelo de busqueda lo tenia antes y es la linea que puse cuando inicie el tema

Código Delphi [-]
qProductos.ParamByName('razon').AsString := '%' +eProductos.text+ '%'

pero esto solo me va trayendo las coincidencias lo que yo necesito es tambien que siga funcionando de la misma forma pero que tenga encuenta la opcion que esta marcada en el radiogroup y me valla filtrando dichos datos dependiendo de la opción que este marcada, es decir si yo tengo marcada la opcion "activado" y voy escribiendo ej:"fanta" me valla trayendo estos datos si esta con estado 1 osea activado y si marco "bajas" y al escribir lo mismo me muestre si existe dichos datos o no.No se si esto es posible o solo puede filtrarse la búsqueda al hacer clikear el boton
muchas gracias por tomarse el tiempo en ayudarme