Hola que necesito una urgente ayuda con esto estoy haciendo un programa propio, pero me surge un problema al abrir la conexion este es el codigo de la conexio que tengo :

Public db As New Connection
Public resultado As Result
Public Function conexion() As Boolean

'db.Close()
db.Type = "mysql"
db.host = "localhost"
db.Port = "3306"
db.Login = "root"
db.Name = "fames"
db.password = "1234"
db.Open()

Return True
Catch
message.error("Existe un error en la conexion")
Return False
End
Public Sub consulta(query As String)
resultado = db.EXEC(query)
End

esto lo tengo en un modulo llamado conexion el problema surge cuando quiero ingresar con el usuario y la contraseña me dice: Conexion is not opened aca dejo el codigo para validar el usuario y la contraseña

Public Sub Button1_Click()

Dim clave0 As String
Dim clave1 As String
Conexion.db.Exec("Selec *from usuario") <-------- el problema llega aqui: " aqui me señala el error antes mencionado"
clave0 = Conexion.reg["usuario"]
clave1 = Conexion.reg["password"]
If TextBox1 = clave0 And TextBox2 = clave1 Then
Message.Info("bienvenido al sistema ")
Me.Close()
FMain.Show
Else
Message.Error("usuario o Contraseña incorrecto")
Endif
End

espero su pronta respuesta Gracias!

"Conexion is not opened"
Parece que no has abierto la conexión....¿has abierto la conexion , antes de ejecutar el la función consulta() ?

Por algun lado antes de que se ejecute tu consulta, tienes que abrir la conexión,...,por ejemplo cuando cuando abres el programa, o en la propria función consulta:

Es que ese es el problema que la conexión no se abre para poder hacer la consulta en la base de datos.. y según lo que he investigado con solo las primeras 12 lineas del código ya la conexión debería abrirse..  yo creo que el problema es que no se abre por un tiempo determinado para poder hacer la consulta.. y eso es lo que no se hacer

En tu código declaras la función Conexion... pero no la ejecutas en ningún momento. ¿Cuándo la llamas?

Citar:

" y según lo que he investigado con solo las primeras 12 lineas del código ya la conexión debería abrirse.."

En esas lineas lo que estas definiendo que hace la función....

Citar:

... pero no la ejecutas en ningún momento. ¿Cuándo la llamas?

Una vez que la defines, tienes que llamarla, para que se ejecute


¿como se llama a la función?
En alguna parte de tu codigo, por ejemplo, cuando se abra la aplicación o se llame a una consulta, tiene que aparecer esta llamada a la función:

Citar:

conexion.conexion() 'abro la conexión....

Lo pongo asi, porque la tienes puesta en un módulo que has llamado conexion.

Citar:

 yo creo que el problema es que no se abre por un tiempo determinado para poder hacer la consulta..

No, ese no es tu problema.

hola que tal mira si te sirve aquí puse un ejemplo completo, este tema y tipo de fallos hay muchos en el foro para no hacer mas largo  aquí esta mi ejemplo espero te sirva

http://foro.gambas-es.org/viewtopic...ghlight=#p16151

cualquier duda comenta saludos.