Visual Basic实现连接mysql和增删改查（源代码）
需积分: 1 31 浏览量
2024-04-29
23:00:34
上传
评论
收藏 82KB PDF 举报
由于Visual Basic (VB.NET 或 VB6) 不直接支持 MySQL 数据库连接，我们需要使用额外的库或组件，如
MySQL Connector/NET（对于VB.NET）或 ODBC 驱动程序（对于VB6和VB.NET）。以下是使用VB.NET和
MySQL Connector/NET的示例代码，展示了如何连接MySQL数据库并执行基本的增删改查（CRUD）操
作。
首先，确保你已经安装了MySQL Connector/NET。然后，在Visual Studio项目中添加对它的引用。
以下是VB.NET的示例代码：
Imports MySql.Data.MySqlClient ' 引入MySQL Connector/NET命名空间
Module Module1
' 数据库连接字符串
Private Const ConnectionString As String =
"server=localhost;user=your_username;database=your_database;port=3306;password=your_
password;"
' 插入数据（Create）
Sub InsertData()
Using connection As New MySqlConnection(ConnectionString)
Try
connection.Open()
Dim sql As String = "INSERT INTO your_table (column1, column2)
VALUES (@value1, @value2)"
Using command As New MySqlCommand(sql, connection)
command.Parameters.AddWithValue("@value1", "example1")
command.Parameters.AddWithValue("@value2", "example2")
command.ExecuteNonQuery()
Console.WriteLine("数据插入成功！")
End Using
Catch ex As Exception
Console.WriteLine("插入数据时发生错误: " & ex.Message)
Finally
If connection.State = ConnectionState.Open Then
connection.Close()
End If
End Try
End Using
End Sub
' 查询数据（Read）
Sub ReadData()
Using connection As New MySqlConnection(ConnectionString)
Try
connection.Open()
Dim sql As String = "SELECT * FROM your_table"
Using command As New MySqlCommand(sql, connection)
Using reader As MySqlDataReader = command.ExecuteReader()
While reader.Read()
Console.WriteLine("ID: {0}, Column1: {1}, Column2: {2}",
reader.GetInt32(0), reader.GetString(1), reader.GetString(2))
资源评论
