Créer des TextBox dynamiquement selon le resultat d'une requête sql (distinct)

Version imprimable

01/02/2012, 07h51
Gigli

Créer des TextBox dynamiquement selon le resultat d'une requête sql (distinct)

Bonjour,

Je cherche à faire la chose suivante.

Un form.

Dans ce form, j'aimerais qu'existe plusieurs Textbox l'une au dessus de l'autre.

Cependant, j'aimerais que ces TextBox se créaient dynamiquement selon le nombre de résultat retourné par une requête SQL "select distinct...". Donc 4 résultats donnerait 4 texbox, 5 en donnerait 5... etc...
Cerise sur la gateau j'aimerais que le .text de la textbox soit le résultat de la requête :)

Auriez vous une idée pour la mise en place de ceci ?

Merci :ccool:

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim X as integer = 5 'absisce que tu choisis pour la première textbox Dim Y as integer = 5 'ordonnée que tu choisis pour la première textbox While reader.read dim tb as new textbox tb.text = reader("Nom_du_champ") mon_control.controls.add(tb) tb.position.x= X tb.position.y= Y Y += 5 'on déplacera la prochaine tb de 5 pixels vers le bas (par exemple) End while
Bon voilà en gros, je tape ça comme ça, c'est pas du code a copier coller brut, c'est le principe.
Il me semble que quand tu ajoutes la texbox au control tu as possibilité déjà de choisir son emplacement.

Alors, m'inpirant de ton aide et de ce que j'ai trouvé sur le net, j'ai testé ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
        strsql = "SELECT distinct typedépense from dépenses"
        Dim acscmd As New OleDb.OleDbCommand
        acscmd.CommandText = strsql
        acscmd.Connection = acsconn
        acscdr = acscmd.ExecuteReader
 
        Dim i As Integer
 
 
        While acscdr.Read
            For i = 1 To 3
                Dim x As New TextBox
                x.Name = "TextBox" & Str(i)
                x.Text = acscdr("typedépense")
                Controls.Add(x)
                x.Left = 842
                x.Top = i * 50
                x.Width = 150
            Next i
        End While

ça me fait 3 textbox (car c'est moi qui ait indiqué 3) mais le texte est toujours le même (assurance)

Alors que mon souhait aurait été de voir une textbox "assurance", un autre "electricité", et autre "eau" ...

Ah ben jme suis débrouiller en faisant plus simple... pourquoi se compliquer ? :mrgreen:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
        strsql = "SELECT distinct typedépense from dépenses"
        Dim acscmd As New OleDb.OleDbCommand
        acscmd.CommandText = strsql
        acscmd.Connection = acsconn
        acscdr = acscmd.ExecuteReader
 
        Dim i As Integer
 
        i = 1
        While acscdr.Read
 
            Dim x As New TextBox
            x.Name = "TextBox" & Str(i)
            x.Text = acscdr("typedépense")
            Controls.Add(x)
            x.Left = 842
            x.Top = i * 50
            x.Width = 150
            i = i + 1
        End While