- For j = 0 To Tong_so
- j = j + 1
- Dim sql1 As String = "Update tbl_Hocvien set SBD = '" & mangSB(j) & "' where KetLuan = 'A' "
- Dim Command1 As New OleDb.OleDbCommand(sql1, con)
- con.Open()
- Command1.ExecuteNonQuery()
- con.Close()
- Next
Mình định cập nhật từng phần tử của mảng vào Record tương ứng nhưng như trên thì cập nhật phần tử cuối cùng của mảng vào tất cả các Record!