Récupérer les tables access

Résolu
paloxicide Messages postés 225 Date d'inscription mardi 6 avril 2004 Statut Membre Dernière intervention 20 juin 2006 - 27 sept. 2005 à 15:43
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 27 sept. 2005 à 17:03
Voila ce que je dois faire mais je ne sais absolument pas comment m'y prendre.



Mon petit prog doit se connecter à une base de données que l'utilisateur doit spécifier dans une textbox.

Une fois connecter je récupère les noms de toutes les tables ainsi que de ces attributs et des valeurs correspondantes

2 réponses

jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
27 sept. 2005 à 17:03
Bonjour,

Pour récupérer les noms d'une table Access (ici Biblio.mdb) dans une ListBox.

Ne pas oublier de placer la référence à Access. (Projet / Références)



Private Sub Command1_Click()

Dim AppAccess As Access.Application

Dim i, j As Integer

Set AppAccess = CreateObject("Access.Application")

With AppAccess

.OpenCurrentDatabase ("C:\Program Files\Microsoft Visual Studio\vb98\Biblio.mdb")

j = 6

For i = 0 To .CurrentDb.TableDefs.Count - 1

If Left(UCase(.CurrentDb.TableDefs(i).Name), 4) <> "MSYS" Then

List1.AddItem .CurrentDb.TableDefs(i).Name

j = j + 1

End If

Next i

End With

AppAccess.Quit

Set AppAccess = Nothing

End Sub



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 131
27 sept. 2005 à 16:40
Regarde les sources utilisant des bases de données, tu devrait y
trouver ton bonheur (Connexion avec ADOX, énumération des TableDefs,
énumération des Fields, connexion avec ADODB, énumération des Fields
contenus dans les Recordsets).

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en français : www.ProgOtoP.com/popapi/
Rejoignez-nous