Comment afficher dans une ComboBox quii doit affiche les tables de ma base

Question

voici mon code
je suis sous VisualBasic 6.0

    'D&#233;claration de la variable de connexion
    Dim cnx As ADODB.Connection
    Set cnx = New ADODB.Connection


    'D&#233;finition du pilote de connexion
    cnx.Provider = "Microsoft.Jet.Oledb.3.51"
    
    'D&#233;finition de la cha&#238;ne de connexion
    cnx.ConnectionString = pathDB


    'Ouverture de la base de donn&#233;es
    cnx.Open


    'D&#233;claration de la variable de RecordSet
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
      
    
    'Ex&#233;cution de la requ&#234;te
    rst.Open "SELECT * FROM Table", cnx

Detail de ce que je n'arrive pas a faire

Je voudrais cr&#233;&#233; une requete pour afficher dans une combobox la liste de mes Tables de ma base pathDB

A partir de ca en selectionnant la table dans la combo,
 je veux afficher toutes les valeurs dans une FlexGrid 

Pour la flex grid pas de PB
il faudrait juste me dire comment la valeur de la combo peut etre prise en compte pour l'integrer dans les parametres de la flexgrid.

Merci d'avance

cs_beabea · Answer

Bonjour,


moi, j'utilise des datacombos et je cr&#233;&#233; un adodc


dans ton recordset, tu mets juste le libell&#233; de tes tables et ton numID

dim rst as new recordset
rst.open "SELECT libelle,numid from table order by libelle",cnn,adopenkeyset

et tu remplis ton adodc
set adodc.recordset=rst


Ensuite dans ta datacombo au niveau de la boundcolumn, tu mets ton numid et dans listfield =libelle et dans rowsource le nom de ton adodc

Ton datacombo est rempli de la liste de tes tables et en m&#234;me temps tu as le numID qui va te permettre ensuite d'alimenter ta flex grid.

En effet, sur le click de ta datacombo, tu r&#233;cup&#232;res le numID
dim a as integer
a=datacombo.boundcolumn

Ensuite, tu peux faire un nouveau recordset avec le select :
"select * from table where numid=" & a

et tu le lies &#224; ta flexgrid.

j'esp&#232;re r&#233;pondre &#224; ton probl&#232;me

cs_babson · Answer

le plus simple serait de cr&#233;er  dans ta DB une nouvelle table (a deux champs : numero, nom_table) dans laquelle tu mettras le noms de toute tes tables

puis dans ton combo box tu fais appelle a cette table.
ex:
Table: TouteTable
Champs: TouteTable.id, TouteTable.nom_table

TouteTable.numero   TouteTable.nom_table
1                                 client
2                                 fournisseur
........

'*************************************'
Dim rsCombo As New ADODB.Recordset 
Dim sQuery As String
 
    Combo1.Clear
    sQuery = ""
    sQuery = "SELECT * from TouteTable"
    Set rsCombo = DB.Execute(sQuery)
    
    If (rsCombo.EOF) =False Then
        While (Not rsCombo.EOF)
            Combo1.AddItem rsCombo("nom_table")
            Combo1.ItemData(Combo1.NewIndex) = rsCombo("numero")
            rsCombo.MoveNext
        Wend
    End If
    Combo1.ListIndex = 0
    
    rsCombo.Close
    Set rsCombo = Nothing

'****************************'

Puis si tu veux passer le nom de la table selectionner dans ton combobox il suffit d'utiliser la propri&#233;t&#233; Combo1.text

j'espere que &#231;a t'aidera

beber00 · Answer

Rebonjour j'arrive a afficher mes valeurs de tables avec la 2eme m&#233;thode



Merci



mais maintenant avec ma requeteSQL je voudrais y int&#233;grer la valeur de ma Combo

soit 



 rst.Open "SELECT * FROM Combo1.Text", cnx



mais ca ne marche pas 



POURQUOI????



est ce que comme je suis entre " " il ne comprend pas ce qu'est Combo1.Text



Merci encore pour vos r&#233;ponses et celles qui vont venir j'espere!!!!

beber00 · Answer

rst.Open "SELECT * FROM " + Combo1.Text, cnx



voila ce qu'il faut mettre et c trop fort!!!!!!!!!!!

cs_babson · Answer

oui il faut ne faut pas mettre Combo1.Text entre quote, mais faire comme indiquer ci-dessus

rst.Open "SELECT * FROM " & Combo1.Text, cnx

Babson everything is possible....

Comment afficher dans une ComboBox quii doit affiche les tables de ma base

5 réponses

Discussions similaires