Problème au niveau de bouton valider ajout article
asmoussa
Messages postés13Date d'inscriptionjeudi 8 mars 2012StatutMembreDernière intervention 4 juillet 2012
-
27 juin 2012 à 20:13
BunoCS
Messages postés15472Date d'inscriptionlundi 11 juillet 2005StatutModérateurDernière intervention25 mars 2024
-
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
A voir également:
Problème au niveau de bouton valider ajout article
Whismeril
Messages postés18992Date d'inscriptionmardi 11 mars 2003StatutContributeurDernière intervention29 mars 2024654 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?