Ajouter une clé primaire

[Résolu/Fermé]
Signaler
Messages postés
3
Date d'inscription
mercredi 16 octobre 2013
Statut
Membre
Dernière intervention
18 novembre 2013
-
Messages postés
3
Date d'inscription
mercredi 16 octobre 2013
Statut
Membre
Dernière intervention
18 novembre 2013
-
Bonjour à tous,
Voilà, j'ai un script en VBA Access qui génère une table mais la table n'a pas de clé primaire.
comment faire pour ajouter la clé primaire?

1 réponse

Messages postés
3
Date d'inscription
mercredi 16 octobre 2013
Statut
Membre
Dernière intervention
18 novembre 2013

Voici le script que j'ai pu trouver mais je n'ai aucun résultat.
Sub Ajoutcleprimaire(qry_GOCAD_DLL3 As String, sNomchamp1 As String, sNomchamp2 As String, ByRef myConnexion As ADODB.Connection)

'Dim oCat As ADOX.Catalog
'Dim oTbl As ADOX.Table
Dim rst As Recordset
Dim oKey As ADOX.Key
'Instancie un nouvel objet ADOX.Catalog
Set oCat = New ADOX.Catalog

'Lie le catalogue à la base de données
'Set oCat.ActiveConnection = myConnexion
'Accède à la table
'Set oTbl = oCat.Tables(qry_GOCAD_DLL3)
Set rst = CurrentDb.OpenRecordset("qry_GOCAD_DLL3")

'Crée une nouvelle clé primaire
Set oKey = New ADOX.Key
'Affecte les différentes propriétés
With oKey
.Name = "PK_qry_GOCAD_DLL3"
.Type = adKeyPrimary
'Ajoute les trois champs à la clé primaire
'With .Columns
' .Append sNomchamp1
' .Append sNomchamp2

'.Append "champ3"
' End With
'End With
'Ajoute la clé primaire à la table
PK_qry_GOCAD_DLL3.Keys.Append oKey
End Sub

Quelqu'un peut m'aider à comprendre ce qui ne va pas?
svp......