建议使用第三方MySQL控件,下载地址
http://www.sevenobjects.com/download.aspx
使用方法类似SqlClient Imports System.Data.MySqlClient
Dim oConnection as New MySqlConnection()
Dim oCommand As New MySqlCommand
Dim oAdapter As New MySqlDataAdapter
oConnection.ConnectionString = "Host=localhost; UserName=MyUser; Password=MyPass; Database=addressbook;"
oCommand.CommandText = "SELECT id, Name FROM addresses"
oCommand.Connection = oConnection
oAdapter.SelectCommand = oCommand
Dim oDataset as new DataSet
oAdapter.Fill(oDataset, "addresses")
Listbox1.DataSource = oDataset
Listbox1.DisplayMember = "Name"
oConnection.Close()
http://www.sevenobjects.com/download.aspx
使用方法类似SqlClient Imports System.Data.MySqlClient
Dim oConnection as New MySqlConnection()
Dim oCommand As New MySqlCommand
Dim oAdapter As New MySqlDataAdapter
oConnection.ConnectionString = "Host=localhost; UserName=MyUser; Password=MyPass; Database=addressbook;"
oCommand.CommandText = "SELECT id, Name FROM addresses"
oCommand.Connection = oConnection
oAdapter.SelectCommand = oCommand
Dim oDataset as new DataSet
oAdapter.Fill(oDataset, "addresses")
Listbox1.DataSource = oDataset
Listbox1.DisplayMember = "Name"
oConnection.Close()
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货