Condition sur textbox

Résolu

roudi524 - 4 janv. 2016 à 21:41
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 - 5 janv. 2016 à 06:41

Bonjour,
voilà j'ai des textbox multilignes et une condition avec chaque textbox
chaque textbox est composé de trois lignes
j'ai testé comme suit:
if textbox.text<>"" then
requete 1 insert into...textbox.lines(0),textbox.lines(1),textbox.lines(2)....
if textbox.text2<>"" then requete 2 insert into...
ça marche sauf que quand je remplis tous les textbox
sinon j'ai l'erreur suivante:
L'index se trouve en dehors des limites du tableau.

A voir également:

Textbox vb
Textbox - Forum C# / .NET
Créer des textbox et labels dynamiques - Forum VB.NET
Bouton et textbox ✓ - Forum VB.NET
Vb decompiler ✓ - Forum VB.NET
Textbox c# ✓ - Forum C# / .NET

2 réponses

Réponse 1 / 2

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
4 janv. 2016 à 22:58

Bonjour,
1) Il est ici une règle de montrer son code exact (tel qu'écrit) et non une "simulation" du dit code. Tu es prié de t'y conformer
2) je serais fort tonné de ce que tu développes bien sous vb6 (le présent sous-forum de Vb). !

roudi524
Modifié par jordane45 le 4/01/2016 à 23:43

bonjour
voilà mon code

If txtd1.Text <> " " Then
            cmd.CommandType = System.Data.CommandType.Text
            cmd.CommandText = "insert  into test (enseignant,matiere,salle,seance,classe) values ('" & txtd1.Lines(0) & "','" & txtd1.Lines(1) & "','" & txtd1.Lines(2) & "','" & txts1.Text & "','" & cmbcla.Text & "')"
            cmd.Connection = con
            cmd.ExecuteNonQuery()
            MsgBox("ajouté", MsgBoxStyle.Information, "add")
        End If
        con.Close()

        con.Open()
        If d2 <> " " Then
            cmd.CommandType = System.Data.CommandType.Text
            cmd.CommandText = "insert  into test (enseignant,matiere,salle,seance,classe) values ('" & txtd2.Lines(0) & "','" & txtd2.Lines(1) & "','" & txtd2.Lines(2) & "','" & txts2.Text & "','" & cmbcla.Text & "')"
            cmd.Connection = con
            cmd.ExecuteNonQuery()
            MsgBox("ajouté", MsgBoxStyle.Information, "add")
        End If
        con.Close()

j'espère que c'est claire

-------------------------ATTENTION ------------------

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.

Réponse 2 / 2

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
Modifié par ucfoutu le 5/01/2016 à 06:43

J'ai écrit plus haut :

2) je serais fort étonné de ce que tu développes bien sous vb6 (le présent sous-forum de Vb). !

Les lignes de code que tu nous montres-là (drôle de mélange ...) ne fonctionneraient pas toutes en VB6 !
Et si écrites depuis autre chose, tu y as ajouté des "bouts" de VB6 !
Sous quoi développes-tu donc ?

Discussions similaires

Comment ecrire dans un TextBox...

[VBA] Créer une TextBox dans Excel et copier des cellules dedans

**** Différence entre VB et VBA***********

diferrence entre vba et vb.net,vb 6

la différence entre vb6 et VBA?

-------------------------ATTENTION ------------------

Votre réponse

Discussions similaires