Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Problemilla Con Un Buscador
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Problemilla Con Un Buscador 
 
E econtrado este codigo de un buscador de datos y lo adaptos a mi necesidades bueno todo bien, el busca a la perfeccion el problema es que cuando no encuentra manda un error de sistema, e probado con mucha maneras :s pero sigue dandome error :S es mas en el mismo codigo esta la parte donde hay error de data pero no sirve nunca se ejecuta la sentencia :s lo e tratado de acomodar pero no puedo y oz pido ayuda Salu2 a todos y que la pasen bien

El error que sale es: RESULT IS NOT AVAILABLE
PUBLIC SUB Button2_Click()

DIM i AS Integer
DIM found AS Boolean
rs.MoveFirst
found = FALSE
i = 1
WHILE 1 <= rs.Count
IF rs!Nombre_medicamento LIKE "*" & textbox1.Text & "*" THEN
found = TRUE
EXIT
END IF
rs.MoveNext
i = i + 1
WEND
IF found = TRUE THEN
updateFieldValue()
 ELSE
Message.Warning("Error en la data!!")
END IF
 


jeje se me olvidaba esto para que funcione el codigo jeje
PUBLIC SUB updateFieldValue()
textbox1.Text = rs!Nombre_medicamento
END




rs = cn.Exec("select * from Medicamentos")

END
[/code]
 



 
última edición por Fenriz07 el Sabado, 21 Agosto 2010, 00:19; editado 2 veces 
Fenriz07 - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problemilla Con Un Buscador 
 
No entiendo para qué tanta vuelta y revuelta. ¿No es más simple hacer la búsqueda en la consulta directamente
rs = cn.Exec("select * from Medicamentos where Nombre_medicamento LIKE '%" & textbox1.Text & "%'")
 


Con eso ya sabes si hay medicamentos de ese tipo, cuántos, etc. etc.
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problemilla Con Un Buscador 
 
voy revisando el post pero despues de tanto pensar use la logica y me salio jejeje

PUBLIC SUB Button2_Click()

DIM i AS Integer
DIM found AS Boolean
rs.MoveFirst
found = FALSE
i = 1
WHILE 1 <= rs.Count
IF rs!CI = TextBox1.Text THEN
found = TRUE
EXIT
END IF
rs.MoveNext
i = i + 1
WEND
IF found = TRUE THEN
updateFieldValue()
ELSE
Message.Warning("Error en la data!!")
END IF

END


Gracias hermano por el apoyo se le agradece
 



 
Fenriz07 - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Buscador De Imagenes De Google netking86 General 2 Martes, 04 Septiembre 2012, 21:09 Ver último mensaje
netking86
No hay nuevos mensajes Buscador De Imágenes En Bing netking86 Aplicaciones/Fragmentos de Código 4 Martes, 11 Septiembre 2012, 20:55 Ver último mensaje
jguardon
No hay nuevos mensajes Buscador De Archivos drjuano Aplicaciones/Fragmentos de Código 1 Miercoles, 24 Abril 2013, 08:57 Ver último mensaje
Shell
No hay nuevos mensajes Gridview Con Buscador Incluido mckaygerhard Controles/Librerías/Componentes 29 Viernes, 30 Junio 2017, 21:57 Ver último mensaje
mckaygerhard
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron