Print button Control Code

---------------------------------
Print button control Code
--------------------------------------

   Dim cryRpt As New ReportDocument
        cryRpt.Load("D:\Clinton Reducto\Backup Employee New\Employee_Lastname - Copy With Search2\CrystalReport2.rpt")

        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As New ParameterValues
        Dim crParameterDiscreteValue As New ParameterDiscreteValue

        crParameterDiscreteValue.Value = txtempidno.Text
        crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
        crParameterFieldDefinition = crParameterFieldDefinitions.Item("empname")
        crParameterValues = crParameterFieldDefinition.CurrentValues

        crParameterValues.Clear()
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

        Form6.CrystalReportViewer1.ReportSource = cryRpt
        Form6.CrystalReportViewer1.Refresh()
        Form6.Show()


---------------------------------------------------------------------------------------





---------------------------------
Print button control Code
--------------------------------------
  Dim cryRpt As New ReportDocument
        cryRpt.Load("D:\Clinton Reducto\Backup Employee New\Employee_Lastname - Copy With Search2\CrystalReport2.rpt")

        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As New ParameterValues
        Dim crParameterDiscreteValue As New ParameterDiscreteValue

        crParameterDiscreteValue.Value = txtsearchEmpIdno.Text
        crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
        crParameterFieldDefinition = crParameterFieldDefinitions.Item("empname")
        crParameterValues = crParameterFieldDefinition.CurrentValues

        crParameterValues.Clear()
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

        Form6.CrystalReportViewer1.ReportSource = cryRpt
        Form6.CrystalReportViewer1.Refresh()
        Form6.Show()

FOr DataGridView Selected Row

-------------------------------------------------------------
Data Gridview Selected Row Code: 
-------------------------------------------------------------

Try
            Dim index As Integer
            index = e.RowIndex
            Dim selectedrow As DataGridViewRow
            selectedrow = DataGridView1.Rows(index)
            txtempidno.Text = selectedrow.Cells(0).Value
            txtfirstname.Text = selectedrow.Cells(1).Value
            txtmiddlename.Text = selectedrow.Cells(2).Value
            txtlastname.Text = selectedrow.Cells(3).Value
            DateTimePicker1.Text = selectedrow.Cells(4).Value
            txtage.Text = selectedrow.Cells(5).Value
            cmbgender.Text = selectedrow.Cells(6).Value
            txtstreetbaranggay.Text = selectedrow.Cells(7).Value
            txtcity.Text = selectedrow.Cells(8).Value
            txtprovince.Text = selectedrow.Cells(9).Value
            txtpostalcode.Text = selectedrow.Cells(10).Value
            txtjobposition.Text = selectedrow.Cells(11).Value
            txtsalary.Text = selectedrow.Cells(12).Value
            txtdeductions.Text = selectedrow.Cells(13).Value
            txtbonus.Text = selectedrow.Cells(14).Value
            txtgrosssalary.Text = selectedrow.Cells(15).Value
            txtnetpay.Text = selectedrow.Cells(16).Value
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Update Button Control Code

------------------------------------------------------------------------------------------------------------
COpy and paste the code below after Public Class Form2
--------------------------------------------------------------------------------------------------------------

 con.Open()
        Dim rs As New OleDb.OleDbCommand("Update table1 set FirstName = '" & txtfirstname.Text & _
                                         "', MiddleName = '" & txtmiddlename.Text & _
                                         "', LastName = '" & txtlastname.Text & _
                                         "', Birthdate = '" & DateTimePicker1.Value.ToShortDateString.ToString & _
                                         "', Age = '" & txtage.Text & _
                                         "', Gender = '" & cmbgender.Text & _
                                         "', Street_Brgy = '" & txtstreetbaranggay.Text & _
                                         "', City = '" & txtcity.Text & _
                                         "', Province = '" & txtprovince.Text & _
                                         "', PostalCode = '" & txtpostalcode.Text & _
                                         "', Job_Position ='" & txtjobposition.Text & _
                                         "', Salary = '" & txtsalary.Text & _
                                         "', Deductions = '" & txtbonus.Text & _
                                         "', Bonus = '" & txtgrosssalary.Text & _
                                         "', GrossSalary = '" & txtgrosssalary.Text & _
                                         "', Netpay= '" & txtnetpay.Text & _
                                         "' where EmpIDno = '" & txtempidno.Text & "'", con)

        rs.ExecuteNonQuery()
        con.Close()
        displaydata()

