在Visual Basic中连接MySQL数据库进行增删改查操作,咱们可以使用MySQL Connector/NET(官方提供的MySQL连接库)来实现。

以下是一个简单的示例,演示如何连接MySQL数据库并执行增删改查操作。在开始之前,确保已经安装了MySQL Connector/NET。

  1. 添加引用:
    • 打开Visual Basic项目。
    • 在“解决方案资源管理器”中,右键单击“引用”并选择“添加引用”。
    • 在“添加引用”对话框中,选择“浏览”选项卡,并浏览到MySQL Connector/NET的安装目录(通常是C:\Program Files\MySQL\MySQL Connector Net X.XX)。
    • 选择以下DLL文件并添加引用:
      • MySql.Data.dll
  2. 导入命名空间: 在VB.NET代码中导入MySQL Connector的命名空间。

Imports MySql.Data.MySqlClient

  1. 连接到MySQL数据库:
Dim connStr As String = "Server=YourServer;Database=YourDatabase;User=YourUser;Password=YourPassword;"
Dim conn As MySqlConnection = New MySqlConnection(connStr)
Try
    conn.Open()
    ' 连接已打开,可以执行查询
Catch ex As Exception
    ' 处理连接错误
Finally
    conn.Close()
End Try

注意要将 YourServerYourDatabaseYourUserYourPassword 替换为你自己的MySQL服务器信息。

  1. 执行查询操作:
    • 插入数据:
Dim query As String = "INSERT INTO YourTable (Column1, Column2) VALUES (@Value1, @Value2)"
Using cmd As New MySqlCommand(query, conn)
    cmd.Parameters.AddWithValue("@Value1", "Value1")
    cmd.Parameters.AddWithValue("@Value2", "Value2")
    cmd.ExecuteNonQuery()
End Using
  • 更新数据:
Dim query As String = "UPDATE YourTable SET Column1 = @Value1 WHERE Column2 = @Value2"
Using cmd As New MySqlCommand(query, conn)
    cmd.Parameters.AddWithValue("@Value1", "NewValue1")
    cmd.Parameters.AddWithValue("@Value2", "OldValue2")
    cmd.ExecuteNonQuery()
End Using
  • 删除数据:
Dim query As String = "DELETE FROM YourTable WHERE Column1 = @Value1"
Using cmd As New MySqlCommand(query, conn)
    cmd.Parameters.AddWithValue("@Value1", "ValueToDelete")
    cmd.ExecuteNonQuery()
End Using
  • 查询数据:
Dim query As String = "SELECT Column1, Column2 FROM YourTable WHERE Column1 = @Value1"
Using cmd As New MySqlCommand(query, conn)
    cmd.Parameters.AddWithValue("@Value1", "ValueToSearch")
    Using reader As MySqlDataReader = cmd.ExecuteReader()
        While reader.Read()
            Dim value1 As String = reader("Column1").ToString()
            Dim value2 As String = reader("Column2").ToString()
            ' 处理查询结果
        End While
    End Using
End Using

以上代码示例中的 YourTableColumn1Column2@Value1@Value2 等都需要根据你自己的实际数据库表结构和数据来进行调整。

另外注意,需要在查询中使用参数化查询,以防止SQL注入攻击