dwanue IT Life

1.首先必須先匯入元件

2.宣告必須變數

  ' 資料集物件的類別層級建立
  Dim ds As DataSet = New DataSet
  ' CurrencyManager 物件的類別層級宣告
  Dim bmCategory As BindingManagerBase
  ' 資料配接器物件的類別層級建立
  Dim limingDA As SqlDataAdapter = New SqlDataAdapter
  ' 資料表物件的類別層級宣告
  Dim dtLiming As DataTable
  ' CurrencyManager 物件的類別層級宣告
  Dim bmLiming As BindingManagerBase

  '設定資料庫預設變數
  Dim SQL_Server As String = "TONY-SLO"
  Dim SQL_DBName As String = "slo"
  Dim SQL_Table As String = "Friend"

3.副程式名稱一覽表
SetDataBase() ---> 設定資料庫
SetPrintData() ---> 設定顯示資料欄位
PrintPoint() ---> 設定資料記錄目前位置訊息的初值
MoveData(ByVal i As Int16) ---> 移動資料
AddData() ---> 新增資料記錄
DeleteData() ---> 刪除資料記錄
UpdateData() ---> 更新資料記錄

4.寫入副程式

 Private Sub SetDataBase()
    Dim SQL_Select As String = "SELECT * FROM " & SQL_Table

    ' 建立一個資料連接
    Dim con As New SqlConnection("Server=" & SQL_Server & ";Database=" & SQL_DBName & ";Integrated Security=SSPI")
    limingDA.MissingSchemaAction = MissingSchemaAction.AddWithKey
    limingDA.SelectCommand = New SqlCommand(SQL_Select, con)  ' 設定資料配接器的 SelectCommand 屬性
    ds.Tables.Clear()  ' 移除資料集內的所有資料表
    Try
      con.Open() ' 開啟連接
      Dim nRowsCount As Integer = limingDA.Fill(ds, SQL_Table)  ' 將所提取的資料填入資料集內的資料表中
      con.Close()  ' 關閉連結
      dtLiming = ds.Tables(SQL_Table) ' 連結資料表
      bmLiming = Me.BindingContext(dtLiming) ' 取得代表資料表的 CurrencyManager 物件
      For Each myControl As Control In Controls
        myControl.DataBindings.Clear() ' 清除資料
      Next
      SetPrintData() '設定顯示資料欄位
      PrintPoint()  '設定資料記錄目前位置訊息的初值
    Catch ex As Exception
      MessageBox.Show(ex.Message, "請注意")  '如有錯誤顯示錯誤訊息
    End Try
  End Sub

  Private Sub AddData()
    ' 新增資料記錄的 INSERT 陳述式
    Dim SQL_Select As String = _
    "INSERT into " & SQL_Table & " VALUES (" & _
    "'" & TextBox1.Text & "'," & _
    "'" & TextBox2.Text & "'," & _
    "'" & TextBox3.Text & "'," & _
    "'" & ComboBox1.Text & "')"

    ' 建立一個資料連接
    Dim con As New SqlConnection("Server=" & SQL_Server & ";Database=" & SQL_DBName & ";Integrated Security=SSPI")
    Dim insertCMD As New SqlCommand(SQL_Select, con) ' 使用 SqlCommand 類別的第三個建構函式來建立 SqlCommand 物件
    Try
      con.Open() ' 開啟連接
      insertCMD.ExecuteNonQuery() ' 執行資料命令來新增資料記錄
      MessageBox.Show("已經成功新增資料記錄。", "恭喜您", MessageBoxButtons.OK, MessageBoxIcon.Information)
      SetDataBase()
    Catch ex As Exception
      MessageBox.Show(ex.ToString(), "請注意", MessageBoxButtons.OK, MessageBoxIcon.Stop)
    Finally
      con.Close() ' 關閉連接
    End Try
  End Sub

  Private Sub DeleteData()
    ' 刪除資料記錄的 DELETE 陳述式
    Dim SQL_Select As String = "DELETE " & SQL_Table & " WHERE 欄位1 = " & "'" & Val(TextBox1.Text) & "'"

    ' 建立一個資料連接
    Dim con As New SqlConnection("Server=" & SQL_Server & ";Database=" & SQL_DBName & ";Integrated Security=SSPI")
    Dim deleteCMD As New SqlCommand(SQL_Select, con)  ' 使用 SqlCommand 類別的第三個建構函式來建立 SqlCommand 物件
    Try
      con.Open() ' 開啟連接
      deleteCMD.ExecuteNonQuery() ' 執行資料命令來刪除資料記錄

      MessageBox.Show("已經成功刪除資料記錄。", "恭喜您", MessageBoxButtons.OK, MessageBoxIcon.Information)
      SetDataBase()
    Catch ex As Exception
      MessageBox.Show(ex.ToString(), "請注意", MessageBoxButtons.OK, MessageBoxIcon.Stop)
    Finally
      con.Close() ' 關閉連接
    End Try
  End Sub

  Private Sub UpdateData()
    ' 更新資料記錄的 UPDATE 陳述式
    Dim SQL_Select As String = _
    "UPDATE " & SQL_Table & _
    " SET 欄位1=" & TextBox1.Text & _
    "   ,欄位2=" & "'" & TextBox2.Text & "'" & _
    "   ,欄位3=" & "'" & TextBox3.Text & "'" & _
    " WHERE 欄位1 = " & TextBox1.Text

    ' 建立連接
    Dim con As SqlConnection = New SqlConnection("Server=TONY-SLO;Database=slo;Integrated Security=SSPI")
    Dim updateCMD As New SqlCommand(SQL_Select, con)  ' 使用 SqlCommand 類別的第三個建構函式來建立 SqlCommand 物件
    Try
      con.Open() ' 開啟連接
      updateCMD.ExecuteNonQuery() ' 執行資料命令來更新資料記錄
      MessageBox.Show("已經成功更新資料記錄。", "恭喜您", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
      MessageBox.Show(ex.ToString(), "請注意", MessageBoxButtons.OK, MessageBoxIcon.Stop)
    Finally
      con.Close() ' 關閉連接
    End Try
  End Sub

  Private Sub SetPrintData()
    '設定顯示資料欄位
    TextBox1.DataBindings.Add("Text", dtLiming, "欄位1")
    TextBox2.DataBindings.Add("Text", dtLiming, "欄位2")
    TextBox3.DataBindings.Add("Text", dtLiming, "欄位3")
  End Sub

  Private Sub PrintPoint()
    '設定資料記錄目前位置訊息的初值
    TextBoxPosition.Text = String.Format("資料記錄:目前位置 {0} 總數 {1}", bmLiming.Position + 1, bmLiming.Count)
  End Sub

  Private Sub MoveData(ByVal i As Int16)
    '移動資料
    Select Case i
      Case 1 '第一筆
        bmLiming.Position = 0
      Case 2 '上一筆
        bmLiming.Position -= 1
      Case 3 '下一筆
        bmLiming.Position += 1
      Case 4 '最後一筆
        bmLiming.Position = bmLiming.Count - 1
    End Select
    PrintPoint()  '設定資料記錄目前位置訊息的初值
  End Sub