Masked textbox

Signaler
Messages postés
44
Date d'inscription
jeudi 9 juin 2005
Statut
Membre
Dernière intervention
29 janvier 2009
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
bonjour les amis,
un truc que j ai pas pu le fixer concernant mon masktextbox "txtRef
" numero de telephone usa sous forme de (###)### ####, quand j execute le code il me donne ce message Error 1 Value of type 'System.Windows.Forms.MaskedTextBox' cannot be converted to 'System.Windows.Forms.TextBox'.

mon code est le suivant :
====================================================

Private

Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim

Tnote_coupon() As TextBox = {Me.txtRef,
Me.txtNom, Me.txtPrenom}Dim InsertCommand AsString = "insert into fiche_campagne (fic_clt_gsm,fic_clt_nom,fic_clt_prenom) values(@C,@L,@P)"

Dim Com AsNew SqlCommand(InsertCommand, Cn)

Com.Parameters.Clear()

Com.Parameters.AddWithValue("@C", Me.txtRef.Text)

Com.Parameters.AddWithValue("@L", Me.txtNom.Text)

Com.Parameters.AddWithValue("@P", Me.txtPrenom.Text)

Com.ExecuteNonQuery()

====================
merci

1 réponse

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
46
salut,

je ne fais pas de dotnet mais à la lecture de ta première ligne :


Tnote_coupon()
As
TextBox = {
Me.

txtRef,


Me
.txtNom,
Me
.txtPrenom}





il semble que tu essayes de "convertir" des objets MaskEdit en TextBox...
c'est aussi ce que semble dire le message...

à première vue je dirai :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Tnote_coupon() As
System.Windows.Forms.MaskedTextBox

= {Me.txtRef,Me.txtNom, Me.txtPrenom} 'à supposer que toutes soient des maskedit..

dim asParam() as string = {"@C", "@L", "@P"}

Dim InsertCommand As String = "insert into fiche_campagne (fic_clt_gsm,fic_clt_nom,fic_clt_prenom) values(@C,@L,@P)"

Dim Com As New SqlCommand(InsertCommand, Cn)

Com.Parameters.Clear()

for i as int32 = 0 to tnote_coupon.length-1

Com.Parameters.AddWithValue(



asParam(i)



,



tnote_coupon(i).text)







next i



Com.ExecuteNonQuery()





erase asParam
erase




tnote_coupon







end sub











++

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp