[vb6] remplir un textbox à partir d'une base de données

bonjour

je voudrais savoir si c'est possible d'allimenter un champ text avec toutes le donnees d'une table
je travail sur vb6 et access
si c'est possible pouvez vous me donner un exemple
les donnees doivent etre sous fourme de ligne ou des que je clique c' toute la ligne qui est selectionner
merci j'espere avoir ete precis dans ma requette.
voici le code que j'ai rentrer il est directement executer dans le form load de la fenettre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Form_Load() Dim db As Database Dim rs As Recordset Dim rs1 As Recordset Set db = OpenDatabase("g:\facturation\facture.mdb") 'Set rs = db.OpenRecordset("clients", OpenDatabase) Set rs = db.OpenRecordset("select * from clients")     Do While Not rs.EOF Text1 = rs("numclt") & vbTab & rs("nomclt") & vbTab & rs("prenomclt") rs.MoveNext   Loop   End Sub

---

Code:

---

1 2 3 4 5 6 7

Text1.Text = "" Do While Not rs.EOF Text1.Text = Text1.Text & rs("numclt") & vbTab & rs("nomclt") & vbTab & rs("prenomclt") & VBcrlf   rs.MoveNext   Loop

---

La propriété Multiline de Text1 doit être = True

szalut

bien que je ne voie pas l'intérêt d'utiliser une textbox, je dirais (si on y tiens vraiment), qu'il serait alors préférable (plus rapide) de passer par seltext :

Code:

---

1 2 3 4 5 6

Do While Not rs.EOF text1.seltext = rs("numclt") & vbTab & rs("nomclt") & vbTab & rs("prenomclt") & VBcrlf   rs.MoveNext   Loop

---

salut a tous je ne comprend pas j'ai une erreur "run time error '13' type match"
sur cette ligne

Code:

---

Set rs = db.OpenRecordset("select * from clients")

---

je ne vois pas pourquoi
merci de votre aide

j'ai trouver la solution grace au chat il fallai mettre la bonne reference en priorite