VBA & Transpose SQL

Version imprimable

23/10/2017, 16h22
manufer

VBA & Transpose SQL
Salut à tous,

J'utilise depuis peu la fonction:
Code:

1 2 ListBox1.List = Application.Transpose(cnx.Execute(SQL).GetRows)
La listebox est bien alimentée,
Le problème c'est que lorsque j'essaie de boucler dans cette listbox par la suite:
Code:

1 2 3 4 For i = 0 To ListBox1.ListCount - 1 Debug.Print ListBox1.List(i) Next i
J'ai ce message d'erreur: Erreur d'execution '70': Permission refusée.

Je ne peux plus vider la listbox avec:
Code:

1 2 ListBox1.RowSource = ""
Savez-vous de quoi il s'agit ?

Salut,
Quelqu'un pourrait me dire pourquoi lorsque je saisi une valeur dans le textbox,

C'est l'ensemble du tableau qui est chargé dans le listbox. Alors que je voudrai que seul les données
correspondantes à ma saisie soient affichées.

Code:

1
2
3
4
5
6
7
8
 
Dim SQL As String
Dim vartab() As String
Dim i As Integer
 
SQL = "SELECT CONCAT(Pays,' - ',  departement,' - ',  commune,' - ',  véhicule,' - ',  démographie,' - ', pluviométrie) as indic FROM fiche_detail "
 
Set req = cnx.Execute(SQL)

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
 
If ListBox1.Visible = False And TextBox1 <> "" Then
If Not CBool(Not (Not vartab)) Then
Erase vartab
 
i = 0
While Not req.EOF
    ReDim Preserve vartab(i)
    vartab(i) = req("indic")
    i = i + 1
    req.MoveNext
Wend
        req.Close
    End If
End If
 
 
If TextBox1 = "" Then
    ListBox1.Visible = False
Else
    ListBox1.Visible = True
    If CBool(Not (Not vartab)) Then
        For i = 0 To UBound(vartab)
               If vartab(i) Like "*" & TextBox1 & "*" Then
                  ListBox1.AddItem vartab(i)
               End If
               If vartab(i) = TextBox1 Then
                  ListBox1.Visible = False
               End If
        Next
    End If
End If

Je bloque dessus sans savoir d'où vient l'erreur, si vous avez une idée svp...

Bonjour,
On privilégiera toujours le Sql au Vba dans la.mesure ou le traitement est possible par requête!
Code:

1 2 SQL = "SELECT * from(SELECT CONCAT(Pays,' - ', departement,' - ', commune,' - ', véhicule,' - ', démographie,' - ', pluviométrie) as indic FROM fiche_detail) where [indic] Like '%" & TextBox1 & "%'" ListBox1.List = Application.Transpose(cnx.Execute(SQL).GetRows)
Citation:

Je ne peux plus vider la listbox avec

Code:

listbox.clear

30/10/2017, 09h39
manufer

Merci.