VB.NET操作MySql数据库代码范例解读(VB.NET操作MySQL数据库代码示例详解)

原创

ithorizon 6个月前 (10-19) 阅读数 25 #后端开发

VB.NET操作MySQL数据库代码范例解读

在当今的软件开发中，数据库操作是不可或缺的一部分。MySQL作为一种流行的关系型数据库管理系统，被广泛应用于各种项目中。本文将详细介绍怎样在VB.NET环境下操作MySQL数据库，包括连接数据库、执行SQL语句、查询数据以及管理事务等。以下是VB.NET操作MySQL数据库的代码示例详解。

一、引言

在进行VB.NET与MySQL数据库交互之前，首先需要安装MySQL.Data库，它为.NET应用程序提供了对MySQL数据库的访问。可以通过NuGet包管理器安装MySQL.Data库。

二、连接MySQL数据库

在VB.NET中，使用MySQLConnection类来形成与MySQL数据库的连接。下面是一个连接MySQL数据库的示例代码：


Imports MySql.Data.MySqlClient
Module Module1
    Sub Main()
        Dim connectionString As String = "server=localhost;user=root;password=123456;database=testdb;"
        Using connection As New MySqlConnection(connectionString)
            Try
                connection.Open()
                Console.WriteLine("数据库连接胜利！")
            Catch ex As Exception
                Console.WriteLine("数据库连接未果：" & ex.Message)
            End Try
        End Using
    End Sub
End Module

三、执行SQL语句

在连接数据库胜利后，可以使用MySQLCommand类来执行SQL语句。以下是一个执行插入操作的示例：


Imports MySql.Data.MySqlClient
Module Module1
    Sub Main()
        Dim connectionString As String = "server=localhost;user=root;password=123456;database=testdb;"
        Using connection As New MySqlConnection(connectionString)
            Try
                connection.Open()
                Dim sql As String = "INSERT INTO users (name, age) VALUES ('张三', 25)"
                Using command As New MySqlCommand(sql, connection)
                    Dim result As Integer = command.ExecuteNonQuery()
                    If result > 0 Then
                        Console.WriteLine("数据插入胜利！")
                    Else
                        Console.WriteLine("数据插入未果！")
                    End If
                End Using
            Catch ex As Exception
                Console.WriteLine("数据库操作未果：" & ex.Message)
            End Try
        End Using
    End Sub
End Module

四、查询数据

查询数据时，可以使用MySQLCommand类的ExecuteReader方法来获取数据。以下是一个查询数据的示例：


Imports MySql.Data.MySqlClient
Module Module1
    Sub Main()
        Dim connectionString As String = "server=localhost;user=root;password=123456;database=testdb;"
        Using connection As New MySqlConnection(connectionString)
            Try
                connection.Open()
                Dim sql As String = "SELECT * FROM users"
                Using command As New MySqlCommand(sql, connection)
                    Using reader As MySqlDataReader = command.ExecuteReader()
                        While reader.Read()
                            Console.WriteLine("姓名：" & reader("name") & "，年龄：" & reader("age"))
                        End While
                    End Using
                End Using
            Catch ex As Exception
                Console.WriteLine("数据库查询未果：" & ex.Message)
            End Try
        End Using
    End Sub
End Module

五、管理事务

在进行数据库操作时，事务管理是非常重要的。以下是一个使用事务来确保数据完整性的示例：


Imports MySql.Data.MySqlClient
Module Module1
    Sub Main()
        Dim connectionString As String = "server=localhost;user=root;password=123456;database=testdb;"
        Using connection As New MySqlConnection(connectionString)
            connection.Open()
            Dim transaction As MySqlTransaction = connection.BeginTransaction()
            Try
                Dim sql1 As String = "UPDATE users SET age = 26 WHERE name = '张三'"
                Dim command1 As New MySqlCommand(sql1, connection, transaction)
                command1.ExecuteNonQuery()
                Dim sql2 As String = "UPDATE users SET age = 27 WHERE name = '李四'"
                Dim command2 As New MySqlCommand(sql2, connection, transaction)
                command2.ExecuteNonQuery()
                transaction.Commit()
                Console.WriteLine("事务提交胜利！")
            Catch ex As Exception
                transaction.Rollback()
                Console.WriteLine("事务回滚：" & ex.Message)
            End Try
        End Using
    End Sub
End Module