Campo numérico
Como buscar un campo numérico de una tabla yo lo tengo
USE "G:\proyecto\registro.dbf"
LOCATE FOR THISFORM.Texto8.VALUE=n_registro
IF THISFORM.Texto8.VALUE=n_registro THEN
THISFORM.texto1.VALUE=n_registro
THISFORM.texto2.VALUE=placa
THISFORM.texto3.VALUE=comisaria
THISFORM.texto4.VALUE=fecha
THISFORM.texto5.VALUE=equipo
THISFORM.texto6.VALUE=servicio
THISFORM.texto7.VALUE=operativid
ELSE
MESSAGEBOX("No existe el registro proporcionado")
Endif
Pero cuando lo ejecuto me dice que hay incompatibilidad ccon el tipo operador con el tipo de operador en tonsea lo cambio a carácter y si lo busca pero cuando voy al ser un nuevo registro no funciona tiene que estar en la taba numérica
USE "G:\proyecto\registro.dbf"
LOCATE FOR THISFORM.Texto8.VALUE=n_registro
IF THISFORM.Texto8.VALUE=n_registro THEN
THISFORM.texto1.VALUE=n_registro
THISFORM.texto2.VALUE=placa
THISFORM.texto3.VALUE=comisaria
THISFORM.texto4.VALUE=fecha
THISFORM.texto5.VALUE=equipo
THISFORM.texto6.VALUE=servicio
THISFORM.texto7.VALUE=operativid
ELSE
MESSAGEBOX("No existe el registro proporcionado")
Endif
Pero cuando lo ejecuto me dice que hay incompatibilidad ccon el tipo operador con el tipo de operador en tonsea lo cambio a carácter y si lo busca pero cuando voy al ser un nuevo registro no funciona tiene que estar en la taba numérica
1 respuesta
Respuesta de ingesoft
1
Primero que nada explicame como es la estructura de tu tabla si el campo n_registro es numérico debes iniciar el valor del texbox en cero esto se hace en value para que los datos ingresados se tomen como números.
Segundo para buscar un registro por lo general se usan indices al crear la tabla te permite asiganar indices eso te ayuda para poder buscar de una forma mas rapida por ejemplo
sele registro
set orden to n_registro
seek thisform.texto8.value
if found()
thisform.texto1.value=............
............
else
Wait 'Error'
endif
Otra forma más profesional es crear un cursor y saber si te devolvió la consulta un registro.
selec * from registro where n_registro=thisformtext8.value into cursor tmp
if reccount('tmp')>0
thisform.texto2.value=tmp.campo
.....
else
Wait 'error'
Endif
De todas maneras te recomiendo este video para actualizarte un poco www.ingesoftsrl.com/downs
Segundo para buscar un registro por lo general se usan indices al crear la tabla te permite asiganar indices eso te ayuda para poder buscar de una forma mas rapida por ejemplo
sele registro
set orden to n_registro
seek thisform.texto8.value
if found()
thisform.texto1.value=............
............
else
Wait 'Error'
endif
Otra forma más profesional es crear un cursor y saber si te devolvió la consulta un registro.
selec * from registro where n_registro=thisformtext8.value into cursor tmp
if reccount('tmp')>0
thisform.texto2.value=tmp.campo
.....
else
Wait 'error'
Endif
De todas maneras te recomiendo este video para actualizarte un poco www.ingesoftsrl.com/downs
