Erro Na Hora De Verificar Usuario

[mestre fyoda]

Erro:

A first chance exception of type 'System.InvalidOperationException' occurred in MySql.Data.dll

An unhandled exception of type 'System.InvalidOperationException' occurred in MySql.Data.dll

Additional information: Connection must be valid and open

The thread 0xc00 has exited with code 0 (0x0).

The program '[2824] Sistema.vshost.exe: Managed' has exited with code -532459699 (0xe0434f4d).

Login.vb

Public Class Login

    Private Sub fechar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fechar.Click
        Close()
    End Sub

    Private Sub entrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles entrar.Click
        Dim Validar As MySql.Data.MySqlClient.MySqlDataReader = Validar_Funcionario(" Select * from login where Usu = '" & usuario.Text & " and Sen = '" & senha.Text & "' ")
        If Conexao_Mysql() Then
            If Validar.HasRows = True Then
                While Validar.Read
                    MessageBox.Show(Validar.Item(1).ToString)
                End While
            End If
        End If
        Validar.Close()
    End Sub
End Class

Modulo.vb

Module Modulo
    Public Conexao As MySql.Data.MySqlClient.MySqlConnection

    Function Conexao_Mysql() As Boolean

        Dim Conexao = New MySql.Data.MySqlClient.MySqlConnection("Server=localhost;Database=projeto;Uid=root;Pwd=janio1")
        Try
            Conexao.Open()
            Return True
        Catch erro As Exception
            MessageBox.Show("Ocorreu um erro ao inicializar a conexão: " & erro.ToString())
            Return False
        End Try

    End Function

    Function Validar_Funcionario(ByVal Query As String) As MySql.Data.MySqlClient.MySqlDataReader

        Dim Comando As New MySql.Data.MySqlClient.MySqlCommand(Query, Conexao)
        Return Comando.ExecuteReader()

    End Function

End Module

[Graymalkin]

Você está tentando usar a conexão antes de abrí-la:

1) Dim Validar As MySql.Data.MySqlClient.MySqlDataReader = Validar_Funcionario(" Select * from login where Usu = '" & usuario.Text & " and Sen = '" & senha.Text & "' ")

2) If Conexao_Mysql() Then

A função Validar_Funcionario() vai tentar usar a conexão que só vai ser aberta na segunda linha.

Abraços,

Graymalkin

[mestre fyoda]

malz ai, nem tinha reparado nisso !