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!