Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Como Realizar Una Rutina De Busqueda Para Un Textbox En Sqlite3
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Como Realizar Una Rutina De Busqueda Para Un Textbox En Sqlite3 
 
Hola amigos, quiero hacer una pequeña aplicación que me permita realizar una búsqueda de un dato ingresado a un textbox.

Me explico, tengo una base en sqlite3 y un tabla con los sig... campos. Cod_Empleado, DNI, Nombre y Apellidos, dirección entre otros.

Campo llave. Cod_empleado, auto-numerico.

Quiero que el usuario pueda digitar el numero de empleado que desee, y que cuando lo haga se muestren todos los datos del empleado el los textbox.

 dddd
 



 
JosueCR - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Realizar Una Rutina De Busqueda Para Un Textbox En Sqlite3 
 
Hola.

PUBLIC SUB Textbuscar_Change()

   valresult = Conexion.Exec("Select * from tutabla)
   Datasource.filter = " nombre= '" & Upper(textbuscar.text) & "'"
   Datasource.Refresh
  
  END

con esto buscas mientras escribes en el textbuscar.text (con el evento change) si coincide con un nombre del campo (nombre) de la base de datos
se refresca el datasource para ponerse en el registro encontrado.

luego solo tienes que asignar a los textbox correspondientes el resultado de la busqueda con algo como esto:

textdni.text = valresult["dni"]  
texttelefono.text  = valresult["telefono"]

también podrías hacerlo con datacontrol enlazados al datasource que se irán actualizando solos.
 



 
pittusa - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Realizar Una Rutina De Busqueda Para Un Textbox En Sqlite3 
 
Perdona!

para que no  te líes , en tu caso deberías cambiar el campo nombre por codigo.

  Datasource.filter = " codigo= '" & Upper(textbuscar.text) & "'"

espero te sirva.
 



 
pittusa - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Realizar Una Rutina De Busqueda Para Un Textbox En Sqlite3 
 
puedes quitar el Upper, eso busca el texto en mayusculas.

perdona otra vez por la caraja.
 



 
pittusa - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Realizar Una Rutina De Busqueda Para Un Textbox En Sqlite3 
 
PUBLIC SUB TXTDNI_LostFocus()
VarInfoTabla = VarConeccion.Exec("select * from TablaEmpleados")
DataSource.filter = "CampoDNI='" & (TXTDNI.Text) & "'"
DataSource.refresh
  TXTNombre.Text = VarInfoTabla["CampoNombre"]
END


Pero me sale el siguiente erro: 'DataSource.filter' is not static
 



 
JosueCR - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Realizar Una Rutina De Busqueda Para Un Textbox En Sqlite3 
 
bien no se si me podre explicar pero yo lo tengo asín y me funciona,
haces la funcion esta


PUBLIC FUNCTION BusqueEmpleados(Data AS Result)
 
 hResul = Data
  'en tu caso seria este
  TextBox2.Text = hResul["dni"]
  TextBox3.Text = hResul["nombre"]
  TextBox4.Text = hResul["Apellidos"]
  TextBox5.Text = hResul["telefono"]
  TextBox6.Text =hResul["Direccion"]
END

 


ya que tenemos la función echa ahora nos dirigimos al textbox del codigo y hay ponemos esto

public sub textbox1_lostFocus() ' por ejemplo

IF Textbox1.Text = ""   'si no hay texto pasa esto

TextBox2.text =""
textbox3.text =""
textbox4.text=""
TextBox5.text=""
textbox6.text =""

ELSE
    IF ConectarBaseDeDatos() THEN RETURN  ' y si no haces tu conexion  

hResul = hConn.Exec("select * from empleados where empeados=&1", TextBox1.text) ' aquí haces la búsqueda
hResul.MoveFirst

MoEmpleados.BusqueEmpleados(hResul) ' y lo que encuentres se te va para la función antes creada

END IF
 


espero que te sirva hasta con los pocos errores que puedas encontrar, pero a mi me sirve y me va bien
 



 
david - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Realizar Una Rutina De Busqueda Para Un Textbox En Sqlite3 
 
[quote user="david" post="4932"]bien no se si me podre explicar pero yo lo tengo asín y me funciona,
haces la funcion esta


PUBLIC FUNCTION BusqueEmpleados(Data AS Result)
 
 hResul = Data
  'en tu caso seria este
  TextBox2.Text = hResul["dni"]
  TextBox3.Text = hResul["nombre"]
  TextBox4.Text = hResul["Apellidos"]
  TextBox5.Text = hResul["telefono"]
  TextBox6.Text =hResul["Direccion"]
END

 


A donde hago esta funcion, porque a mi no me sirve. dice que hResult es un identificador desconocido.
 



 
JosueCR - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
10.00 10 10 1
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Quien Me Ayuda Con Esta Rutina De Busqueda... JosueCR General 5 Martes, 17 Agosto 2010, 22:18 Ver último mensaje
JosueCR
No hay nuevos mensajes Como Crear Rutina Para Supervisar Acciones... kexxya General 4 Lunes, 06 Junio 2011, 18:11 Ver último mensaje
Ronny
No hay nuevos mensajes Busqueda En Sqlite3 Guizans Bases de Datos 7 Martes, 11 Septiembre 2012, 22:00 Ver último mensaje
Guizans
No hay nuevos mensajes Rutina Para Limitar Nº Caracteres En Un T... frajanic Aplicaciones/Fragmentos de Código 3 Sabado, 23 May 2015, 00:29 Ver último mensaje
shordi
 

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
No puede descargar archivos
No puede publicar eventos en el calendario