Remplir des champs de la table Access (ADO) via des TextBoxs

Bonjour
Je suis maître d’école et je veux développer une petite application vb6

Pièce jointe 186098

Je cherche s'il est possible de remplir les champs de la table Access via les 4 TextBoxs en cliquant le CommandButton add.
Si ceci n'est pas possible, quel autre contrôle peut faire la tâche?
merci

Possible mais long à coder.

Moi je préfèrerais un contrôle ListBox à un contrôle TextBox; car pour ListBox, il suffit d'invoquer l'index de l'élément à ajouter.
Pour un TextBox(Tâche un peu difficile), on doit tout spliter(pour les 4 contrôles) ensuite l'ajouter à la BD.

Citation:

---

Envoyé par l_autodidacte

Possible mais long à coder.

Moi je préfèrerais un contrôle ListBox à un contrôle TextBox; car pour ListBox, il suffit d'invoquer l'index de l'élément à ajouter.
Pour un TextBox(Tâche un peu difficile), on doit tout spliter(pour les 4 contrôles) ensuite l'ajouter à la BD.

---

Merci pour la réponse. mais le problème est qu'on peut pas écrire sur une lisbox.
Avec votre idée j'ai pensé à contourner l problème en transmettant data du texts sur listbox et puis vers database.
Malheureusement je me suis rencontré par ce problème.
Quand je copie les noms des élèves qui son affichées sut le text , ils s'affichent horizontalement. Y'a t-il un moyen pour les afficher verticalement.

Pièce jointe 186107
Merci

L'écriture directe dans ListBox ne peut se faire que si on tape un seul caractère, sinon le chemin est un peu long(pour écrire plus d'un caractère)
Le reste est expliqué dans Form1

Citation:

---

Envoyé par l_autodidacte

L'écriture directe dans ListBox ne peut se faire que si on tape un seul caractère, sinon le chemin est un peu long(pour écrire plus d'un caractère)
Le reste est expliqué dans Form1

---

Than you man
You're very generous
Thanks a million

A propos des caractères qui apparaissent comme les lettres arabes sj(ج سـ) : Ton système est sûrement BIDI(Arabe-Français), le retour chariot est traduit par le système en ces caractère(ج سـ)

Bonjour,

Et pourquoi ne pas utiliser des Combobox où on peut écrire?

Citation:

---

Envoyé par l_autodidacte

A propos des caractères qui apparaissent comme les lettres arabes sj(ج سـ) : Ton système est sûrement BIDI(Arabe-Français), le retour chariot est traduit par le système en ces caractère(ج سـ)

---

merci l_autodidacte pour la remarque
et que dois-je faire pour se débarrasser de ces caractère?

Citation:

---

Envoyé par iclic

Bonjour,

Et pourquoi ne pas utiliser des Combobox où on peut écrire?

---

Merci pour l'idée

Citation:

---

et que dois-je faire pour se débarrasser de ces caractère?

---

C'est déjà écrit dans la procédure

Code:

---

1 2 3 4 5 6 7 8

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text2.Text <> "" Then List1.AddItem Replace(Text2.Text, vbNewLine, "") Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Text2.SelText = "" End If End Sub

---

Dans la ligne 3 : Replace(Text2.Text, vbNewLine, "") remplace tout retour chariot par un caractère nul(chaine vide)

l_autodidacte
Tout est résolu
Merci beaucoup

Salut
Histoire de pinailler :mrgreen:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text2.Text <> "" Then List1.AddItem Replace(Text2.Text, vbNewLine, "") 'Text2.SelStart = 0 'Text2.SelLength = Len(Text2.Text) 'Text2.SelText = "" Text2.Text = "" End If End Sub

---

Salut ProgElecT

Parfois quand on écris, on a la tête ailleurs.

En effet ce que tu proposes est plus concis.