Discussion :

[Sytchev3]

Bonjour à tous et à toutes,
J'ai un petit dilemme, j'ai une table dans une base de données access qui possède déjà une clé primaire et je souhaiterais ajouter une autre clé primaire à cette même table (je possèderai donc 2 clé primaires). Mais le problème c'est qu'avec toutes les méthodes que j'ai utilisé requête SQL et un bout de code en vb utilisant de l'ADO à chaque fois mon programme plante et me dit que la clé principale existe déjà. Comment puis je m'en sortir ???

[fernier]

il ne peut y avoir qu'une clef primaire par table, mais tu peux creer un autre numero unique dans la table, tant que tu sais qu'il est unique et que tu peux t'en servire comme une clef...

[Sytchev3]

Ce que je voulais dire c'est que la clé primaire sera composée de 2 champs qui seront uniques.

[BM42]

Salut

Avec SQL s'est possible, mais avec access tu ne peut créer qu'un seul champ qui possède la propriété de clé primaire.

Si tu veu une seconde cle il faut que tu utilise un champ et que tu le gère de façon a se que les enregistrements, ou que son association avec ta première clé soient unique.

A+

[fernier]

tu peux concatenner deux champs dans ta requete insert
clefprimaire + ' ' + clefpasprimaire
je ne comprend pas tres bien ton pb tu as un pb SQL? VB ou autre?

[Sytchev3]

Je réexplique j'ai une table dans une base de de données dont la clé primaire est constitué d'un seul champ (NUMTICKET). Je souhaite que la clé primaire soit désormais composée de 2 champs (NUMTICKET et DTEACHAT).tout en sachant que le champ DTEACHAT est déjà existant dans la table. Je ne sais donc pas comment faire dois je passer par une requête SQL ou un bout de code VB.

[ucfoutu]

Je réexplique j'ai une table dans une base de de données dont la clé primaire est constitué d'un seul champ (NUMTICKET). Je souhaite que la clé primaire soit désormais composée de 2 champs (NUMTICKET et DTEACHAT).tout en sachant que le champ DTEACHAT est déjà existant dans la table. Je ne sais donc pas comment faire dois je passer par une requête SQL ou un bout de code VB.

Voilà bien une question ne relevant pas de VB6 mais de la seule gestion et architecture de ta base de données, dont il va te falloir (au besoin) redéfinir la/les table(s).
Une table n'accepte qu'une clé primaire...
Tu devrais définitivement poser ta question sur un forum distinct de VB6, non ? (VB6 n'est là que pour l'exploitation des tables de ta base de données, telles qu'elles ont été définies)

[Sytchev3]

J'ai l'impression que tous le monde ne comprend pas mon problème.
Si vous me dites qu'une clé primaire ne peut être composé que d"un seul champ et pas par plusieurs, il faut absolument que j'arrête l'informatique.
D'autre part en utilisant la DAO ou l'ADODB je suis persuadé qu'il est possible de rédéfinir la clé primaire d'une table.

[ucfoutu]

J'ai l'impression que tous le monde ne comprend pas mon problème.
Si vous me dites qu'une clé primaire ne peut être composé que d"un seul champ et pas par plusieurs, il faut absolument que j'arrête l'informatique.
D'autre part en utilisant la DAO ou l'ADODB je suis persuadé qu'il est possible de rédéfinir la clé primaire d'une table.

Tu as tout dit toi-même
Une clé primaire peut par ailleurs être une clé composée...
Rien de celà n'est du VB6, toutefois...

[Sytchev3]

La DAO ou l'ADODB permettent de se connecter à une base de données et de réaliser de multiples actions en VB. C'est ce que je voulais dire je souhaite désormais que ma clé primaire soit composée.

[Sytchev3]

ça y est j'ai trouvé la solution en utilisation la DAO et de l'ADODB :

Tous d'abord on supprime la clé primaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Public Sub Supprimercleprimaire(sNomTable As String, sCheminbase As String)
Dim bds As Database, dft As TableDef, chp As Field
Dim idx As Index
    ' base de données en cours.
    Set bds = OpenDatabase(sCheminbase, False, False)
 
    ' Retourne un objet Tabledef pointant sur une table.
    Set dft = bds.TableDefs(sNomTable)
 
    ' Parcourt la collection Indexes de l'objet TableDef.
    For Each idx In dft.Indexes
 
        ' Vérifie la propriété Primary de l'index de l'objet Recordset.
        If idx.Primary = True Then
            dft.Indexes.Delete idx.Name
        End If
    Next idx
    Set bds = Nothing
 
End Sub

puis on la rajoute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Public Sub Ajoutcleprimaire(sNomTable As String, sNomchamp1 As String, sNomchamp2 As String, ByRef myConnexion As ADODB.Connection)
Dim oCat As ADOX.Catalog
Dim oTbl As ADOX.table
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(sNomTable)
'Crée une nouvelle clé primaire
Set oKey = New ADOX.Key
'Affecte les différentes propriétés
With oKey
    .Name = "PK_MaTable"
    .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
oTbl.Keys.Append oKey
End Sub