Imports MySql.Data.MySqlClient
Imports System.Data.SqlClient
Public Class Sandan
Shared Function MySQL(ByVal strSQL As String) As DataTable
Dim conn As MySqlConnection
Dim data As DataTable = New DataTable
Dim da As MySqlDataAdapter
Dim cb As MySqlCommandBuilder
Dim reader As MySqlDataReader
Dim ConnStr As String = "server=127.0.0.1;user id=root; password=; database=mysql; pooling=false"
conn = New MySqlConnection(ConnStr)
conn.Open()
conn.ChangeDatabase("DataBaseName")
If Not reader Is Nothing Then reader.Close()
conn.Clone()
da = New MySqlDataAdapter(strSQL, conn)
cb = New MySqlCommandBuilder(da)
da.Fill(data)
Return data
End Function
End Class
用这个和上面留下的地址。