Соединение должно быть действительным и открытым VB.Net

Question

Я хочу подключить свой MySQL к моему VB.net. Я пользуюсь только формой входа в систему. Я дал код, но код дает мне сообщение об ошибке: Connection must be valid and open

Это мой код:

Imports MySql.Data.MySqlClient 
Public Class Login 
    Dim MysqlConn As MySqlConnection 
    Dim Command As MySqlCommand 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     MysqlConn = New MySqlConnection 
     MysqlConn.ConnectionString ="server=db4free.net;port=3306;userid=exd****;password=****;database=exd****" 
     Dim Reader As MySqlDataReader 

    Try 
     MysqlConn.Open() 
     Dim Query As String 
     Query = "select * from member where Username='" & UsernameTxt.Text & "' and Password='" & PasswordTxt.Text & "' " 
     Command = New MySqlCommand 
     Reader = Command.ExecuteReader 
     Dim count As Integer 
     count = 0 

     While Reader.Read 
      count = count + 1 
     End While 

     If count = 1 Then 
      MessageBox.Show("Correct !") 
     ElseIf count > 1 Then 
      MessageBox.Show("Duplicate !") 
     Else 
      MessageBox.Show("Not Correct !") 
     End If 

     MysqlConn.Close() 

    Catch ex As Exception 
     MsgBox(ex.Message) 
    Finally 
     MysqlConn.Dispose() 
    End Try 

    End Sub 

End Class 

Может кто-нибудь помочь мне исправить это? Благодарю.

Answer 1

Не пытайтесь связаться с MysqlConn или Query до вашего Command, прежде чем пытаться позвонить по телефону ExecuteReader. Таким образом, в это время у него нет действительного соединения.

Answer 2

Чтобы связать ваш Query и Command с подключением вам нужно сделать, это:

Command = New MySqlCommand(Query, MysqlConn) 

Вы можете выполнять операции для извлечения данных вам нужно.

Answer 3

Query = "SELECT * из члена, где Имя пользователя = '" & UsernameTxt.Text & "' и пароль =" & PasswordTxt.Text & "'", nombredelaconexion