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)

[nadong]

Bonjour,

J'ai le même problème :
Je doit me connecter via un identifiant et mot de passe, je les compares avec ma MaskedTextBox et le message et le même, pourriez-vous m'aider :

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
18
19
20
21
22
23
24
25
26
27
28
Call ConnexionMotDePasse()
 
        'Création de la requête sql
        Dim varIdReeduc As String = mdtIdentifiant.Text
        Dim varMpReeduc As String = mdtMotDePasse.Text
 
        sql = "select noReeduc, nomReeduc, idReeduc, mpReeduc from reeducateur where idReeduc ='" & varIdReeduc & "and mpReeduc =" & varMpReeduc & "'"
        cmd = New OleDbCommand(sql)
        dta = New OleDbDataAdapter(cmd)
        cmd.Connection() = con
 
        dta.Fill(dts, "reeducateur")
        dtt = dts.Tables("reeducateur")
        Try
            If varIdReeduc = dtt.Rows(rownum).Item("idReeduc") And
                varMpReeduc = dtt.Rows(rownum).Item("mpReeduc") Then
                frmBReeducateur.Show()
                frmBReeducateur.lblAfficherReeducConnecter.Text = "Bonjour ! " & dtt.Rows(rownum).Item("nomReeduc")
                lblNoReeducateur.Text = dtt.Rows(rownum).Item("noReeduc")
            Else
                mdtIdentifiant.Text = ""
                mdtMotDePasse.Text = ""
                lblAvertissement.Visible = True
            End If
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Quelqu'un pourrait-il m'aider s'il vous plait ?

[rv26t]

Bonjour,

votre requete est fausse, il manque des cotes '

Afin d'éviter ce genre de problème, il faut utiliser les requêtes paramétrées. Voir Tuto ou Faq.