Hola.
Tengo el siguiente código.
Código Delphi
[-]if edit1.Text = '' then begin
MessageDlg('¡¡ Debe Introducir una Cadena a Buscar !!', mtInformation,
[mbOk], 0);
end else begin
case RadioGroup1.ItemIndex of
0: begin
buscar_nombre.Close;
buscar_nombre.ParamByName('nom').AsString := edit1.Text+'%';
buscar_nombre.Open;
end;
1: begin
buscar_apellidos.Close;
buscar_apellidos.ParamByName('ap').AsString := edit1.Text+'%';
buscar_apellidos.Open;
end;
2: begin
buscar_ciudad.Close;
buscar_ciudad.ParamByName('ciu').AsString := edit1.Text+'%';
buscar_ciudad.Open;
end;
3: begin
buscar_notas.Close;
buscar_notas.ParamByName('not').AsString := '%' + edit1.Text +'%';
buscar_notas.Open;
end;
end;end;
Al compilar no da níngun error, e incluso si realizo una búsqueda por Nombre, seleccionando el Item 0 del radiogroup funciona a la perfeccion. El problema que tengo es el siguiente:
- SI quiero volver a realizar una búsqueda introduciendo otro nombre en el edit no me funciona y seleccionando la opción 0 del radiogroup no se ejecuta.
- Cuando eligo cualquier otra opción del radiogroup da un error diciendo que el parametro
'nom' , que se pasa en la primera opción, no lo encuentra, cuando debería de estar actuando otro parametro según la opción que elijas.
¿Qué está mal?