留意红色代码
Dim conn As MySql.Data.MySqlClient.MySqlConnection
Dim cmd As MySql.Data.MySqlClient.MySqlCommand
Dim sdr As MySql.Data.MySqlClient.MySqlDataReader
Dim connStr As String = "server=xyz; port=3306; user id=xyz; password=xyz; database=TD_OA; Allow Zero Datetime=True"
conn = New MySql.Data.MySqlClient.MySqlConnection(connStr)
conn.Open
Dim dt As new System.Data.DataTable
cmd = new MySql.Data.MySqlClient.MySqlCommand("select * fr om user", conn)
sdr = cmd.ExecuteReader()
dt.load(sdr)
e.Form.Controls("Table1").Table.DataSource = dt
conn.close
MessageBox.Show("OK")
[此贴子已经被作者于2016/3/8 21:59:18编辑过]