|
Página 1 de 1
|
Problemas Ingresar Registros En Una Base De Datos Tipo MySql Con Gambas2
Autor |
Mensaje |
GJhean
Usuario
Registrado: Octobre 2013
Mensajes: 3
Edad: 44 Ubicación:
|
Problemas Ingresar Registros En Una Base De Datos Tipo MySql Con Gambas2
Buen Dia
quisiera una ayuda referente a mi codigo de como ingresar un registro a mi base de datos este es mi codigo creo que mi problema esta en la sentencia SQl
PUBLIC SUB Button1_Click()
IF TextBox2.Text <> "" AND TextBox3.Text <> "" THEN
IF TextBox2.Text = TextBox3.Text THEN
Message.Info("Se puede Realizar el Registro")
ConectarBase()
TRY hConn.Exec("insert into Usuario values (&!)", TextBox2.Text)
ELSE
Message.Error("las Claves no Coinciden")
ENDIF
ELSE
Message.Error("No se Puede Dejar los Espacios en Blanco")
ENDIF
END
|
#1 Viernes, 25 Octobre 2013, 16:19 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Problemas Ingresar Registros En Una Base De Datos Tipo MySql Con Gambas2
TRY hConn.Exec("insert into Usuario values (&!)", TextBox2.Text)
ELSE
¿Es una admiración lo que has puesto después de &? Debe ser un 1
TRY hConn.Exec("insert into Usuario values (&1)", TextBox2.Text)
ELSE
Siempre y cuando tu tabla sólo tenga un campo, claro, y no tenga claves, claro, y la conexión esté bien hecha, claro. Si no das más detalles...
Suerte.
|
#2 Viernes, 25 Octobre 2013, 17:19 |
|
|
GJhean
Usuario
Registrado: Octobre 2013
Mensajes: 3
Edad: 44 Ubicación:
|
Re: Problemas Ingresar Registros En Una Base De Datos Tipo MySql Con Gambas2
tengo la Tabla Usuario
con los Campos Ususario que es la llave primaria de auto incremento y Password
la conexión la tengo porque al momento de ejecutar el programa me muestra los registros almacenados en la Base de datos y si era un error lo del ! debe ser el 1
lo corregì pero nada no me registra los datos en la tabla
TRY hConn.Exec("insert into Usuario values (&!)", TextBox2.Text)
ELSE
¿Es una admiración lo que has puesto después de &? Debe ser un 1
TRY hConn.Exec("insert into Usuario values (&1)", TextBox2.Text)
ELSE
Siempre y cuando tu tabla sólo tenga un campo, claro, y no tenga claves, claro, y la conexión esté bien hecha, claro. Si no das más detalles...
Suerte.
|
#3 Viernes, 25 Octobre 2013, 17:34 |
|
|
jousseph
jousseph germaine celis zambrano
Analista Programador
Registrado: Julio 2010
Mensajes: 434
Edad: 38 Ubicación: Tachira
|
Re: Problemas Ingresar Registros En Una Base De Datos Tipo MySql Con Gambas2
Citar: TRY hConn.Exec
Y como se llama tu modulo de conexion?, tienes modulo?
puede ser que necesites decir conexion.hconn.Exec("insert into Usuario values (&1!)", TextBox2.Text)
|
#4 Viernes, 25 Octobre 2013, 18:01 |
|
|
GJhean
Usuario
Registrado: Octobre 2013
Mensajes: 3
Edad: 44 Ubicación:
|
Re: Problemas Ingresar Registros En Una Base De Datos Tipo MySql Con Gambas2
muchas gracias Problema Solucionado
última edición por GJhean el Viernes, 25 Octobre 2013, 19:17; editado 1 vez
|
#5 Viernes, 25 Octobre 2013, 18:17 |
|
|
jousseph
jousseph germaine celis zambrano
Analista Programador
Registrado: Julio 2010
Mensajes: 434
Edad: 38 Ubicación: Tachira
|
Re: Problemas Ingresar Registros En Una Base De Datos Tipo MySql Con Gambas2
Oye mira yo registro asi:
Public Sub Form_Open()----------UNA FORMA OPEN PARA HACER ESTA FUNCION AL INICIO DEL FORMULARIO
TextBox1.SetFocus
If coneccion.conectarbase() ---------------------FIJATE AQUI BIEN MI MODULO SE LLAMA CONECCIO.CONECTARBASE, LUEGO LA USO ABAJO EN EL LLENADO
Endif
End
Public Sub Button1_Click()----------------------------BOTON DE LLENADO!
If TextBox2.Text = "" Then
MESSAGE.INFO("POR FAVOR COMPLETE EL CAMPO DE NOMBRE!")
Else
If TextBox3.Text = "" Then
MESSAGE.INFO("POR FAVOR COMPLETE EL CAMPO DE CONTRASEÑA!")
Else
If TextBox4.Text = "" Then
MESSAGE.INFO("POR FAVOR COMPLETE EL CAMPO DE MASCOTA!")
Else
Try coneccion.junincon.EXEC("insert into acceso values(&1,&2,&3,&4)",--FJATE BIEN QUE MI MODULO SE LLAMA CONECCION, QUE LUEGO queda coneccion.junincon!!.
TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)
If Error Then
Message.Error("NO SE PUDIERON GUARDAR LOS DATOS")
Else
Message.Info("SU REGISTRO SE HA AGREGADO EXITOSAMENTE, \n SI QUIERE VER LOS REGISTROS DE CLICK AL BOTON VER REGISTROS")
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox2.SetFocus
'Me.Close
ver_nombre_usuario.Close
registro_usuarios.Show
Endif
Endif
Endif
Endif
End
Analiza bien!
Citar: IF TextBox2.Text <> "" AND TextBox3.Text <> "" THEN
Esta parte de aqui no la entiendo <>"" como es eso? que sea menor o mayor a nada? mejor seria if TextBox2.Text ="" and TextBox3.Text ="" then
message.info("debe llenar los campos requeridos").
else
lo demas y finalizas con endif abajo a lo ultimo despues que cumplas todas las sentencias.
última edición por jousseph el Viernes, 25 Octobre 2013, 19:12; editado 2 veces
|
#6 Viernes, 25 Octobre 2013, 19:01 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Problemas Ingresar Registros En Una Base De Datos Tipo MySql Con Gambas2
De todas formas, esta forma de tratar la base de datos tiene un inconveniente que ahora os puede parecer más o menos insignificante, pero que es muy serio si aspiras a hacer algo más o menos profesional:
Estás atando tu programa al tipo, marca y, a veces, versión de la base de datos. Basta que tu cliente cambie de base de datos, basta que la Oracle haga una actualización extraña, para que tu programa necesite ser reescrito.
Es mucho mejor el aislar el código de la estructura de la base de datos. ¿Cómo? Utilizando los objetos de Gambas.
Te he adjunto un ejemplo que añade registros a una tabla de usuarios similar a la tuya. Para el ejemplo te crea una base sqlite en tu home y la utiliza, pero cambiando los parámetros del formulario, puedes utilizar tu base de datos MySQL sin tener que cambiar una sóla línea de código.
Espero que te sirva. Aunque la experiencia me dice que si lo que ahora has hecho te funciona, no lo vas a cambiar... pero bueno, ahí queda el consejo para quien quiera aceptarlo y el ejemplo para quien quiera mirarlo.
Descripción: |
|
Descargar |
Nombre del archivo: |
addtabla.tar.gz |
Tamaño: |
8.59 KB |
Descargado: |
53 veces |
Descripción: |
|
Descargar |
Nombre del archivo: |
addtabla.tar.gz |
Tamaño: |
8.59 KB |
Descargado: |
53 veces |
Descripción: |
|
Descargar |
Nombre del archivo: |
addtabla.tar.gz |
Tamaño: |
8.59 KB |
Descargado: |
53 veces |
|
#7 Viernes, 25 Octobre 2013, 20:15 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Problemas Ingresar Registros En Una Base De Datos Tipo MySql Con Gambas2
He hecho el ejemplo en Gambas2, que es lo que dices que usas, pero no creo que Gambas3 tenga ningún problema en convertirlo.
Saludos.
|
#8 Viernes, 25 Octobre 2013, 20:16 |
|
|
|
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
|
|
|
|
|