Comment afficher dans une ComboBox quii doit affiche les tables de ma base
beber00
Messages postés20Date d'inscriptiondimanche 22 mai 2005StatutMembreDernière intervention23 novembre 2005
-
17 juin 2005 à 13:54
cs_babson
Messages postés25Date d'inscriptionsamedi 7 octobre 2000StatutMembreDernière intervention16 décembre 2008
-
19 juin 2005 à 02:20
voici mon code
je suis sous VisualBasic 6.0
'Déclaration de la variable de connexion
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
'Définition du pilote de connexion
cnx.Provider = "Microsoft.Jet.Oledb.3.51"
'Définition de la chaîne de connexion
cnx.ConnectionString = pathDB
'Ouverture de la base de données
cnx.Open
'Déclaration de la variable de RecordSet
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
'Exécution de la requête
rst.Open "SELECT * FROM Table", cnx
Detail de ce que je n'arrive pas a faire
Je voudrais créé 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
A voir également:
Comment afficher dans une ComboBox quii doit affiche les tables de ma base
'*************************************'
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été Combo1.text