Discussion :

[a_ferre]

Hello

J'ai une erreur bizarre qui survient lorsque j'essaye de charger des chaines de caractère dans une combobox: Aucune ligne à la position 0.

J'ai testé ce même bout de code et il marche avec mes autres tables. Je ne vois pas du tout pourquoi avec cette table cela ne marche pas.

L'erreur est renvoyée au niveau du ComboBox_Poste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub ComboBox_Nom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox_Nom.SelectedIndexChanged
 
        BDDDataSet = New DataSet()
        ConnecDB("SELECT * FROM PersonnelAgence WHERE Prénom like '" & Correct_Enr(ComboBox_Prénom.Text) & "'", "PersonnelAgence")
 
        Me.ComboBox_Poste.Text = BDDDataSet.Tables("PersonnelAgence").Rows(0).Item("NumeroPoste").ToString()
        Me.ComboBox_PTB.Text = BDDDataSet.Tables("PersonnelAgence").Rows(0).Item("Portable").ToString()
        Me.TextBox_Mail.Text = BDDDataSet.Tables("PersonnelAgence").Rows(0).Item("AdresseEmail").ToString()
        Me.ComboBox_Nom.Text = BDDDataSet.Tables("PersonnelAgence").Rows(0).Item("NomFamille").ToString()
 
    End Sub

Merki!

[Danyel]

Il ne doit rien y avoir dans la base ou dans le premier enregistrement ou dans le format.
Deja utilise un try/catch pour gerer tout cela.

[a_ferre]

Bonsoir

j'ai donc teste le try catch mais ca me retourne une erreur. VS me dit que ex n'est pas déclaré et que Exception est ambigu. J'comprends pas très bien ce "ambigu"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Private Sub ComboBox_Nom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox_Nom.SelectedIndexChanged
 
        BDDDataSet = New DataSet()
        ConnecDB("SELECT * FROM PersonnelAgence WHERE Prénom like '" & Correct_Enr(ComboBox_Prénom.Text) & "'", "PersonnelAgence")
 
        Try
            Me.ComboBox_Poste.Text = BDDDataSet.Tables("PersonnelAgence").Rows(0).Item("NumeroPoste").ToString()
            Me.ComboBox_PTB.Text = BDDDataSet.Tables("PersonnelAgence").Rows(0).Item("Portable").ToString()
            Me.TextBox_Mail.Text = BDDDataSet.Tables("PersonnelAgence").Rows(0).Item("AdresseEmail").ToString()
            Me.ComboBox_Nom.Text = BDDDataSet.Tables("PersonnelAgence").Rows(0).Item("NomFamille").ToString()
        Catch ex As Exception
 
        End Try
 
        MsgBox(ex.Message)
 
    End Sub

Merki

[Danyel]

Quelle version de vs ?

[a_ferre]

vs express edition 2008

[Danyel]

Deja place ton msgbox dans le catch (entre catch ... et end try)