andyj

先安裝MYSQL Connector 載點

01   Dim conn1 As MySqlConnection = New MySqlConnection("Database=DBName; Data Source=HostName; User Id=Account; Password=Password; CharSet=big5;")
02         Dim DBstr1 As String = "Select * From ABC Order by ID"
03         Dim DA1 As MySqlDataAdapter = New MySqlDataAdapter(DBstr1, conn1)
04         Dim DS1 As DataSet = New DataSet
05         Try
06             conn1.Open()
07             DA1.Fill(DS1, "Data")
08         Catch ex As Exception
09             MsgBox(ex.Message)
10         Finally
11             conn1.Close()
12         End Try