select *Résolu

Question

Bonjour,
je veux recuperer les noms de tous les champs d'une table ACCESS quel est le code à utiliser ?

cs_OriOn · Accepted Answer

Bonjour.

Une instruction SQL classique, select * from table

@+

orion
http://blogs.developpeur.org/orion/

gilnad · Answer

En fait je veux afficher les LIBELLES des champs d'une table pour les mettre dans une combobox ou autre

Ricks27 · Answer

Sub TableFields(ByVal DbName As String, ByVal TableName As String)
          Dim WrkSpc As DAO.Workspace
          Dim Db As DAO.Database
          Dim T As Long, U As Long
          Dim Mytable As DAO.TableDef
          
          Set WrkSpc = DAO.CreateWorkspace("MyWorkspace", "admin", "", dbUseJet)
          Set Db = WrkSpc.OpenDatabase(DbName, , , dbUseJet)
          Set Mytable = Db.TableDefs(TableName)
          
          For U = 1 To Mytable.Fields.Count - 1
                    Form1.cboFields.AddItem Mytable.Fields(U).Name
          Next U
          
          Db.Close
          Set Db = Nothing
          Set WrkSpc = Nothing
End Sub

Ricks27

cs_OriOn · Answer

Fallait le dire tout de suite :)

orion
http://blogs.developpeur.org/orion/

Select *

4 réponses

Discussions similaires