masked textbox

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

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




++

---

Prenez un instant pour répondre à ce sondage svp