To delete

---------------------------
Paki copy and paste na lang..
-------------------------------

    'To delete specific data

    Public Sub deletedata()
        con.Open()
        Dim rs As New OleDb.OleDbCommand("Delete * from Table1 where EmpIdno = '" & txtempidno.Text & "'", con)
        rs.ExecuteNonQuery()
        DataGridView1.Refresh()


        rs.ExecuteNonQuery()
        con.Close()


        displaydata()

Form4 (for Delete button Control Code)

-------------------------------------------------------------
Form4 (for Delete button Control Code)
-------------------------------------------------------------

  If txtsearchEmpIdno.Text = "" And txtsearchFirstName.Text = "" and txtsearchlastName.Text = "" Then
            MsgBox("Choose specific data to delete")

        Else
            Dim deleteYesNo = MsgBox("This record will be deleted. Are you sure?", MsgBoxStyle.YesNo, "Delete")
            If deleteYesNo = MsgBoxResult.Yes Then
                Form2.deletedata()
                MsgBox("Record deleted successfully", , "Message")
                Form2.txtempidno.Text = ""
                Form2.txtfirstname.Text = ""
                Form2.txtmiddlename.Text = ""
                Form2.txtlastname.Text = ""
                Form2.DateTimePicker1.Text = ""
                Form2.txtage.Text = ""
                Form2.cmbgender.Text = ""
                Form2.txtstreetbaranggay.Text = ""
                Form2.txtcity.Text = ""
                Form2.txtprovince.Text = ""
                Form2.txtpostalcode.Text = ""
                Form2.txtjobposition.Text = ""
                Form2.txtsalary.Text = ""
                Form2.txtdeductions.Text = ""
                Form2.txtbonus.Text = ""
                Form2.txtgrosssalary.Text = ""
                Form2.txtnetpay.Text = ""

                Me.Close()

            End If
        End If

Search Specific Data to Delete

============================
CODE
============================

'To SEARCH SPECIFIC DATA TO DELETE
    Public Sub searchdataforDelete()
        con.Open()

        Dim dt As New DataTable("Table1")
        Dim rs As New OleDb.OleDbDataAdapter("Select * from Table1 where EmpIdno= '" & _
                                        Form4.txtsearchEmpIdno.Text & "'or FirstName = '" & _
                                             Form4.txtsearchFirstName.Text & "' or LastName = '" & _
                                            Form4.txtsearchlastName.Text & "'", con)

        rs.Fill(dt)
        DataGridView1.DataSource = dt

        DataGridView1.Refresh()
        Label1.Text = dt.Rows.Count
        rs.Dispose()
        con.Close()

        Dim i As Integer

        If Val(Label1.Text) = 1 Then

            i = DataGridView1.CurrentRow.Index
            txtempidno.Text = DataGridView1.Item(0, i).Value
            txtfirstname.Text = DataGridView1.Item(1, i).Value
            txtmiddlename.Text = DataGridView1.Item(2, i).Value
            txtlastname.Text = DataGridView1.Item(3, i).Value
            DateTimePicker1.Text = DataGridView1.Item(4, i).Value
            txtage.Text = DataGridView1.Item(5, i).Value
            cmbgender.Text = DataGridView1.Item(6, i).Value
            txtstreetbaranggay.Text = DataGridView1.Item(7, i).Value
            txtcity.Text = DataGridView1.Item(8, i).Value
            txtprovince.Text = DataGridView1.Item(9, i).Value
            txtpostalcode.Text = DataGridView1.Item(10, i).Value
            txtjobposition.Text = DataGridView1.Item(11, i).Value
            txtsalary.Text = DataGridView1.Item(12, i).Value
            txtdeductions.Text = DataGridView1.Item(13, i).Value
            txtbonus.Text = DataGridView1.Item(14, i).Value
            txtgrosssalary.Text = DataGridView1.Item(15, i).Value
            txtnetpay.Text = DataGridView1.Item(16, i).Value
        End If

        Dim Empty As String

        Empty = DataGridView1.Item(0, i).Value
        If Empty = "" Then
            txtempidno.Text = ""
            txtfirstname.Text = ""
            txtmiddlename.Text = ""
            txtlastname.Text = ""
            DateTimePicker1.Text = ""
            txtage.Text = ""
            cmbgender.Text = ""
            txtstreetbaranggay.Text = ""
            txtcity.Text = ""
            txtprovince.Text = ""
            txtpostalcode.Text = ""
            txtjobposition.Text = ""
            txtsalary.Text = ""
            txtdeductions.Text = ""
            txtbonus.Text = ""
            txtgrosssalary.Text = ""
            txtnetpay.Text = ""
        End If


    End Sub

