Question

这是我的代码，系统认为ByVal语法不再存在。它在Visual Studio 2005中有效但我升级到Visual Studio 2010并且无法找到替换它的语法。错误发生在第二行。

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

Answer 1

我不知道为什么那不起作用。它看起来很好。但如果有任何安慰，你真的不需要ByVal。你可以说Private Sub Form1_Load(sender As System.Object, e As EventArgs) Handles MyBase.Load。实际上，当你在VS中创建一个新的on_load处理程序时（我使用2013年），这就是它给你的东西。您是否尝试从VS 2010重新创建表单加载事件？

Answer 2

您需要将引用（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

Visual Basic连接到MySQL语法错误

2 个答案: