vb.net 连接MYSQL数据库，需要MySql.Data.dll连接控件！

vb.net 连接MYSQL数据库，需要MySql.Data.dll连接控件！

Imports MySql.Data.MySqlClient

Imports System.Data.SqlClient

Public Class cls_MySql

'-------------------------------------------------------------------------------------------------------------------------------------------

'数据库连接字符串

Private 服务器 = "127.0.0.1"

Private 用户名 = "test"

Private 密码 = "test"

Private 数据库 = "test"

'-------------------------------------------------------------------------------------------------------------------------------------------

Public cnStr As String = "server=" & 服务器 & ";Uid=" & 用户名 & ";Pwd=" & 密码 & ";database=" & 数据库 & ";"

Public cn As New MySqlConnection(cnStr)

'-------------------------------------------------------------------------------------------------------------------------------------------

' 执行查询

Public Function 数据库查询(ByVal 执行语句 As String, ByVal 执行语句类型 As CommandType) As DataTable

Dim 适配器 As New MySqlDataAdapter(执行语句, cn)

Dim 数据表 As New DataSet

Try

适配器.Fill(数据表)

Return 数据表.Tables(0)

Catch ex As Exception

Return Nothing

Finally

cn.Close()

End Try

End Function

'-------------------------------------------------------------------------------------------------------------------------------------------

' 执行增删改

Public Function 数据库增删改(ByVal 执行语句 As String, ByVal 执行语句类型 As CommandType) As Integer

Dim 执行命令 As MySqlCommand = New MySqlCommand(执行语句, cn)

Try

cn.Open()

Return 执行命令.ExecuteNonQuery()

Catch ex As Exception

Return 0

Finally

cn.Close()

End Try

End Function

End Class