Discussion :

[graphicsxp]

Bonjour,
Je dois analyser 2000 bases Access et stocker des informations sur leur meta-données dans une base SQL Server. Pour cela je parcours recursivement un repertoire du réseau qui contient tous les fichiers Access.

Mon problème est que je ne sais pas comment lire les meta-données de chaque fichier. Par exemple j'aimerais savoir si une base Access contient une table s'appellant 'Article' et qui elle-même contient un champ s'appellant 'ArticleID'.

Savez-vous comment faire ?

Merci

[DarkMolo]

Salut,
Voilà comment je fais, en fait je n'y comprend pas grand chose à la manière de chargement de meta-données, notement les Nothing, mais ça marche:

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        'Cette ligne, c'est pour les tables, tu y trouve un champ TABLE_NAME
        Dim DtTables As DataTable = MaOleDbConnection.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})

        'Cette ligne, c'est pour les colonnes, les principaux champs renvoyés sont TABLE_NAME et COLUMN_NAME
        Dim DtColonnes As DataTable = ConGesComModele.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, Nothing, Nothing})

Mets un DataGridDeTest.DataSource=DtTable puis DtColonnes pour que tu vois par toi même le résultat.
Fais un F1 sur la methode GetOleDbSchemaTable de l'object OledbConnection pour plus d'infos .

[graphicsxp]

Merci mais en fait je viens de trouver THE method
Il faut passer par l'objet COM 'DAO'. A partir de ca je peux faire absolument tout ce que je veux avec chaque fichier .mbd
Exemple:
j'ouvre une base access et je boucle sur les tables:

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Dim db As Database = da.Workspaces(0).OpenDatabase(files(i).ToString)
 
 For Each tdf As DAO.TableDef In db.TableDefs
 Next

[DarkMolo]

Il faut passer par l'objet COM 'DAO'. A partir de ca je peux faire absolument tout ce que je veux avec chaque fichier .mbd

Oui, mais tu sais, tu fais un grand pas vers l'arrière , DAO n'était déjà plus utilisé très avec VB6, alors maintenant avec VB NET2005 , tu vas te retrouver avec d'autre références que t'aurais pu éviter.

Pourquoi tu ne veux pas utiliser la méthode que je t'ai fournie, elle est trop longue ou t'avais déjà integrer ton Code DAO ?

Tu ne sais pas ce que tu manque, avec la méthode que je t'ai fournie, tu pourrais faire vite fait des trucs genre(et sans boucle ):

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
DtTable.Select("TABLE_NAME='Clients'").Lentgh()            '<-- Si >0 la table Clients existe dans la base
 
DtColonnes.Select("COLUMN_NAME='NomClt' AND TABLE_AME='Clients').Lentgh()             '<-- Si >0 la table Clients contient une colonne NomClt

...

[graphicsxp]

Ta méthode est correcte mais je vais me heurter à des problèmes de droits d'accès (en plus les identifiants sont différents pour chaque bases...). En passant par DAO, je n'ai pas ce problème et j'interagis directement avec la base Access. Mais sur le fond tu as raison...