Buena Tarde para todos.
estoy tratando de hacer una pantalla para buscar, pero no se por que no me esta funcionando le voy a decir que estoy haciendo y como lo hago.
Estoy usando lo siguiente
- un RadioGroup1
un edit y un DBGrids
el RadioGroup, es para seleccionar por el tipo que quiero buscar, el Edit escribo el contenido del campo y el DBGrid es para que me baya mostranto a medida que baya digitando en el Edit me muestre los datos en el DBGrids.
esta es la rutina que uso, en el Evento OnChange del Edit.
Código:
procedure TFrm_Buscar.Edit1Change(Sender: TObject);
const
STRSQL = 'Select * From Informacion_Convenio';
begin
case RadioGroup1.ItemIndex of
1 : begin
qry_Buscar.Close;
if (Edit1.Text = '') then begin
Qry_Buscar.SQL.Text := STRSQL;
end
else begin
Qry_Buscar.SQL.Text := STRSQL +
' WHERE Descripcion_Organizacion LIKE ' +QuotedStr('%' +Edit1.Text+ '%')
end;
Qry_Buscar.Open;
end;
end;
end;
no se que estoy haciendo mal pero no me funciona, los campos son de texto y uso Accesse