Search Button Control Code

---------------------------------------------------------------------------------------------------------------------

  ' Mag searh sang data..ikik
    Public Sub searchdata()

        con.Open()
        Dim dt As New DataTable("Table1")
        Dim rs As New OleDb.OleDbDataAdapter("Select * from Table1 where EmpIdno= '" & _
                                            Form3.txtsearchEmpIdno.Text & "'or FirstName = '" & _
                                             Form3.txtsearchFirstName.Text & "' or LastName = '" & _
                                             Form3.txtsearchlastName.Text & "'", con)

        rs.Fill(dt)
        DataGridView1.DataSource = dt

        DataGridView1.Refresh()
        Label1.Text = dt.Rows.Count
        rs.Dispose()
        con.Close()

        Dim i As Integer

        If Val(Label1.Text) = 1 Then

            i = DataGridView1.CurrentRow.Index
            txtempidno.Text = DataGridView1.Item(0, i).Value
            txtfirstname.Text = DataGridView1.Item(1, i).Value
            txtmiddlename.Text = DataGridView1.Item(2, i).Value
            txtlastname.Text = DataGridView1.Item(3, i).Value
            DateTimePicker1.Text = DataGridView1.Item(4, i).Value
            txtage.Text = DataGridView1.Item(5, i).Value
            cmbgender.Text = DataGridView1.Item(6, i).Value
            txtstreetbaranggay.Text = DataGridView1.Item(7, i).Value
            txtcity.Text = DataGridView1.Item(8, i).Value
            txtprovince.Text = DataGridView1.Item(9, i).Value
            txtpostalcode.Text = DataGridView1.Item(10, i).Value
            txtjobposition.Text = DataGridView1.Item(11, i).Value
            txtsalary.Text = DataGridView1.Item(12, i).Value
            txtdeductions.Text = DataGridView1.Item(13, i).Value
            txtbonus.Text = DataGridView1.Item(14, i).Value
            txtgrosssalary.Text = DataGridView1.Item(15, i).Value
            txtnetpay.Text = DataGridView1.Item(16, i).Value
        End If


        Dim Empty As String

        Empty = DataGridView1.Item(0, i).Value
        If Empty = "" Then
            txtempidno.Text = ""
            txtfirstname.Text = ""
            txtmiddlename.Text = ""
            txtlastname.Text = ""
            DateTimePicker1.Text = ""
            txtage.Text = ""
            cmbgender.Text = ""
            txtstreetbaranggay.Text = ""
            txtcity.Text = ""
            txtprovince.Text = ""
            txtpostalcode.Text = ""
            txtjobposition.Text = ""
            txtsalary.Text = ""
            txtdeductions.Text = ""
            txtbonus.Text = ""
            txtgrosssalary.Text = ""
            txtnetpay.Text = ""
        End If
    End Sub