Hola y buenas... Soy nuevo y espero poder expresarme como es debido... Tengo problemas con un dbgrid, el cual quiero hacer una consulta: tengo 3 RadioButton y un MaskEdit1. Todo conectado a la base de datos y funcionando... me muestra la consulta pero no como espero que le haga...
En el RadioButton1....
Código Delphi
[-]procedure TFrmModArt.BuscarCódigoExecute(Sender: TObject);
begin
TsPageControl1.ActivePage:=BUSCADOR;
if sRadioButton1.checked then
begin
ABSQProductos.Close;
ABSQProductos.SQL.Text := 'SELECT * FROM tbarticulos WHERE Codigo='+quotedStr(sMaskEdit1.text);
sStatusBar2.Panels[0].Text := 'BUSQUEDA POR CÓDIGO';
ABSQProductos.Open;
sStatusBar2.Panels[2].Text := 'CANTIDAD DE PRODUCTOS: '+ IntTostr(ABSQProductos.RecordCount);
end
else
begin
ABSQProductos.Close;
ABSQProductos.SQL.Text := 'SELECT * FROM tbarticulos=';
sStatusBar2.Panels[0].Text := 'TODOS LOS PRODUCTOS';
ABSQProductos.Open;
sStatusBar2.Panels[2].Text := 'CANTIDAD DE PRODUCTOS: '+ IntTostr(ABSQProductos.RecordCount);
end;
end;
y en el MaskEdit1.....
Código Delphi
[-]procedure TFrmModArt.sMaskEdit1Change(Sender: TObject);
begin
ABSQProductos.Close;
ABSQProductos.SQL.Clear;
ABSQProductos.SQL.Add('Select * ' + 'From tbarticulos WHERE Descripcion LIKE (' + QuotedStr('%' + sMaskEdit1.Text + '%') + ') ');
ABSQProductos.Open;
end;
Lo que esta haciendo es que tengo que apretar el RadioButton para que busque... y yo quiero que mientras escribo en el edit me lo valla ordenando, según en que RadioButton este...
Desde ya muchas gracias...