Hi First of all i would like to say is, i am a fresher to this vb.net.. having one project in hand. But as i dont know the code for using a datagridview i am asking your help. In my sqlserver table "EmployeeDetails" we have so many columns. In that Mainly the three Columns are "EmpName", Leave Allowed and Leave Balance.
Here the employee has been restricted to take only 30 days leave in a month. Consider in a company they have % employee. 3 among them, worked on 2 days during Holidays. Employee A has 10 leave Balance and Employee B has 8 Leave Left. This 3 columns will be shown in a Datagridview along with Check box column. Now HR decides to give 2 days Componsate to leave for those 3 Employee. so she will select the Check box infront of an employee Name. In a text box (how much leave to be added) if she mention 2, then leave balance of those 3 should be added by 2. Employee A leave balance will be 12 and Employee B balance would be 10. so HR select those particular employee, and she mention 2 in the text box and click on Update button. Now how to update the LeaveBalance column in Sql Table? Here is the code what i have mentioned and went wrong..Click Here
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim sqlIns As String
Dim n As Integer = 1
If chkSelect.Checked = True Then
sqlIns = "SELECT EmpName,LeaveAll,LeaveBal from LeaveDetails "
Dim strSQL As String
Dim Count As Double
Dim totPasCount As Double = 0
Dim row As DataGridViewCheckBoxCell
strSQL = "Select LeaveBal from LeaveDetails where EmpName = '" & row("EmpName").Value & "'"
Dim RsPCount As New ADODB.Recordset
If RsPCount.State = 1 Then RsPCount.Close()
RsPCount.Open(strSQL, Con, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)
If RsPCount.EOF = False Then
totPasCount = Val(RsPCount(0).Value.ToString)
End If
RsPCount.Close()
RsPCount = Nothing
Count = totPasCount + Val(txtCount.Text)
For Each row As DataGridViewRow In DGVEmployee.Rows
If row.Cells("EmpName").Value Then
sqlIns = "Update leave details set LeaveBal = '" & Count & "' where "I DONT KNOW HOW TO MENTION THE DATAGRID CELL HERE"
End If
Next
Dim insRs As New ADODB.Recordset
If insRs.State = 1 Then insRs.Close()
insRs.Open(sqlIns, Con, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)
While insRs.EOF = False
sqlIns = "UPDATE LeaveDetails Set LeaveBal "
Con.Execute(sqlIns)
insRs.MoveNext()
n = n + 1
End While
insRs.Close()
insRs = Nothing
End If
End Sub