Исправьте ошибку VB.NET «Соединение должно быть действительным и открытым»

Question

Исправьте ошибку VB.NET «Соединение должно быть действительным и открытым»

0

Я получаю ошибку в этой форме входа, которую я создал, которая "Connection должна быть действительной и открытой, может кто-то мне помочь, вот код. Я не могу понять, что это за ошибка, и мне нужна ваша помощь.

Imports MySql.Data.MySqlClient
Public Class LoginForm1

    Dim Username As String
    Dim Password As String
    Public StudentName As String
    'MySql
    Dim connection As New MySqlConnection("Server=server;User ID=id;Password=pass;Database=data;SSLMode=None")

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        Username = UsernameTextBox.Text
        Password = PasswordTextBox.Text
        StudentName = NameTextBox.Text

        Dim command As New MySqlCommand("SELECT 'Username', 'Password', 'FirstName' FROM 'people' WHERE 'Username' = @username AND 'Password' = @password And 'FirstName' = @name", connection)
        command.Parameters.Add("@username", MySqlDbType.VarChar).Value = Username
        command.Parameters.Add("@password", MySqlDbType.VarChar).Value = Password
        command.Parameters.Add("@name", MySqlDbType.VarChar).Value = StudentName


        Dim adapter As New MySqlDataAdapter(command)
        Dim table As New DataTable()
        Dim reader As MySqlDataReader = command.ExecuteReader

        adapter.Fill(table)

        If table.Rows.Count = 0 Then
            MessageBox.Show("Invalid Username Or Password", "Invalid Login", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else

            MessageBox.Show("Logged In", "Logged in Successfully", MessageBoxButtons.OK, MessageBoxIcon.Information)
            MainMenuForm.Show()
            Me.Close()
        End If
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim webAddress As String = "http://windowsadvancedstudy.com"
        Process.Start(webAddress)
    End Sub
End Class

Swastik Bhattacharyya 19 июнь 2018, в 15:51

Источник

0

Можете ли вы написать код и описать, что вы хотите сказать в ответе?
Swastik Bhattacharyya 19 июнь 2018, в 13:06
1

@the_lotus adapter.Fill не требует открытого соединения.
SouXin 19 июнь 2018, в 13:13
0

В действительности вам нужно только выполнить executeScalar с уникальным идентификатором, чтобы сделать то, что вы делаете. Таким образом, вы на самом деле не вводите пароль или идентификатор пользователя. Вы просто видите, что он существует по возвращаемой строке, так же, как вы используете таблицу rows.count для определения, была ли строка возвращена из запроса.
Charles May 19 июнь 2018, в 13:27
0

@ Чарльз Может согласиться. Но мы не обсуждали лучшие практики или логику. Мы обсуждали где ошибка =)
SouXin 19 июнь 2018, в 13:30
0

@SouXin. О, я знаю, вот почему я проголосовал за ваш пост. Это был фактический ответ на проблему ОП. Просто добавил мой комментарий к «Надеюсь» дать опе что-то для исследования.
Charles May 19 июнь 2018, в 13:59

Показать ещё 3 комментария

Теги:

mysql

vb.net

2 ответа

0

Попробуйте открыть соединение перед его использованием.

И используйте для этого блок "использования", чтобы он правильно выглядел.

Кроме того, это хорошая практика НЕ хранить учетные данные в коде, использовать для этого файл конфигурации.

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim connection As MySqlConnection
    Using(connection As New MySqlConnection("Server=server;User ID=id;Password=pass;Database=data;SSLMode=None")
            connection.Open()
            Username = UsernameTextBox.Text
            Password = PasswordTextBox.Text
            StudentName = NameTextBox.Text

            Dim command As New MySqlCommand("SELECT 'Username', 'Password', 'FirstName' FROM 'people' WHERE 'Username' = @username AND 'Password' = @password And 'FirstName' = @name", connection)
            command.Parameters.Add("@username", MySqlDbType.VarChar).Value = Username
            command.Parameters.Add("@password", MySqlDbType.VarChar).Value = Password
            command.Parameters.Add("@name", MySqlDbType.VarChar).Value = StudentName


            Dim adapter As New MySqlDataAdapter(command)
            Dim table As New DataTable()
            Dim reader As MySqlDataReader = command.ExecuteReader

            adapter.Fill(table)

            If table.Rows.Count = 0 Then
                MessageBox.Show("Invalid Username Or Password", "Invalid Login", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else

                MessageBox.Show("Logged In", "Logged in Successfully", MessageBoxButtons.OK, MessageBoxIcon.Information)
                MainMenuForm.Show()
                Me.Close()
            End If
    End Using
End Sub

Oscar 19 июнь 2018, в 10:29

1

Я хочу еще раз подчеркнуть, что adapter.Fill не требует ни читателя, ни открытого соединения.
SouXin 19 июнь 2018, в 13:25

Ещё вопросы

Можете ли вы написать код и описать, что вы хотите сказать в ответе?
@the_lotus adapter.Fill не требует открытого соединения.
В действительности вам нужно только выполнить executeScalar с уникальным идентификатором, чтобы сделать то, что вы делаете. Таким образом, вы на самом деле не вводите пароль или идентификатор пользователя. Вы просто видите, что он существует по возвращаемой строке, так же, как вы используете таблицу rows.count для определения, была ли строка возвращена из запроса.
@ Чарльз Может согласиться. Но мы не обсуждали лучшие практики или логику. Мы обсуждали где ошибка =)
@SouXin. О, я знаю, вот почему я проголосовал за ваш пост. Это был фактический ответ на проблему ОП. Просто добавил мой комментарий к «Надеюсь» дать опе что-то для исследования.
Я хочу еще раз подчеркнуть, что adapter.Fill не требует ни читателя, ни открытого соединения.

SouXin · Accepted Answer · 2018-06-19T10-32-00.000Z

Вам не нужно декларировать читателя, если вы используете adapter.Fill. Удалите эту строку:

Dim reader As MySqlDataReader = command.ExecuteReader

Точно выстройте линию выше исключения. Потому что reader требуется открытое соединение.

И добавьте строку:

command.CommandType = CommandType.Text

Позвольте мне проверить, если это работает
Это действительно работает, спасибо за вашу помощь.