01.
Dim
strConnection
As
String
=
"Database=xxx;host=xxx;User Id=xxx;Password=xxx"
02.
Dim
cn
As
New
MySqlConnection(strConnection)
03.
cn.Open()
04.
Dim
da
As
New
MySqlDataAdapter
05.
Dim
ds
As
New
DataSet
06.
Dim
strSQL
As
String
= (
"SELECT * FROM data"
)
07.
Dim
cb
As
New
MySqlCommandBuilder(da)
08.
da.SelectCommand =
New
MySqlCommand(strSQL, cn)
09.
10.
11.
cn.Close()