[VB & ACCESS] Gestion des clé primaire

Version imprimable

26/08/2008, 16h09
Sytchev3

[VB & ACCESS] Gestion des clé primaire

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 ???
26/08/2008, 17h56
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...
27/08/2008, 08h47
Sytchev3

Ce que je voulais dire c'est que la clé primaire sera composée de 2 champs qui seront uniques.
27/08/2008, 09h26
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+
27/08/2008, 09h56
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?
27/08/2008, 14h05
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.
27/08/2008, 15h09
ucfoutu

Citation:

Envoyé par 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.

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)
27/08/2008, 15h22
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.
27/08/2008, 15h29
ucfoutu

Citation:

Envoyé par 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.

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...
27/08/2008, 15h38
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.

ç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:

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:

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