Choix d'une table dans un data
Omega15
Messages postés
55
Date d'inscription
vendredi 27 août 2004
Statut
Membre
Dernière intervention
7 septembre 2009
-
25 janv. 2005 à 14:56
mythic_kruger Messages postés 241 Date d'inscription jeudi 8 janvier 2004 Statut Membre Dernière intervention 10 novembre 2005 - 29 janv. 2005 à 17:34
mythic_kruger Messages postés 241 Date d'inscription jeudi 8 janvier 2004 Statut Membre Dernière intervention 10 novembre 2005 - 29 janv. 2005 à 17:34
A voir également:
- Choix d'une table dans un data
- Php table - Conseils pratiques -PHP
- Ajouter un champ dans une table sql - Forum VB.NET
- Mettre à jour un champ avec un champ d'une autre table ✓ - Forum SQL
- Choix aleatoire - Forum Flash
- Afficher les colonnes d'une table sql ✓ - Forum SQL
4 réponses
mythic_kruger
Messages postés
241
Date d'inscription
jeudi 8 janvier 2004
Statut
Membre
Dernière intervention
10 novembre 2005
25 janv. 2005 à 20:17
25 janv. 2005 à 20:17
Il faut simplement énumer la collection TableDefs.
Dans un Form, mets un Label, un ListBox, et un contrôle Data.
Puis un Boutton pour lancer le code:
Private Sub Command1_Click()
' Énumère la collection TableDefs.
Dim tdfLoop As TableDef
List1.Clear
mabase = "D:\vb\gestion\gestmdb\users.mdb"
Data1.Caption = mabase
Set dbsNorthwind = OpenDatabase(mabase)
With dbsNorthwind
For Each tdfLoop In .TableDefs
xsys = Left(tdfLoop.Name, 4)
If xsys <> "MSys" Then
List1.AddItem tdfLoop.Name
End If
Next tdfLoop
.Close
End With
Set dbsNorthwind = Nothing
If List1.ListCount > 0 Then
If List1.ListCount = 1 Then
Label1.Caption = "Une seule Table dans la base"
Else
Label1.Caption = List1.ListCount & " Tables dans la base"
End If
Else
Label1.Caption = "Il n' y a aucune Table dans la base"
End If
End Sub
Certains remarquereont l' usage de la variable dbsNorthWind: c'est l'exemple de microsoft fourni avec Visual Basic pour illustrer l' utilisation d' ADO et DAO.
Dans un Form, mets un Label, un ListBox, et un contrôle Data.
Puis un Boutton pour lancer le code:
Private Sub Command1_Click()
' Énumère la collection TableDefs.
Dim tdfLoop As TableDef
List1.Clear
mabase = "D:\vb\gestion\gestmdb\users.mdb"
Data1.Caption = mabase
Set dbsNorthwind = OpenDatabase(mabase)
With dbsNorthwind
For Each tdfLoop In .TableDefs
xsys = Left(tdfLoop.Name, 4)
If xsys <> "MSys" Then
List1.AddItem tdfLoop.Name
End If
Next tdfLoop
.Close
End With
Set dbsNorthwind = Nothing
If List1.ListCount > 0 Then
If List1.ListCount = 1 Then
Label1.Caption = "Une seule Table dans la base"
Else
Label1.Caption = List1.ListCount & " Tables dans la base"
End If
Else
Label1.Caption = "Il n' y a aucune Table dans la base"
End If
End Sub
Certains remarquereont l' usage de la variable dbsNorthWind: c'est l'exemple de microsoft fourni avec Visual Basic pour illustrer l' utilisation d' ADO et DAO.
Omega15
Messages postés
55
Date d'inscription
vendredi 27 août 2004
Statut
Membre
Dernière intervention
7 septembre 2009
27 janv. 2005 à 18:09
27 janv. 2005 à 18:09
Je teste et je te tiens au courant.
Merci
Merci
Omega15
Messages postés
55
Date d'inscription
vendredi 27 août 2004
Statut
Membre
Dernière intervention
7 septembre 2009
27 janv. 2005 à 18:35
27 janv. 2005 à 18:35
Ca marche je te remerci.
mythic_kruger
Messages postés
241
Date d'inscription
jeudi 8 janvier 2004
Statut
Membre
Dernière intervention
10 novembre 2005
29 janv. 2005 à 17:34
29 janv. 2005 à 17:34
Notes que le contrôle Data est strictement inutile dans le code ci-dessus :P
L' énumération de la collection Tabledefs de l' objet Database t'a permis de découvrir la manipulation de cet objet DAO.
Bonne Prog.
L' énumération de la collection Tabledefs de l' objet Database t'a permis de découvrir la manipulation de cet objet DAO.
Bonne Prog.
