[vb.net][2.0] Comment obtenir des infos sur les meta-données d'une base Access ?

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

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:

---

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;) .

Merci mais en fait je viens de trouver THE method :D
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:

---

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

---

Citation:

---

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:P ?

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:roll: ):

Code:

---

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

---

...

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...