Condition sur textbox [Résolu]

roudi524 - 4 janv. 2016 à 21:41 - Dernière réponse : ucfoutu 18035 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 17 février 2018 Dernière intervention
- 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.
Afficher la suite 

3 réponses

Répondre au sujet
ucfoutu 18035 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 17 février 2018 Dernière intervention - 4 janv. 2016 à 22:58
0
Utile
1
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). !

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.
Commenter la réponse de ucfoutu
ucfoutu 18035 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 17 février 2018 Dernière intervention - Modifié par ucfoutu le 5/01/2016 à 06:43
0
Utile
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 ?
Commenter la réponse de ucfoutu

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.