Discussion :

[steph77]

Bonjour,

J'ai le code suivant qui permet d'interroger un classeur fermé.
Je lui envoi une designation et il me remonte tout les codes articles qui sont identique à cette désignation dans une lisbox.
Ce que je cherche à faire c'est d'inclure dans cette liste d'autre champs qui sont issue de mon classeur fermé et qui correspondent à la même ligne que le code qui à été trouvé.
exemple:

Code :

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

1
2
3
 
code |  Designation1 |   Designation2  |  Prix
xx        Test                 Test2              10€

Je cherche à afficher dans une listebox les champs [code], [Designation1],[designation2]

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
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
 
Private Sub UserForm_Initialize()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String
    Dim texte_SQL1 As String
    Dim texte_SQL2 As String
    Dim texte_SQL3 As String
    Dim texte_SQL4 As String
    Dim texte_SQL5 As String
 
    Dim Rst1 As ADODB.Recordset
    Dim Rst2 As ADODB.Recordset
    Dim Rst3 As ADODB.Recordset
    Dim Rst4 As ADODB.Recordset
    Dim Rst5 As ADODB.Recordset
 
    Dim Tbl() As Variant
    Dim i As Integer, N As Integer
 
    UserForm1.Caption = "PUNCH"
 
    'Définit le classeur fermé servant de base de données
    Fichier = "C:\Documents and Settings\BaseCDC00003.xls"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "TECHNIQUE_1"
 
    Set Cn = New ADODB.Connection
 
    '--- Connection ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
 
    MatriceStd = "MATRICE 1MB2-59-S"
    '-----------------
     'Définit la requête.
 
    texte_SQL1 = "SELECT[Reference] FROM [TECHNIQUE_1$] WHERE[Designation] LIKE '" & MatriceStd & "%' "
 
    Set Rst1 = New ADODB.Recordset
 
    With Rst1
    .ActiveConnection = Cn
    .Open texte_SQL1 _
        , , adOpenStatic, adLockOptimistic, adCmdText
    End With
 
ListBox1.Clear
ListBox1.ColumnCount = Rst1.Fields.Count
 
ReDim Tbl(Rst1.RecordCount - 1, Rst1.Fields.Count)
'Tbl = Rst1.GetRows
 
Do While Not Rst1.EOF
    For i = 0 To Rst1.Fields.Count - 1
        If IsNull(Rst1.Fields(0).Value) = True Then
            Tbl(N, i) = ""
            Else
            Tbl(N, i) = CStr(Rst1.Fields(0).Value)
            RequeteMatriceStd = Rst1.Fields(0).Value
            MsgBox RequeteMatriceStd
 
        End If
    Next i
 
    N = N + 1
    Rst1.MoveNext
Loop
 
 
ListBox1.List() = Tbl
 
    '--- Fermeture connexion ---
 
    Cn.Close
    Set Cn = Nothing
 
 
End Sub

Quelqu'un à t'il une idéee de comment je peux faire?

[datacell33]

Ben comme ton programme est super bien codé, tu n'as qu'à changer ta requête SQL ! En effet, dynamiquement, le nombre de colonne de la listbox sera égal au nombre de champs retournés par ta requête...

Code :

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

ListBox1.ColumnCount = Rst1.Fields.Count

Je ne sais pas ce que tu attends comme champs retournés, mais commence par écrire :

Code :

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

texte_SQL1 = "SELECT* FROM [TECHNIQUE_1$] WHERE[Designation] LIKE '" & MatriceStd & "%' "

Et tu auras TOUS les champs.

Je mets ce code de côté, super bien écrit !

Edit: j'ai oublié un espace, c'est

SELECT *

[steph77]

Merci pour le compliment mais l'écriture du code vient d'un peu partout sur les FAQ du site.

Pour la solution, j'en suis arrivé hier à la même conclusion que toi.
MOn problème reste entier. Si j'ai besoins de ne selectionner que 3 colonnes sur 4 ou 5 je fais comment?

[steph77]

Bon j'ai trouvé,en faite c'est simple, je laisse la réponse au cas où.

tout se passe au niveau de la requête il suffit de mettre des "," entre chaques colonnes que l'on veut sélectionner.

Dans mon cas précis je souhaite séléctionner le champs "Reference" et "Designation" de la table Technique_1 dans ma listbox

Code :

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

1
2
 
texte_SQL1 = "SELECT [Reference],[Designation] FROM [TECHNIQUE_1$] WHERE[Designation] LIKE '" & MatriceStd & "%' "