係 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 |