Ajouter une clé primaire

Résolu
Maude_84 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Maude_84 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
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?
A voir également:

1 réponse

Réponse 1 / 1
Maude_84 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
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......
0

Discussions similaires

Comment savoir comment on nous a ajouté sur Snap
Laura -
Lob6 -

15 réponses