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
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
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
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.
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
130
27 sept. 2005 à 16:40
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/
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/