[حريف برمجة]

هذا هو الكود ،، ضعه مثلاً في كوماند أو أي مكان تريد :

كود :

  Try
           sqlstr = "Select * From Employee Where c6=@c6 and c3=@c3 and c5=@c5"
           cmd = New OleDbCommand(sqlstr, con)

           cmd.Parameters.Add("@c6", OleDbType.VarWChar).Value = cmbEmployee.Text
           cmd.Parameters.Add("@c3", OleDbType.VarWChar).Value = cmbDepartment.Text
           cmd.Parameters.Add("@c5", OleDbType.VarWChar).Value = cmbBranch.Text

           da = New OleDbDataAdapter(cmd)

           dt.Clear()

           dt = New DataTable("Employee")

           da.Fill(dt)

           dgvEmployee.Rows.Clear()

           For Each rw As DataRow In dt.Rows
               dgvEmployee.Rows.Add(rw(0).ToString(), rw(1).ToString, rw(2).ToString, rw(3).ToString)
           Next


       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try