Foros Club Delphi - Buena codigo para hacer una busqueda

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Buena codigo para hacer una busqueda (https://www.clubdelphi.com/foros/showthread.php?t=3604)

edwin1

12-09-2003 20:07:44

Buena codigo para hacer una busqueda

Hola!!!!!!
Estoy haciendo una pantalla de Busqueda, para buscar por un campo numerico y cuando ejecuto el Query, me dice que el numero documento no existe en el query...

//Estas son las instrucciones que hago

Qry_BusquedaRegistro.Active := False;
Qry_BusquedaRegistro.Parameters.ParamByName('Numero_Documento').Value := DBEdit1.Text;
Qry_BusquedaRegistro.Active := True;
if Qry_BusquedaRegistro.IsEmpty then
ShowMessage('El Numero de Registro No Existe');

cual es el codigo que tengo que usar para hacer la busqueda
mil graicasssss:confused:

Rudi	12-09-2003 20:26:08

Hola.

Prueba con preparar la consulta antes de asignarle el valor del parametro

Código:

Qry_BusquedaRegistro.Close;

Qry_BusquedaRegistro.Prepare;

Qry_BusquedaRegistro.ParamByName('Numero_Documento').Value := DBEdit1.Text;

Qry_BusquedaRegistro.Open;

if Qry_BusquedaRegistro.IsEmpty then

ShowMessage('El Numero de Registro No Existe');

otra seria

Código:

Qry_BusquedaRegistro.ParamByName('Numero_Documento').AsInteger := strtoint(DBEdit1.Text);

si esto no ayuda seria bueno que mostraras tu SQL a ver que puede pasar.

espero que te ayude.

Rudi	12-09-2003 20:35:00

hola de nuevo.

otra cosa que puedes usar, si lo que haces es verificar si esta o no esta es utilizar el locate

Código:

if Qry_BusquedaRegistro.Locate('Numero_Documento',DBEdit1.Text,[]) then

  ShowMessage('El Numero de Registro Existe')

Else ShowMessage('El Numero de Registro No Existe');

asi te evitas cerrar y abrir la consulta, si lo que necesitas es que te regrese los registros que coinciden con el numero de documento utiliza lo que haces en tu pregunta.

espero que te sirva.

La franja horaria es GMT +2. Ahora son las 16:09:58.