嚼的絮絮叨叨

Imports System.Data.SqlClient
Imports Mysql.Data.MySqlClient
Public Class Form1

    Dim dt As New DataTable

    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click

        Dim cn As New MySqlConnection("server=主機名/IP;uid=帳號;pwd=密碼;database=資料庫")

        Dim cmd_sql As String = "select * from empdata"

        '用Adapter的寫法()

        Dim adp As New MySqlDataAdapter(cmd_sql, cn)

        adp.Fill(dt)

        '用Adapter的第二種寫法，

        Dim myCommand As New MySqlCommand(cmd_sql, cn)

        Dim adp As New MySqlDataAdapter

        adp.SelectCommand = myCommand

        adp.Fill(dt)

        '用文法序述的的寫法

        Dim cmd As New MySqlCommand(cmd_sql, cn)

        Dim dr As MySqlDataReader

        Dim row As DataRow

        dt.Columns.Add("EmpId")

        dt.Columns.Add("EmpName")

        dt.Columns.Add("EmpPic")

        cn.Open() '開啟連線

        dr = cmd.ExecuteReader '執行命令

        Do While dr.Read() '當rd.read()傳回真時

            row = dt.NewRow() '建立新列

            row("EmpId") = dr("Empid").ToString.TrimEnd

            row("EmpName") = dr("EmpName").ToString.TrimEnd

            row("EmpPic") = dr("EmpPic").ToString.TrimEnd

            dt.Rows.Add(row) '寫入列

        Loop

        cn.Close() '關閉連線

        dt_view.DataSource = dt

    End Sub

End Class