Dim conn As MySql.Data.MySqlClient.MySqlConnection
Dim cmd As MySql.Data.MySqlClient.MySqlCommand
Dim connStr As String = "server=106.146.*.*; port=3306; user id=root; password=12374; database=asungkkk;CharSet=utf8"
conn = New MySql.Data.MySqlClient.MySqlConnection(connStr)
conn.Open
Dim mda As New MySql.Data.MySqlClient.MySQLDataAdapter("se lect * from wp_options", conn) '这里可以设置你的查询语句
Dim ds As New System.Data.DataSet()
mda.Fill(ds, "TableTemp") 'MySQLDataAdapter方法把数据放到一个新建的临时表里,这个临时表名可自定义,我这里写TableTemp
e.form.controls("Table1").Table.DataSource = ds.Tables("TableTemp") '把刚才的临时表TableTemp填充到我们的控件Table1里
conn.close
加好友 
发短信
Post By：2017/12/15 1:23:00 [只看该作者]
