Синтаксическая ошибка подключения Visual Basic к MySQL

Это мой код, система считает, что синтаксис ByVal больше не существует. Он работал в Visual Studio 2005, но я обновился до Visual Studio 2010 и не могу найти синтаксис для его замены. Ошибка во 2-й строке.

Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
    TestConnection()
End Sub

Public Sub TestConnection()
    Try
        Dim connStr As String = "Database=world;" & _
                "Data Source=192.168.125.21;" & _
                "User Id=worldUser;Password=worldpassword"
        Dim connection As New MySqlConnection(connStr)
        connection.Open()
        connection.Close()
        MsgBox("Connection is okay.")
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

mysql visual-studio-2010 basic
person IAteUrPoptart    schedule 26.07.2014    source источник

Ответы (2)


arrow_upward
0
arrow_downward

Я понятия не имею, почему это не работает. Это выглядит хорошо для меня. Но если вас это утешит, вам действительно не нужен ByVal. Вы можете просто сказать Private Sub Form1_Load(sender As System.Object, e As EventArgs) Handles MyBase.Load. На самом деле, когда вы создаете новый обработчик on_load в VS (я использую 2013), это то, что он вам даст. Вы пытались воссоздать событие загрузки формы из VS 2010?

person Community    schedule 26.07.2014

arrow_upward
0
arrow_downward

Вам нужно добавить ссылку (mysql.data.dll) в проект, затем добавить импорт и публичный класс

Imports MySql.Data.MySqlClient

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        TestConnection()
    End Sub

    Public Sub TestConnection()
        Try
            Dim connStr As String = "Database=database;Data Source=localhost;User Id=root"
            Dim connection As New MySqlConnection(connStr)
            connection.Open()
            connection.Close()
            MsgBox("Connection is okay.")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class
person MrAnt    schedule 13.11.2014