Problème au niveau de bouton valider ajout article

asmoussa Messages postés 13 Date d'inscription jeudi 8 mars 2012 Statut Membre Dernière intervention 4 juillet 2012 - 27 juin 2012 à 20:13
BunoCS Messages postés 15311 Date d'inscription lundi 11 juillet 2005 Statut Modérateur Dernière intervention 29 septembre 2022 - 28 juin 2012 à 09:35
je suis entrain de développer un formulaire ajout article; au niveau de bouton valider; lorsque je fais débugger il m’apparaît un message d'erreur comme ça: {"Impossible d'effectuer un cast d'un objet de type 'System.String' en type 'commande.Class_Famille'."} s'il vous plaît qui peut m'aider ??

c'est mon code de formulaire:
Public Class FrmAjout_Article

    Private Sub FrmAjout_Article_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim txtSql As String = "SELECT Type_Famille FROM Tbl_Famille"
        Dim maconnection As New System.Data.OleDb.OleDbConnection(connection.sConStr)
        Dim macommande As New System.Data.OleDb.OleDbCommand(txtSql, maconnection)


        ' Dim cs As String = " la chaine de connexion SQL" 'sConStr
        macommande.Connection.Open()

        Dim monLecture As System.Data.OleDb.OleDbDataReader = macommande.ExecuteReader(CommandBehavior.CloseConnection)

        ' vider le ComboBox 
        ComboBox_fam.Items.Clear()


        If monLecture.HasRows Then
            ' tant que le DataReader a une ligne d'enregistrements
            While monLecture.Read
                ' ajouter la donnée au ComboBox 
                ComboBox_fam.Items.Add(monLecture.GetValue(0))
            End While

        Else
            MessageBox.Show("No result for your Data", "Infos", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

    Private Sub btnValider_Article_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnValider_Article.Click
        Dim selType_Famille As Class_Famille = ComboBox_fam.SelectedItem
        connection.LancerRequete("insert into Tbl_Articles values (" + TxtREF.Text + ",'" + txtDesignation.Text + "'," + TextPR.Text + "," + TextTV.Text + "," + TextQUT.Text + ",+ selType_Famille.Type_Famille.ToString+ ") ')")
    End Sub
End Class



et aussi le module class_famille
Public Class Class_Famille
    Private _Type_Famille As String
    Public Sub New(ByVal Type_Famille As String)

        _Type_Famille = Type_Famille

    End Sub

    Public ReadOnly Property Type_Famille() As Integer
        Get
            Return _Type_Famille
        End Get
    End Property



End Class

2 réponses

Whismeril Messages postés 17806 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 28 septembre 2022 618
27 juin 2012 à 20:51
Bonsoir, ha non en fait.

Il me semble que ton post n'as pas grand chose à voir avec l'amélioration du site.
Pourtant c'est le thème que tu as utilisé:
Accueil > Forum > CodeS-SourceS > A propos des sites CodeS-SourceS > Boîte à idées pour améliorer CodeS-SourceS > problème au niveau de bouton valider ajout article


Peut-être eut il était judicieux de choisir un thème en rapport avec visual basic non?



Whismeril
0
BunoCS Messages postés 15311 Date d'inscription lundi 11 juillet 2005 Statut Modérateur Dernière intervention 29 septembre 2022 103
28 juin 2012 à 09:35
Hello,
Whismeril++ -> je déplace dans la section VB.
Ensuite, ton erreur est bien décrite:
{"Impossible d'effectuer un cast d'un objet de type 'System.String' en type 'commande.Class_Famille'."}

Dim selType_Famille As Class_Famille = ComboBox_fam.SelectedItem


@+
Buno, Admin CS
L'urgent est fait, l'impossible est en cours. Pour les miracles, prévoir un délai...
0