base de donnée , chargement de noms de champs dans des labels

Question

En fait j'ai une combobox qui contient toutes les tables de ma base de donn&#233;e acces er j'aurais voulu lorsque je choisi une des tables charger les noms champs dans des labels mais je n'y arrive pas si quelqu'un savait m'aider !!!

cs_DJTIME · Answer

Salut toine_tp je ne sais pas ce que tu utilise je suppose que tu travail avec l'ado donc ce qui serait peut etre chouette c'est par exemple de dire selon le choix dans ton combobox de changer le recordsource de ton adodc en mettant par exemple Adodc1.recordsource= ou alors mettre carrement une requete SQL Adodc1.recordset= "select * from " & & "'" Public Compris As Boolean Private Sub Form_Load() Do Until compris = True ShellExecute hwnd, "Open", "http://www.vbfrance.com", "", App.Path, 1 Loop MsgBox "Ouf! je vais po mourrir con ! ;)"

cs_CanisLupus · Answer

Salut, avant de r&#233;pondre, j'aimerais conna&#238;tre ta m&#233;thode d'acc&#232;s &#224; ta base.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

toine_tp · Answer

DAO , j avais oubli&#233; de le soulign&#233; :p d&#233;sol&#233;

cs_CanisLupus · Answer

Dans ce cas, essaie &#231;a, plut&#244;t que des labels, j'ai mis une listbox mais le principe est l&#224; :

Dim db As Database


Private Sub Form_Load()
Dim tbl As TableDef


' ouverture de la base
Set db = OpenDatabase("TonChemin\TaBase.mdb")


' on remplit la combo avec les noms des tables
For Each tbl In db.TableDefs
  Combo1.AddItem tbl.Name
Next


End Sub

' sur le clic dans la combo
Private Sub Combo1_Click()
Dim champ As Field
  List1.Clear
  For Each champ In db.TableDefs(Combo1.Text).Fields
    List1.AddItem champ.Name
  Next
End Sub


Reste plus qu'&#224; adapter pour afficher dans tes labels. Je te conseille un groupe de labels avec gestion des index.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

toine_tp · Answer

Merciiiiiiiiiiiiiiiiii

Base de donnée , chargement de noms de champs dans des labels

5 réponses

Discussions similaires