VB.NET 通过MySQLDriverCS连接Mysql

最新推荐文章于 2023-08-16 13:51:12 发布

huangle63

最新推荐文章于 2023-08-16 13:51:12 发布

阅读量2.7k

点赞数

分类专栏： vb.net 文章标签： vb-net mysql drivercs

本文链接：https://blog.youkuaiyun.com/letunihao/article/details/72828205

版权

vb.net 专栏收录该内容

12 篇文章

订阅专栏

本文介绍如何使用VB.NET连接MySQL数据库，包括安装MySQLDriverCS、配置连接字符串、执行SQL语句及解决中文乱码问题等关键步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

通过https://sourceforge.net/projects/mysqldrivercs/下载MySQLDriverCS安装程序，安装到本地电脑上，（后续不需要每台电脑都安装此程序），找到安装位置中的dll文件夹，
在.net程序中引用上面文件夹中的MySQLDriverCS.dll文件，并在代码中导入,并把 MySQLDriverCS.dll， libmySQL.dll，libmySQL-4.0.dll拷贝到项目文件夹中

Imports MySQLDriverCS

 Try
    Dim mysql As String = "Location=10.*.*.*;User Id=root;Data Source=;Port=3306;Password="
    'Dim mysql As String = "server=localhost;User Id=root;Data Source=;Port=3306;Password="
    Dim Connection As New MySQLConnection(mysql)
    Connection.Open()   '打开数据库
    Dim sql As String = "insert into technologydept_onlinemackey set mainboardID='123456',test_time=Now()"
    Dim command As MySQLCommand = New MySQLCommand(sql, Connection)
    Dim commandm As MySQLCommand = New MySQLCommand("set names gb2312", Connection)
    commandm.ExecuteNonQuery()
    commandm.Dispose()
    'Dim mydata As MySQLDataReader
    'mydata = command.ExecuteReaderEx
    'While mydata.Read
    '    If mydata.HasRows Then
    '        MsgBox(mydata(0).ToString)
    '    Else
    '        MsgBox("no")
    '    End If
    'End While
    command.ExecuteNonQuery()
    command.Dispose()
    Connection.Close()
    MsgBox("OK")
Catch ex As Exception
    MsgBox(ex.Message)
End Try

vb.net 与mysql通信中文产生乱码的问题
http://blog.youkuaiyun.com/michaelscofielddong/article/details/7750380

Dim commandm As MySQLCommand = New MySQLCommand("set names gb2312", Connection)
commandm.ExecuteNonQuery()