|
Página 1 de 1
|
Ayuda, Siempre Me Muestra El Mismo Campo, Modulo De Busqueda.
Autor |
Mensaje |
JosueCR
Usuario
Registrado: Agosto 2010
Mensajes: 29
Edad: 39
|
Ayuda, Siempre Me Muestra El Mismo Campo, Modulo De Busqueda.
PUBLIC SUB TXTDNI_LostFocus()
DIM query AS String
DIM resultado AS Result
IF (TXTDNI.Text = "") THEN
TXTDNI.SetFocus
TXTApellidos.Text = ""
TxtCodigoEmpleado.Text = ""
TXTDireccion.Text = ""
TXTDNI.Text = ""
TXTNombre.Text = ""
TXTTelefono.Text = ""
message.Info("Debe Introducir un Nº de Cédula")
ELSE
query = "select * from BDempleados where CampoDNI ='" & TXTDNI.Text & "'"
resultado = VarConeccion.Find("TablaEmpleados")
TXTNombre.Text = resultado["CampoNombre"]
TXTApellidos.Text = resultado["CampoApellidos"]
ENDIF
END
Después de realizar la búsqueda siempre me muestra el mismo campo sin importar el valor que yo ingrese.
|
#1 Domingo, 15 Agosto 2010, 20:13 |
|
|
pittusa
Técnico Programador
Registrado: Marzo 2010
Mensajes: 157
Edad: 53 Ubicación: Barcelona
|
Re: Ayuda, Siempre Me Muestra El Mismo Campo, Modulo De Busqueda.
última edición por pittusa el Domingo, 15 Agosto 2010, 20:56; editado 1 vez
|
#2 Domingo, 15 Agosto 2010, 20:54 |
|
|
JosueCR
Usuario
Registrado: Agosto 2010
Mensajes: 29
Edad: 39
|
Re: Ayuda, Siempre Me Muestra El Mismo Campo, Modulo De Busqueda.
E tratado de hacer lo mimos que tu, pero no me salen los datos, no se si habré cometido algún error o me falta algo.
Te muestro para que me ayudes por favor.
' gambas class file
PUBLIC conexion AS Connection
PUBLIC hresultado AS Result
PUBLIC SUB Form_Open()
conexion = NEW Connection
conexion.Host = "/home/josue/Escritorio/Administracion_tienda"
conexion.Type = "sqlite3"
conexion.Name = "BaseEmpleados"
TRY conexion.Open
'IF ERROR THEN
'Message.Error("Error al conectar a la base de datos.")
'conexion = NULL
'ENDIF
Datadni.Field = "DNI"
Datanombre.Field = "Nombre"
Dataapellidos.Field = "Apellidos"
Datadireccion.Field = "Direccion"
Datatelefono.Field = "Telefono"
DataCodigo.Field = "Codigo"
conexion.Exec("Select * from TablaEmpleados")
Data1.Refresh
END
última edición por JosueCR el Lunes, 16 Agosto 2010, 17:59; editado 1 vez
|
#3 Lunes, 16 Agosto 2010, 14:35 |
|
|
pittusa
Técnico Programador
Registrado: Marzo 2010
Mensajes: 157
Edad: 53 Ubicación: Barcelona
|
Re: Ayuda, Siempre Me Muestra El Mismo Campo, Modulo De Busqueda.
hola.
que versión de gambas usas? (es que veo que a tu databrowser le faltan botones)
No te da ningún tipo de error?
Conectas realmente con la base de datos?
Haber si no vas a tener datos en la base.
tienes la tabla puesta en la propiedad table del databrowser?
des comenta esas lineas para ver si conecta o no:
IF ERROR THEN
Message.Error("Error al conectar a la base de datos.")
conexion = NULL
ENDIF
la ruta es correcta? /home/josue/Escritorio/Administracion_tienda
por que no usas appliclation.paht
Si quieres pasarme tu proyecto, le echo un vistazo y te digo.
si no es así va a ser muy difícil que te pueda ayudar.
última edición por pittusa el Lunes, 16 Agosto 2010, 18:50; editado 2 veces
|
#4 Lunes, 16 Agosto 2010, 18:45 |
|
|
JosueCR
Usuario
Registrado: Agosto 2010
Mensajes: 29
Edad: 39
|
Re: Ayuda, Siempre Me Muestra El Mismo Campo, Modulo De Busqueda.
hola.
que versión de gambas usas? (es que veo que a tu databrowser le faltan botones)
Version 2.19
No te da ningún tipo de error?
Conectas realmente con la base de datos?
No ningun tipo, si concenta a la base
Haber si no vas a tener datos en la base.
Si hay datos en la base ya lo verifique.
No se como ni donde cambiar esta opcion.
Ya lo e probado con ellas o sin ellas, las comente solo para mostrarte aquí, pero con ellas activadas no me salta ningún error,
la ruta es correcta? /home/josue/Escritorio/Administracion_tienda
Si es correcta esta verificada, es mas la copie y la pegue desde donde la carpeta donde esta la base de datos.
por que no usas appliclation.paht
Que es eso?
Si quieres pasarme tu proyecto, le echo un vistazo y te digo.
si no es así va a ser muy difícil que te pueda ayudar.
Voy a empaquetar lo y te lo envió, espero una pronta respuesta. Gracias
|
#5 Lunes, 16 Agosto 2010, 22:38 |
|
|
JosueCR
Usuario
Registrado: Agosto 2010
Mensajes: 29
Edad: 39
|
Re: Ayuda, Siempre Me Muestra El Mismo Campo, Modulo De Busqueda.
|
#6 Lunes, 16 Agosto 2010, 22:43 |
|
|
JosueCR
Usuario
Registrado: Agosto 2010
Mensajes: 29
Edad: 39
|
Re: Ayuda, Siempre Me Muestra El Mismo Campo, Modulo De Busqueda.
Ya logre corregir el error y ahora si me muestra los datos de la tabla, pero ahora quiero hacer la búsqueda con el criterio de los "Apellidos" pero no logro hacer que me muestre nada.
Solo se pone en blanco, supongo que es por que la búsqueda no esta bien y no encuentra nada.
PUBLIC SUB Textbuscar_Change()
hresult = conexion.Exec("Select * from TablaEmpleados where Apellidos = '" & Textbuscar.Text & "'")
Data1.Filter = "Apellidos='" & textbuscar.text & "'"
Data1.Refresh
Grid.Refresh
TRY Datanombre.Value = hresult["Nombre"]
TRY Datadni.Value = hresult["DNI"]
TRY Datadireccion.Value = hresult["Direccion"]
TRY Datatelefono.Valuehresult["Telefono"]
END
|
#7 Martes, 17 Agosto 2010, 14:43 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado Usuarios registrados conectados: Ninguno
|
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
|
|
|
|
|