Petite Question Manipulation Listbox
Bonjour à tous,
Avec le code ci-dessous, j'importe des données d'une base d'access pour les afficher dans une listbox. Problème, l'insertion des données ne commencent pas en ligne 1 et colonne 1 mais plutot en (2,2) sur la listbox. Je ne comprends pas pourquoi ça donne un tel résultat. Pourriez-vous m'aider?
J'en profite pour vous demander comment rajouter des titres dans les headers de la listbox.
En vous remerciant.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
| Private Sub CommandButton7_Click()
Dim reqSQL As String
Dim RecSet As DAO.Recordset
Dim dBase As DAO.Database
Dim Arr() As Variant
reqSQL = "SELECT * FROM table1"
Set dBase = DAO.OpenDatabase("C:\Users\me\Desktop\Guitarss.mdb", False, False)
Set RecSet = dBase.OpenRecordset(reqSQL, DAO.dbOpenSnapshot)
v = RecSet.GetRows(10)
intlgn = UBound(v, 2) + 1
intcol = UBound(v, 1) + 1
ReDim Arr(intcol, intlgn)
Dim TrArr() As Variant
ReDim TrArr(intlgn, intcol)
With ListBox1
.ColumnCount = 5
.ColumnHeads = True
End With
For j = 1 To intlgn
For i = 1 To intcol
Arr(i, j) = v(i - 1, j - 1)
Next i
Next j
TrArr = Application.Transpose(Arr)
ListBox1.List = TrArr
Set RecSet = Nothing
Set dBase = Nothing
End Sub |
