Como Realizar Una Rutina De Busqueda Para Un Textbox En Sqlite3


Objetivo: 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

Perfil MP  
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.

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.

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.

Objetivo: 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

Perfil MP  
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


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

Perfil MP  
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


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.

Perfil MP  

Página 1 de 1


  
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

   

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