Discussion :

[lumbroso]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[babaothe]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lumbroso]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

je ne vois pas pourquoi
merci de votre aide

[lumbroso]

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