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.
Como Realizar Una Rutina De Busqueda Para Un Textbox En Sqlite3
Objetivo: 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.
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.
Objetivo: 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.
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.
Objetivo: 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.
perdona otra vez por la caraja.
Objetivo: Re: Como Realizar Una Rutina De Busqueda Para Un Textbox En Sqlite3
Pero me sale el siguiente erro: 'DataSource.filter' is not static
PUBLIC SUB TXTDNI_LostFocus()
VarInfoTabla = VarConeccion.Exec("select * from TablaEmpleados")
DataSource.filter = "CampoDNI='" & (TXTDNI.Text) & "'"
DataSource.refresh
TXTNombre.Text = VarInfoTabla["CampoNombre"]
END
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
Objetivo: 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
ya que tenemos la función echa ahora nos dirigimos al textbox del codigo y hay ponemos esto
espero que te sirva hasta con los pocos errores que puedas encontrar, pero a mi me sirve y me va bien
haces la funcion esta
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
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
Objetivo: 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
A donde hago esta funcion, porque a mi no me sirve. dice que hResult es un identificador desconocido.
haces la funcion esta
A donde hago esta funcion, porque a mi no me sirve. dice que hResult es un identificador desconocido.
Página 1 de 1
No puede crear mensajesNo 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
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.1086s (PHP: -28% SQL: 128%)
Consultas SQL: 22 - Debug off - GZIP Activado