Recuperer element d'une liste pour requete sqlRésolu

Question

Bonjour,

J'ai une liste(cmbIntitule) contenant plusieurs noms de champs tous tires de ma bases de données.
J'aimerais pouvoir récupérer ces éléments et les mettre dans une requête SQL après le SELECT....

Par exemple si dans ma liste il y a titre, resume je veux que dans ma requete il soit marque SELECT titre, resume FROM...

Est-ce possible ?

Merci a tous

PCPT · Accepted Answer

salut,

un combo (cmbIntitule) ne peut avoir qu'un seul item sélectionné, accessible par .TEXT

si c'est une liste, tu devrais revoir ta nomenclature 

et dans ce cas le code est :
http://www.codyx.org/snippet_compter-lister-items-selectionnes-listbox_789.aspx

++ 

 
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

yafee · Answer

Euh désole ce n'est pas cmbIntitule, ça c'est ma combo sur laquelle j'alimente ma liste (liste1) contenant les noms des champs.
C'est bien une ListBox.
Pardon.
Je vais voir le lien de suite.

Merci

yafee · Answer

Ok je viens de voir le code est je n'ai pas très bien compris comment je pourrai utiliser ça dans une requête SQL...

Merci

PCPT · Answer

ah?.... Dim sFields() As String Dim sSql As String If GetSelectedItems(List1, sFields) > 0 Then sSql = "SELECT " & Join(sFields, ", ") & " FROM MATABLE;" MsgBox sSql Else MsgBox "Veuilez sélectionner vos champs de recherche" 'ou alors TOUS sSql = "SELECT * FROM MATABLE;" End If [../code.aspx?ID=39466 Coloration VB6, VBA, VBS]

yafee · Answer

En appelant ma fonction en cliquant sur un bouton j'ai un message d'erreur : "Espace de pile insuffisant"

Private Sub cmdGenerer_Click()

Dim items() As String

Call GetSelectedItems(liste1, items)

End Sub

Le debogeur point sur cette ligne de code : 

MsgBox "il y a " & CStr(GetSelectedItems(liste1)) & "  item(s) sélectionné(s)"

Quel est le problème ?

PCPT · Answer

et d'où vient cette ligne?

tu as copié les exemples avec la fonction....
tu n'as besoin QUE de la fonction :)

yafee · Answer

Oui j'ai essaye d'utiliser le 1er exemple pour voir si sa marche.

yafee · Answer

C'est bon j'avais juste mal compris comment l'utiliser
Merci

Par contre comment définir une liste pour que tous les éléments soit sélectionnés par défaut ?

PCPT · Answer

tu boucles comme dans la fonction, avec selected(i) = true

ps : pense à valider avec "réponse acceptée"

yafee · Answer

ReBonjour,

J'aimerais afficher le résultat dans ma requête dans une feuille Excel , voici mon code :

Dim bd As Database
Dim rst As Recordset
Set bd = OpenDatabase("....mdb")

Dim sFields() As String
Dim champs As String
Dim i As Integer

    If GetSelectedItems(liste1, sFields) > 0 Then
        champs = Join(sFields, ", ")
    End If
    Set rst = bd.OpenRecordset("Select " & champs & " From formation")

    Set myExcel = CreateObject("Excel.Application")
    myExcel.Visible = True 'Affiche ou non l'application excel
    Set myWk = myExcel.Workbooks.Add
    
    i = 1
    Do Until rst.EOF
        myWk.Sheets(1).Rows(i) = rst(" & champs & ")
        rst.MoveNext
        i = i + 1
    Loop

Mais il ne trouve apparemment pas les champs dans ma bdd "element non trouve dans cette collection"

Ais-je mal utiliser mon recordset ?

PCPT · Answer

tu as relus ton code?

tu cherches un champs qui s'appelle : 
" & champs & "


et même si tu cherchais avec le contenu de la variable, elle retournera TOUS tes champs entrecoupés de virgules puisque tu as fais le JOIN au dessus. il faut boucler lignes et colonnes avec sFields()

yafee · Answer

Peux tu me donner un exemple ?

PCPT · Answer

après que tu aies essayé et que tu m'aies montré cet essai, oui

parce que pour le moment c'est que du copier/coller, le tout cuit c'est pas ici

yafee · Answer

j'avoue....

Ok alors que veux tu dire exactement par boucler ligne et colonnes avec sFields() ?

yafee · Answer

Est ce de ça dont tu parlais ?

    w = 0
    For i = 0 To liste1.ListCount - 1
        Do Until rst.EOF
        w = w + 1
            myWk.Sheets(1).Cells(i + 2, w) = rst(w - 1)
            rst.MoveNext
        Loop
    Next i

Le resultat ne m'affiche qu'une seule ligne alors que je devrais en avoir 197....

PCPT · Answer

il y a de l'idée mais c'est pas çà non

ne fais pas référence à la liste puisque tout n'y est pas forcément sélectionné et que tu aurais donc une erreur si la requête ne contenait pas un des champs dans le select

yafee · Answer

....bon bah j'y arrive pas

PCPT · Answer

qu'as-tu essayé d'autre?

Recuperer element d'une liste pour requete sql

18 réponses

Votre réponse