Una imagen vale mas que mil palabras.
Quien Me Ayuda Con Esta Rutina De Busqueda Que No Muestra Los Campos.
Objetivo: Re: Quien Me Ayuda Con Esta Rutina De Busqueda Que No Muestra Los Campos.
Te faltaba poner en las propiedades del databrowser los campos en la propiedad columns.
Administracion_tienda.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | Administracion_tienda.tar.gz | |
Tamaño: | 11.24 KB | |
Descargado: | 70 veces |
Administracion_tienda.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | Administracion_tienda.tar.gz | |
Tamaño: | 11.24 KB | |
Descargado: | 70 veces |
Administracion_tienda.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | Administracion_tienda.tar.gz | |
Tamaño: | 11.24 KB | |
Descargado: | 70 veces |
Objetivo: Re: Quien Me Ayuda Con Esta Rutina De Busqueda Que No Muestra Los Campos.
ya puedo ver los datos de la tabla, pero ahora lo que no puedo hacer o no me funciona es la opción de búsqueda desde el Textbox. utilizando como filtro los apellidos.
Objetivo: Re: Quien Me Ayuda Con Esta Rutina De Busqueda Que No Muestra Los Campos.
última edición por pittusa el Martes, 17 Agosto 2010, 21:02; editado 2 veces
hresultado = Conexion.Exec("Select * from TablaEmpleados where Apellidos= '" & Upper(textbuscar.text) & "' ")
Data1.filter = " Apellidos= '" & Upper(textbuscar.text) & "'"
data1.Refresh
grid.Refresh
he puesto el Upper por que estan guardados en mayusculas, y si lo escribes en minusculas no lo encuentra.
para resolverlo puedes hacer esto:
hresultado = Conexion.Exec("Select * from TablaEmpleados where Apellidos= '" & Upper(textbuscar.text) & "' ")
Data1.filter = " Apellidos= '" & Upper(textbuscar.text) & "'"
data1.Refresh
grid.Refresh
IF hresultado.Available = FALSE THEN
hresultado = Conexion.Exec("Select * from TablaEmpleados where Apellidos= '" & textbuscar.text & "' ")
Data1.filter = " Apellidos= '" & textbuscar.text & "'"
data1.Refresh
grid.Refresh
ELSE
END IF
así encuentra en mayúsculas y en minúsculas.
supongo que habra otra manera de hacerlo pero yo no la se.
Data1.filter = " Apellidos= '" & Upper(textbuscar.text) & "'"
data1.Refresh
grid.Refresh
he puesto el Upper por que estan guardados en mayusculas, y si lo escribes en minusculas no lo encuentra.
para resolverlo puedes hacer esto:
hresultado = Conexion.Exec("Select * from TablaEmpleados where Apellidos= '" & Upper(textbuscar.text) & "' ")
Data1.filter = " Apellidos= '" & Upper(textbuscar.text) & "'"
data1.Refresh
grid.Refresh
IF hresultado.Available = FALSE THEN
hresultado = Conexion.Exec("Select * from TablaEmpleados where Apellidos= '" & textbuscar.text & "' ")
Data1.filter = " Apellidos= '" & textbuscar.text & "'"
data1.Refresh
grid.Refresh
ELSE
END IF
así encuentra en mayúsculas y en minúsculas.
supongo que habra otra manera de hacerlo pero yo no la se.
última edición por pittusa el Martes, 17 Agosto 2010, 21:02; editado 2 veces
Objetivo: Re: Quien Me Ayuda Con Esta Rutina De Busqueda Que No Muestra Los Campos.
Se me ha olvidado decirte que he modificado tu base de datos.
He creado un campo id como clave primaria (autonumerico) y e pasado el campo dni numeric.
Es bueno tener un campo que identifique cada registro, yo lo llamo siempre id.
Si tienes dudas deberías leer un poco sobre como crear bases de datos, creo que hay puede estar la clave.
He creado un campo id como clave primaria (autonumerico) y e pasado el campo dni numeric.
Es bueno tener un campo que identifique cada registro, yo lo llamo siempre id.
Si tienes dudas deberías leer un poco sobre como crear bases de datos, creo que hay puede estar la clave.
Objetivo: Re: Quien Me Ayuda Con Esta Rutina De Busqueda Que No Muestra Los Campos.
ya modifique la tabla y cree el campo id, pero aun en la busqueda no me sale nada.
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.3903s (PHP: -81% SQL: 181%)
Consultas SQL: 48 - Debug off - GZIP Activado