係 DataGridView 既 Cell 上 Update Database 上既 Record

 
係 DataGridView 既 Cell 上 Update Database 上既 Record
 

   Form1.vb
 
   Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As _
   System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
 
      Dim connectionString1 As String = _
      "Data Source=.\SqlExpress; Initial Catalog=Soccer; Integrated Security=SSPI"
      Dim con1 As SqlConnection = New SqlConnection(connectionString1)
      con1.Open()
 
      Dim SqlString1 As String = _
      "UPDATE dbo.Player SET " & _
      "Player_ID=@Player_ID, Player_Name=@Player_Name, Team_ID = @Team_ID WHERE Team_ID = @Team_ID "
 
      Dim cmd1 As SqlCommand = New SqlCommand(SqlString1, con1)
      cmd1.Parameters.AddWithValue("@Player_ID", DataGridView1.CurrentRow.Cells(0).Value)
      cmd1.Parameters.AddWithValue("@Player_Name", DataGridView1.CurrentRow.Cells(1).Value)
      cmd1.Parameters.AddWithValue("@Team_ID", DataGridView1.CurrentRow.Cells(2).Value)
 
      cmd1.ExecuteNonQuery()
 
      cmd1.Dispose()
      con1.Dispose()
 
   End Sub