Détecter la présence d'une clé primaire [Résolu]

[frogs]

Bonjour,

je viens de poser la question sur le forum asp mais on m'a conseillé de voir le forum access ou sql, alors me voilà !!

Je souhaite vérifier en si la table de la base access sur laquelle je travaille possède un clé primaire et si oui quel est le nom de ce champ.

Tout cela dans une page asp

j'ai fais plusieurs recherche sur différent forum mais à chaque fois j'obtiens des lignes de commande pour oracle et sqlplus

Merci beaucoup pour votre aide.

Frogs

[ClaudeLELOUP]

Bonjour,


Vois si ceci fait ton bonheur.

[frogs]

Merci claude pour ta réponse, c'est bien cela mais à intégrer dans une page asp.

[LedZeppII]

Bonjour,

Voici un exemple (VB) avec ADOX.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Function GetPrimaryKeyFields(sTable As String, sBdd As String)
Dim oCat As Object         ' ADOX.Catalog
Dim oTbl As Object         ' ADOX.Table
Dim oKey As Object         ' ADOX.Key
Dim oColn As Object        ' ADOX.Column
Dim sColns As String
 
' Nouveau catalogue
Set oCat = CreateObject("ADOX.Catalog")
' Connexion à bdd MS-Access
oCat.ActiveConnection = "PROVIDER=Microsoft.Jet.OLEDB.4.0" & _
                        ";DATA SOURCE=" & sBdd
' Table
Set oTbl = oCat.Tables(sTable)
sColns = ""
' Enumeration clés
For Each oKey In oTbl.Keys
    ' Si clé primaire (Type = 1)
    If oKey.Type = 1 Then
       ' Enumération champs
       For Each oColn In oKey.Columns
           If Len(sColns) > 0 Then sColns = sColns & ","
           sColns = sColns & oColn.Name
       Next
    End If
Next
 
GetPrimaryKeyFields = sColns
 
Set oColn = Nothing
Set oKey = Nothing
Set oTbl = Nothing
Set oCat = Nothing
End Function

sTable est le nom de la table
sBdd est le chemin complet vers la base de données (ex: C:\Data\ma base.mdb")

A+

[frogs]

Merci, m'en vais le tester

[frogs]

Bon, j'ai testé et j'obtiens :
Microsoft VBScript compilation error '800a03ed'

Expected '('

/webprod/Resources/ressources_fr/aspmyadmin/afficher2.asp, line 9

Function GetPrimaryKeyFields sTable As String, sBdd As String

D'après mes recherches, il s'agit d'un bug microsoft qui est corrigé dans un pack de mise à jour, hors je ne peux pas en faire, .... donc merci à vous pour vos réponses et je vais essayer de détourner tout cela.

[LedZeppII]

Bonjour,

As-tu transformé mon exemple de code en VBS ?
Il faut, je crois, enlever les As String et As Object.

Et peut-être remplacer

Code :

1
2
' Nouveau catalogue
Set oCat = CreateObject("ADOX.Catalog")

Par

Code :

1
2
' Nouveau catalogue
Set oCat = Server.CreateObject("ADOX.Catalog")

A+

[frogs]

Je n'avais fait que la moitié du boulot !!!

Merci beaucoup pour ton aide LedZeppII

@+