使用VB.NET從值連接到MySQL

Question

我試圖連接到mySql，但是我在查找錯誤的地方時遇到了問題。

我的表單包含一個ea標簽，該標簽是要發布到Score以及一個文本框，用戶可以在其中輸入要在Navn發布的Navn 。

到目前為止，我的代碼是：

Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim connect As New SqlConnection("Data Source = mysqlAdress;Network Library= DBMSSOCN;Initial Catalog=**;User ID=**;Password=**;")
        Dim query As String = "INSERT INTO 2048 VALUES(@score, @name)"
        Dim command As New SqlCommand(query, connect)

        command.Parameters.Add("@score", SqlDbType.Int).Value = Label1.Text
        command.Parameters.Add("@navn", SqlDbType.VarChar).Value = TextBox1.Text
        connect.Open()
        connect.Close()
    End Sub

Answer 1

您的表格名稱應放在反引號中，如下所示：

Dim query As String = "INSERT INTO `2048` VALUES(@score, @name)"

還應嘗試避免使用此類命名約定的表名，即僅使用數字。

您同時也在打開和關閉連接。

connect.Open()
connect.Close()

嘗試這樣：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim connectionString As String = "Data Source = mysqlAdress;Network Library= DBMSSOCN;Initial Catalog=**;User ID=**;Password=**;"
    Using SQLConnection As New MySqlConnection(connectionString)
        Using sqlCommand As New MySqlCommand()
            With sqlCommand
                .CommandText = "INSERT INTO `2048` VALUES(@score, @name)"
                .Connection = SQLConnection
                .CommandType = CommandType.Text
                .Parameters.AddWithValue("@score", Label1.Text)
                .Parameters.AddWithValue("@name", TextBox1.Text)
            End With
            Try
                SQLConnection.Open()
                sqlCommand.ExecuteNonQuery()
            Catch ex As MySqlException
                MsgBox ex.Message.ToString
            Finally
                SQLConnection.Close()
            End Try
        End Using
    End Using 
End Sub