Hi all, I am using a DataGridView First column Checkbox, Regno, Name Like . When Checkbox is True means i Want To Add New Record. if have means i need to UPDATE
Here I use Code this code is working New Recored it not going to UPDATE..
Please Tell your Valuable Advice .
Dim strda1 As SqlDataReader
For Each row As DataGridViewRow In DGV1_SA.Rows
Dim cell As DataGridViewCheckBoxCell = row.Cells(0)
For ix As Integer = 0 To DGV1_SA.SelectedRows.Count - 1
Dim strSQL12 As String = "select * from Attendance WHERE Regno='" & DGV1_SA.Rows(ix).Cells(1).Value & "' and On_Date='" & CDate(DTP1_SA.Value) & "'"
Me.DaAp12 = New SqlDataAdapter(strSQL12, con)
Dim Dset12 As New DataSet
DaAp12.Fill(Dset12)
If cell.Value = True Then
If strSQL12 <> "" Then
con.Open()
Dim VRegNo As String = row.Cells("Regno").Value
Dim VS_Name As String = row.Cells("sname").Value
cmd.CommandText = "INSERT INTO Attendance (Regno,Stud_Name,On_Date,I,II,III,IV,V,VI,VII,VIII,IX,X) VALUES ('" & VRegNo & "','" & VS_Name & "'," & _
"'" & CDate(DTP1_SA.Value) & "','" & CB1.Checked & "','" & CB2.Checked & "','" & CB3.Checked & "','" & CB4.Checked & "','" & CB5.Checked & "', " & _
"'" & CB6.Checked & "','" & CB7.Checked & "','" & CB8.Checked & "','" & CB9.Checked & "','" & CB10.Checked & "')"
cmd.ExecuteNonQuery()
con.Close()
Else
con.Open()
cmd.CommandText = ("UPDATE Attendance SET I='" & CB1.Checked & "',II='" & CB2.Checked & "',III='" & CB3.Checked & "', IV='" & CB4.Checked & "', V='" & CB5.Checked & "', " & _
" VI='" & CB6.Checked & "' , VII='" & CB7.Checked & "' , VIII='" & CB8.Checked & "' , IX='" & CB9.Checked & "' , X='" & CB10.Checked & "' " & _
" WHERE Regno='" & DGV1_SA.Rows(ix).Cells(1).Value & "' and On_Date='" & CDate(DTP1_SA.Value) & "'")
strda1 = cmd.ExecuteReader()
con.Close()
End If
End If
Next ix
Next row
MessageBox.Show("UpDate")
[Edit]Code block added[/Edit]