Ajouter une clé primaire

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