Champ d'une base de donnée

Question

Salut

je voudrai un code qui me permettra de renvoyer la liste des champs d'une table de access 97 et access 2000

ED · Answer

Voici une soluce avec insertion dans une table des noms des champs d'une autre table

Dim OUvreDB As Database
Dim Deftable As TableDef
Dim rsMenu As Recordset
Dim i As Integer

    Set OUvreDB = OpenDatabase("Chemin_de_MaDB")
    Set Deftable = OUvreDB.TableDefs("Nom_De_Ma_Table_dont_les champs_sont_a_lister")
Set rsMenu = CurrentDb.OpenRecordset("NomdeTableavecunchampsnomme:Nomduchamps", dbOpenTable)
    For i = 0 To Deftable.Fields.Count - 1
            rsMenu.AddNew
            rsMenu!Nomduchamps = Deftable.Fields(i).Name
            rsMenu.Update
        End If
    Next i

ED · Answer

Voici une soluce avec insertion dans une table des noms des champs d'une autre table

Dim OUvreDB As Database
Dim Deftable As TableDef
Dim rsMenu As Recordset
Dim i As Integer

    Set OUvreDB = OpenDatabase("Chemin_de_MaDB")
    Set Deftable = OUvreDB.TableDefs("Nom_De_Ma_Table_dont_les champs_sont_a_lister")
Set rsMenu = CurrentDb.OpenRecordset("NomdeTableavecunchampsnomme:Nomduchamps", dbOpenTable)
    For i = 0 To Deftable.Fields.Count - 1
            rsMenu.AddNew
            rsMenu!Nomduchamps = Deftable.Fields(i).Name
            rsMenu.Update
        End If
    Next i

Champ d'une base de donnée

2 réponses

Discussions similaires