Adox

Signaler
Messages postés
44
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
30 août 2010
-
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
-
re,
ya t'il une personne qui s'y connait en adox sur vb6. Je fais une application avec est je suis bloqué. si quelqu'un si connait qu'il me fasse signe jlui décrirai mon probléme

merci

GIRAUD MARC

6 réponses

Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Salut,

Un conseil, évite de faire des doublons de poste, tu n'auras pas plus de réponses en posant plusieurs fois ta question, et cela embrouille pour suivre le topic...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Messages postés
44
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
30 août 2010

ok ,
Ya t-il un moyen de lire les informations d'une tables en adox ou on peut juste crées des tables

merci

GIRAUD MARC
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
OpenSchema ne te convient pas ?

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
44
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
30 août 2010

Je voudrai savoir quel champs de ma table sont des clé primaire

GIRAUD MARC
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
OpenSchema adSchemaPrimaryKeys

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
Sinon, si vraiment tu preferes ADOX, tu peux adapter ce code:

Public Sub test8()


'Aller dans projet -> référence puis cocher ADO Ext 2.8 For DLL and Security




Dim bdd As New ADOX.Catalog
Dim table As ADOX.table
Dim ind As ADOX.Index


Set bdd.ActiveConnection = CurrentProject.Connection

For Each table In bdd.Tables    
       For Each ind In bdd.Tables(table.Name).Indexes
           If (ind.PrimaryKey) Then
               MsgBox ind.Columns(0).Name
           End If
       Next
Next


End Sub