problème d'affichage
Hors ligneElvira Le 02/07/2014 à 13:16 Profil de Elvira Configuration de Elvira

Bonjour,

Je débute en Visual basic et j'ai un souci avec la connexion de mes combo box et la datagridview. et la j'ai vraiment besoin d'aide.

Avec mon code lorsque je saisie le matricule, le nom et le prénom ça marche mais pas pour les combo box

Mon code est le suivant:

Private Sub Btn_Rechercher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Rechercher.Click

Try

Da.SelectCommand.CommandText = " SELECT CANDIDAT.* FROM CANDIDAT WHERE CAN_NUMERO = CAN_NUMERO"

If Me.STxtMatricule.Text <> "" Then

Da.SelectCommand.CommandText &= " And CAN_NUMERO = '" & Me.STxtMatricule.Text & "' "

End If

If Me.STxtNom.Text <> "" Then

Da.SelectCommand.CommandText &= " And CAN_NOM like '%" & Me.STxtNom.Text & "%' "

End If

If Me.STxtNom.Text Is Nothing Then

Da.SelectCommand.CommandText &= " And CAN_NOM like '%" & Trim(Replace(Me.STxtNom.Text, "'", "''")) & "%' "

End If

If Me.STxtPrenom.Text <> "" Then

Da.SelectCommand.CommandText &= " And CAN_PRENOM like '%" & Me.STxtPrenom.Text & "%' "

End If

If Not Me.SCB_CAN_Origine.SelectedValue Is Nothing Then

Da.SelectCommand.CommandText &= " And CAN_ORIGINECANDIDATURE = '" & Me.SCB_CAN_Origine.SelectedValue & "' "

End If

If Not Me.CboCAN_DIPLOME.SelectedValue Is Nothing Then

Da.SelectCommand.CommandText &= " And CAN_DERNIERDIPLOMELIBEL = '" & Me.CboCAN_DIPLOME.SelectedValue & "' "

End If

CANDIDATBindingSource.DataSource.clear()

Da.SelectCommand.CommandText &= " ORDER BY CAN_NUMERO"

Da.Fill(CANDIDATBindingSource.DataSource)

Catch ex As Exception

End Try

End Sub

Vous avez résolu votre problème avec VIC ? Faites-le savoir sur les réseaux sociaux !
Vulgarisation-informatique.com
Cours en informatique & tutoriels