加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 百科 > 正文

VB.NET 通过MySQLDriverCS连接Mysql

发布时间:2020-12-17 07:33:06 所属栏目:百科 来源:网络整理
导读:通过https://sourceforge.net/projects/mysqldrivercs/下载MySQLDriverCS安装程序,安装到本地电脑上,(后续不需要每台电脑都安装此程序),找到安装位置中的dll文件夹, 在.net程序中引用上面文件夹中的MySQLDriverCS.dll文件,并在代码中导入,并把 MySQLD
  1. 通过https://sourceforge.net/projects/mysqldrivercs/下载MySQLDriverCS安装程序,安装到本地电脑上,(后续不需要每台电脑都安装此程序),找到安装位置中的dll文件夹,
  2. 在.net程序中引用上面文件夹中的MySQLDriverCS.dll文件,并在代码中导入,并把 MySQLDriverCS.dll, libmySQL.dll,libmySQL-4.0.dll拷贝到项目文件夹中
Imports MySQLDriverCS
    3.
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 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

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读