[VBA-A97] DAO : Suppression champs et création MCD...

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à tous...

J'ai quelques questions pour vous concernant la modification de tables et la création de relations par DAO...

Je remercie également Tofalu pour son excellent tuto ici.

1er blocage : j'ai X tables dans une db pour lesquels je dois créer le MCD après une ré-importation de toutes ces tbl via ODBC.
Sur les conseils de Tofalu j'ai donc créer dans une tbl spécifique "tblRelation" ces relations avec ces champs :
TablePrincipale__________Texte
Champprincipal__________Texte
TableSecondaire ________Texte
ChampSecondaire _______Texte
MAJEnCascade __________Oui/Non
SuppressionEnCascade ___Oui/Non

Ensuite je dois donc créer les relations avec chacun des enregistrements à l'aide de ce code :
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 28 Private Function CreerRelationTable() Dim oDb As DAO.Database Dim oRlt As DAO.Relation Dim oFld As DAO.Field Set oDb = CurrentDb 'Crée la relation Set oRlt = oDb.CreateRelation 'Définit les propriétés oRlt.Attributes = dbRelationUpdateCascade oRlt.ForeignTable = [tblRelation]![TableSecondaire].Value oRlt.Name = [tblRelation]![ChampPrincipal].Value oRlt.Table = [tblRelation]![TablePrincipale].Value 'Crée le champ dans la relation Set oFld = oRlt.CreateField([tblRelation]![ChampPrincipal].Value) 'Définit le nom de la clé externe oFld.ForeignName = [tblRelation]![ChampSecondaire].Value 'Ajoute le champ oRlt.Fields.Append oFld 'Rafraîhit la collection Relations oDb.Relations.Refresh 'Ajoute la relation oDb.Relations.Append oRlt 'Rafraîhit la collection Relations oDb.Relations.Refresh 'Ferme la base de données oDb.Close Set oDb = Nothing End Function
Ma question : Comment structurer le code pour lire l'ensemble des enregistrements et créer toutes les relations de la tblRelation...Surement à l'aide d'un Do...Loop...?

2ème blocage : même principe que le 1er lol; je dois supprimer, dans toutes mes tables importées, des champs qui ne me servent pas. J'ai donc créé une tblChampASupprimer avec :
TableSource_______________Texte
ChampASupprimer__________Texte
Code:

1 2 3 4 5 6 7 8 9 10 Private Function SupprimerChamp (oBaseDeDonnees As DAO.Database, strNomTable As String, strNomChampASupprimer As String) As Boolean 'Récupère la table Set oTbl = oBaseDeDonnees.TableDefs(strNomTable) 'Supprime le champ oTbl.Fields.Delete (strNomChampASupprimer) 'Renvoie True SupprimerChamp = True Exit Function
Ma question : Comment structurer le code pour lire l'ensemble des enregistrements et supprimer tous les champs de la tblChampASupprimer ...Surement à l'aide d'un Do...Loop...?

Enorme merci à tous...je suis prêt à apprendre en suivant vos conseils ;-)
@+

22/05/2006, 10h50
JeremieT

Bonjour à tous...

Tofalu m'a précisé qu'il fallait parcourir les lignes de la table avec un recordset (voir son tutos pour les détails) mais je n'arrive pas à comprendre comment le structurer...je sais je suis pas très malin mais bon...;-)

Pouvez-vous m'orienter et ùe filer un tit coup de main...

Merci à tous...
@+

Re-Bonjour,

Je fais une proposition pour la 2ème partie concernant la liste des champs à supprimer stockée dans une table :
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 28 29 30 31 32 33 34 Private Function IndexerChamp() Set oRst = oDb.OpenRecordset("tblChampAIndexer", dbOpenTable) 'Se place sur le premier enregistrement oRst.MoveFirst IndexerChampSub 'Se place sur l'enregistrement suivant oRst.MoveNext IndexerChampSub 'Libération des objets oRst.Close Set oRst = Nothing End Function ************************************************* Private Function IndexerChampSub() 'Set oRst = oDb.OpenRecordset("tblChampAIndexer", dbOpenTable) 'Instancie la table Set oTbl = oDb.TableDefs(oRst.Fields("TableSource").Value) 'Crée l'index en le nommant Set oInd = oTbl.CreateIndex(oRst.Fields("ChampAIndexer").Value) 'Cree le champ dans l'index Set oFld = oInd.CreateField(oRst.Fields("ChampAIndexer").Value) 'Ajoute le champ à la collection Fields oInd.Fields.Append oFld 'Définit la clé primaire oInd.Primary = True 'Ajoute l'index à la table oTbl.Indexes.Append oInd 'Rafraichit la collection oTbl.Indexes.Refresh 'Libération des objets Set oTbl = Nothing Set oInd = Nothing Set oFld = Nothing End Function
Dois-je partir sur ce principe ? Comment mieux organiser le code pour ne pas répéter la suppression en "dur" à chaque changement d'enregistrements,...
Dans le tuto, il y a un :
Citation:
Pour parcourir l'ensemble des enregistrements d'un Recordset, vous procéderez ainsi :
Code:

1 2 3 4 5 'Tant que non fin du recordset While Not oRecordset.EOF 'Passer au suivant oRecordset.MoveNext Wend
Comment l'utiliser dans mon cas : à chaque enregistrement, réaliser la suppression dans la table X sur le champ Y...

Merci d'avance à tous ;-)

P.S. Par contre dans le code que je vous ais donné, j'ai une erreur "Erreur 3022, Modifications non effectuées: risque de doublons dans champs index, clé primaire ou relation interdisant les doublons"
Dans la tblChampAIndexer j'ai 2 enregistrements : Table1/IdRef et Table2/IdRef. Le problème vient surement du fait que j'ai 2 champs nommés à l'identique dans les 2 tables, ce qui est normal dans mon cas. Comment contourner l'erreur ?

22/05/2006, 15h35
JeremieT

Re à tous...

En attendant des réponses sur mes questions, que me conseillez-vous pour indenter le code en ligne ou autre et d'assez fiable ;-)

Merci à tous...
22/05/2006, 15h53
Tofalu

Alors, si on prend la table tblRelation, le parcours de cette table, sera obtenu par quelque chose de ce style :

Citation:

Sub CreerRelationDepuisTable()
Dim oDb As DAO.Database
Dim oRst As DAO.Recordset
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("tblRelation")
With oRst
While Not .EOF
creerUneRelation oDb, _
.Fields("TablePrincipale").Value, _
.Fields("ChampPrincipal").Value, _
.Fields("TableSecondaire").Value, _
.Fields("ChampSecondaire").Value, _
.Fields("MAJEnCascade").Value, _
.Fields("SuppressionEnCascade").Value
.MoveNext
Wend
End With
End Sub

Cette boucle fait donc appel à la methode creerUneRelation :

Citation:

Sub creerUneRelation(oDb As DAO.Database, _
strTablePrincipale As String, _
strChampPrincipal As String, _
strTableSecondaire As String, _
strChampSecondaire, _
bMaj As Boolean, bDel As Boolean)
Dim oRlt As DAO.Relation
'Crée la relation
Set oRlt = oDb.CreateRelation
oRlt.Attributes = IIf(bMaj, dbRelationUpdateCascade, 0) + _
IIf(bDel, dbRelationDeleteCascade, 0)
oRlt.ForeignTable = strTableSecondaire
oRlt.Name = strTablePrincipale & strTableSecondaire
oRlt.Table = strTablePrincipale
'Crée le champ dans la relation
Set oFld = oRlt.CreateField(strChampPrincipal)
'Définit le nom de la clé externe
oFld.ForeignName = strChampSecondaire
'Ajoute le champ
oRlt.Fields.Append oFld
'Rafraîhit la collection Relations
oDb.Relations.Refresh
'Ajoute la relation
oDb.Relations.Append oRlt
'Rafraîhit la collection Relations
oDb.Relations.Refresh
End Sub

Je n'ai pas pu tester donc il ne serait pas étonnant qu'il y ait quelques petit soucis :aie:
22/05/2006, 16h24
JeremieT

Voici l'erreur qui ressort en brut de code : :-)
"Erreur 3201 : Vous ne pouvez pas ajouter ou modifier un enregistrement car l'enregistrement connexe est requis dans la table 'XXX'"

!?:;?/!;?,!:,: ?:aie:
22/05/2006, 16h40
Tofalu

Ah ben ça ça vient pas de mon code puisque de ne fais pas d'insertion :roll:
22/05/2006, 16h43
Petogaz

Citation:

"Erreur 3201 : Vous ne pouvez pas ajouter ou modifier un enregistrement car l'enregistrement connexe est requis dans la table 'XXX'"

c'est un problème lié à tes relations. tu as certainement une intégrité referentielle et tu essais d'ajouter des valeurs dans une table secondaire sans qu'elles existent dans la table primaire au préalable.
22/05/2006, 17h14
JeremieT

Citation:

Envoyé par Tofalu

Ah ben ça ça vient pas de mon code puisque de ne fais pas d'insertion :roll:

en fait cela vanait du dbRelationUpdateCascade et dbRelationDeleteCascade;)

Par contr si j'ai plusieurs relations entre 2 mêmes tables, il me rajoute un tbl soure à chaque fois en l'incrémentant avec un "_1" dans le MCD, comment faire pour que toutes les relations partent d'une seule tbl et arrive sur une seule autre tbl ;-)

@+
22/05/2006, 17h14
JeremieT

Citation:

Envoyé par Petogaz

c'est un problème lié à tes relations. tu as certainement une intégrité referentielle et tu essais d'ajouter des valeurs dans une table secondaire sans qu'elles existent dans la table primaire au préalable.

merci peto c'était bien ça ;-)

et là je sais pas ce que je viens de faire mais cela ne fonctionne plus !!!

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Function CreerRelationTable()
Set oRst = oDb.OpenRecordset("tblRelation", dbOpenTable)
With oRst
While Not .EOF
CreerUneRelation oDb, _
.Fields("TablePrincipale").Value, _
.Fields("ChampPrincipal").Value, _
.Fields("TableSecondaire").Value, _
.Fields("ChampSecondaire").Value, _
.Fields("MAJEnCascade").Value, _
.Fields("SuppressionEnCascade").Value
.MoveNext
Wend
End With
End Function
'***********************************************
Private Function CreerUneRelation()
'Crée la relation
Set oRlt = oDb.CreateRelation
oRlt.Attributes = dbRelationDontEnforce
oRlt.ForeignTable = oRst.Fields("TableSecondaire").Value
oRlt.Name = oRst.Fields("ChampPrincipal").Value
oRlt.Table = oRst.Fields("TablePrincipale").Value
'Crée le champ dans la relation
Set oFld = oRlt.CreateField(oRst.Fields("TablePrincipale").Value & oRst.Fields("ChampPrincipal").Value)
'Définit le nom de la clé externe
oFld.ForeignName = oRst.Fields("ChampSecondaire").Value
'Ajoute le champ
oRlt.Fields.Append oFld
'Rafraîhit la collection Relations
oDb.Relations.Refresh
'Ajoute la relation
oDb.Relations.Append oRlt
'Rafraîhit la collection Relations
oDb.Relations.Refresh
'Libération des objets
oRst.Close
Set oRst = Nothing
Set oRlt = Nothing
Set oFld = Nothing
End Function

J'ai une erreur d'exécution 13 : Type Incompatible !

Erreur ici a priori

Code:

1
2
3
4
5
6
7
CreerRelationTableSub oDb, _
.Fields("TablePrincipale").Value, _
.Fields("ChampPrincipal").Value, _
.Fields("TableSecondaire").Value, _
.Fields("ChampSecondaire").Value, _
.Fields("MAJEnCascade").Value, _
.Fields("SuppressionEnCascade").Value

Merci à tous...

P.S. Même chose ici :

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
28
29
30
31
32
33
34
35
36
Private Function IndexerChamp()
Set oRst = oDb.OpenRecordset("tblChampAIndexer", dbOpenTable)
    With oRst
        While Not .EOF
            IndexerChampSub oDb, _
            .Fields("TableSource").Value, _
            .Fields("ChampAIndexer").Value
            .MoveNext
        Wend
    End With
'Libération des objets
oRst.Close
Set oRst = Nothing
End Function
'******************************
Private Function IndexerChampSub()
'Set oRst = oDb.OpenRecordset("tblChampAIndexer", dbOpenTable)
'Instancie la table
Set oTbl = oDb.TableDefs(oRst.Fields("TableSource").Value)
'Crée l'index en le nommant
Set oInd = oTbl.CreateIndex(oRst.Fields("ChampAIndexer").Value)
'Cree le champ dans l'index
Set oFld = oInd.CreateField(oRst.Fields("ChampAIndexer").Value)
'Ajoute le champ à la collection Fields
oInd.Fields.Append oFld
'Définit la clé primaire
oInd.Primary = True
'Ajoute l'index à la table
oTbl.Indexes.Append oInd
'Rafraichit la collection
oTbl.Indexes.Refresh
'Libération des objets
Set oTbl = Nothing
Set oInd = Nothing
Set oFld = Nothing
End Function

Erreur ici a priori

Code:

1
2
3
IndexerChampSub oDb, _
.Fields("TableSource").Value, _
.Fields("ChampAIndexer").Value

Le 1er index est bien créer mais pas le 2ème que j'ai dans tblChampAIndexer

Bonjour à tous !!!

Si j'adopte le même principe pour les champs à supprimer je me retrouve avec une erreur de plus !!! :D :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Function SupprimerChamp() As Boolean
    'On Error GoTo err
    Set oRst = oDb.OpenRecordset("tblChampASupprimer", dbOpenTable)
    With oRst
        While Not .EOF
            SupprimerChampSub oDb, _
                                  .Fields("TableSource").Value, _
                                  .Fields("ChampASupprimer").Value
            .MoveNext
        Wend
    End With
End Function
'****************************************************
Private Function SupprimerChampSub()
'Récupère la table
    Set oTbl = oDb.TableDefs(oRst.Fields("TableSource").Value)
    'Supprime le champ
    oTbl.Fields.Delete (oRst.Fields("ChampASupprimer").Value)
    'Renvoie True
    SupprimerChampSub = True
End Function

Erreur : Une erreur inattendue est survenue...

Merci

Pour être précis je vous remets donc le code et les erreurs rencontrées...:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
Private Function IndexerChamp()
    Set oRst = oDb.OpenRecordset("tblChampAIndexer", dbOpenTable)
    With oRst
        While Not .EOF
            IndexerChampSub oDb, _
                            .Fields("TableSource").Value, _
                            .Fields("ChampAIndexer").Value
            .MoveNext
        Wend
    End With
    'Libération des objets
    oRst.Close
    Set oRst = Nothing
End Function
'************************************************************************
Private Function IndexerChampSub()
Set oRst = oDb.OpenRecordset("tblChampAIndexer", dbOpenTable)
'Instancie la table
    Set oTbl = oDb.TableDefs(oRst.Fields("TableSource").Value)
    'Crée l'index en le nommant
    Set oInd = oTbl.CreateIndex(oRst.Fields("ChampAIndexer").Value)
    'Cree le champ dans l'index
    Set oFld = oInd.CreateField(oRst.Fields("ChampAIndexer").Value)
    'Ajoute le champ à la collection Fields
    oInd.Fields.Append oFld
    'Définit la clé primaire
    oInd.Primary = True
    'Ajoute l'index à la table
    oTbl.Indexes.Append oInd
    'Rafraichit la collection
    oTbl.Indexes.Refresh
    'Libération des objets
    Set oTbl = Nothing
    Set oInd = Nothing
    Set oFld = Nothing
End Function
'************************************************************************
'************************************************************************
Private Function CreerRelationTable()
    Set oRst = oDb.OpenRecordset("tblRelation", dbOpenTable)
    With oRst
        While Not .EOF
            CreerRelationTableSub oDb, _
                                  .Fields("TablePrincipale").Value, _
                                  .Fields("ChampPrincipal").Value, _
                                  .Fields("TableSecondaire").Value, _
                                  .Fields("ChampSecondaire").Value, _
                                  .Fields("MAJEnCascade").Value, _
                                  .Fields("SuppressionEnCascade").Value
            .MoveNext
        Wend
    End With
End Function
'************************************************************************
Private Function CreerRelationTableSub()
    Set oRst = oDb.OpenRecordset("tblRelation", dbOpenTable)
 
    'Crée la relation
    Set oRlt = oDb.CreateRelation
    oRlt.Attributes = dbRelationDontEnforce
    oRlt.ForeignTable = oRst.Fields("TableSecondaire").Value
    oRlt.Name = oRst.Fields("ChampPrincipal").Value
    oRlt.Table = oRst.Fields("TablePrincipale").Value
    'Crée le champ dans la relation
    Set oFld = oRlt.CreateField(oRst.Fields("TablePrincipale").Value & oRst.Fields("ChampPrincipal").Value)
    'Définit le nom de la clé externe
    oFld.ForeignName = oRst.Fields("ChampSecondaire").Value
    'Ajoute le champ
    oRlt.Fields.Append oFld
    'Rafraîhit la collection Relations
    oDb.Relations.Refresh
    'Ajoute la relation
    oDb.Relations.Append oRlt
    'Rafraîhit la collection Relations
    oDb.Relations.Refresh
    'Libération des objets
    oRst.Close
    Set oRst = Nothing
    Set oRlt = Nothing
    Set oFld = Nothing
End Function
'************************************************************************
'************************************************************************
Private Function SupprimerChamp()
    Set oRst = oDb.OpenRecordset("tblChampASupprimer", dbOpenTable)
    With oRst
        While Not .EOF
            SupprimerChampSub oDb, _
                                  .Fields("TableSource").Value, _
                                  .Fields("ChampASupprimer").Value
            .MoveNext
        Wend
    End With
    'Libération des objets
    oRst.Close
    Set oRst = Nothing
    Set oDb = Nothing
End Function
'************************************************************************
Private Function SupprimerChampSub()
    Set oRst = oDb.OpenRecordset("tblChampASupprimer", dbOpenTable)
    'Récupère la table
    Set oTbl = oDb.TableDefs(oRst.Fields("TableSource").Value)
    'Supprime le champ
    oTbl.Fields.Delete (oRst.Fields("ChampASupprimer").Value)
    'Renvoie True
    SupprimerChampSub = True
End Function

J'ai donc 3 erreurs qui s'enchaine :
-> Erreur d'exécution 13 : Type Incompatible !
-> Erreur d'exécution 13 : Type Incompatible !
-> Une erreur inattendue est survenue

L'algo est le suivant :
1) IndexerChamp
2) CreerRelationTable
3) SupprimerChamp

Si j'exécute uniquement le SupprimerChamp j'ai:
-> Erreur d'exécution 13 : Type Incompatible sur

Code:

1
2
3
            SupprimerChampSub oDb, _
                                  .Fields("TableSource").Value, _
                                  .Fields("ChampASupprimer").Value

-> Puis Erreur d'exécution 3265 : Elément non trouvé dans cette collection sur

Code:

oTbl.Fields.Delete (oRst.Fields("ChampASupprimer").Value)

Quand je regarde sur quel élement il bloque, c'est sur le 69ème de la tblChampASupprimer qui exite bien pourtant !!! Par curiosité j'ai enlevé cette 69ème enregistrement et j'ai relancé, idem, bloquage au 69ème qui en était un autre...

Quels pistes dois-je exploiter pour toutes mes erreurs !!!
Merci à tous pour votre aide...
@+

Re à tous...

J'ai pas mal avancé, et résolu qq pb déjà ;-)

Mais 2 difficultés persistent :

-> 1) Comment faire pour pouvoir indexer plusieurs champs dans une même table, actuellement cela ne fonctionne pas à cause du 1er champ qui est considéré en clé primaire et donc je ne peux indexer le 2ème avec la même fonction :

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
28
29
30
31
32
33
34
35
'=====> FONCTION "PARENTS" D'INDEXATION DES CHAMPS PRIMAIRE (boucle sur tblChampAIndexerPrimaire pour définition des index) <=====
Private Function IndexerChampPrimaire()
    Set oRst = oDb.OpenRecordset("tblChampAIndexerPrimaire", dbOpenTable)
    With oRst
        While Not .EOF
            IndexerChampPrimaireSub
            .MoveNext
        Wend
    End With
    pgbAvancement.Value = pgbAvancement.Value + 2.5
    'Libération des objets
    oRst.Close
    Set oRst = Nothing
End Function
'=====> FONCTION "ENFANTS" D'INDEXATION DES CHAMPS PRIMAIRE <=====
Private Function IndexerChampPrimaireSub()
    'Instancie la table
    Set oTbl = oDb.TableDefs(oRst.Fields("TableSource").Value)
    'Crée l'index en le nommant
    Set oInd = oTbl.CreateIndex(oRst.Fields("ChampAIndexer").Value)
    'Cree le champ dans l'index
    Set oFld = oInd.CreateField(oRst.Fields("ChampAIndexer").Value)
    'Ajoute le champ à la collection Fields
    oInd.Fields.Append oFld
    'Définit la clé primaire
    oInd.Primary = True
    'Ajoute l'index à la table
    oTbl.Indexes.Append oInd
    'Rafraichit la collection
    oTbl.Indexes.Refresh
   'Libération des objets
    Set oFld = Nothing
    Set oTbl = Nothing
    Set oInd = Nothing
End Function

-> 2) Comment faire pour créer 2 relations sur 2 même tables sans que la table principale apparaisse en doublon (avec un "_1) mais que les 2 liaisons partent d'une seule et unique table.

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
28
29
30
31
32
33
34
35
36
37
38
'=====> FONCTION "PARENTS" DE MISE EN PLACE DES RELATIONS DU MCD (boucle sur tblRelation pour définition des relations) <=====
Private Function CreerRelationTable()
    Set oRst = oDb.OpenRecordset("tblRelation", dbOpenTable)
    With oRst
        While Not .EOF
            CreerRelationTableSub
            .MoveNext
        Wend
    End With
    pgbAvancement.Value = pgbAvancement.Value + 2.5
    'Libération des objets
    oRst.Close
    Set oRst = Nothing
End Function
'=====> FONCTION "ENFANTS" DE MISE EN PLACE DES RELATIONS DU MCD <=====
Private Function CreerRelationTableSub()
    'Crée la relation
    Set oRlt = oDb.CreateRelation
    oRlt.Attributes = dbRelationDontEnforce
    oRlt.ForeignTable = oRst.Fields("TableSecondaire").Value
    oRlt.Name = oRst.Fields("ChampPrincipal").Value
    oRlt.Table = oRst.Fields("TablePrincipale").Value
    'Crée le champ dans la relation
    Set oFld = oRlt.CreateField(oRst.Fields("ChampPrincipal").Value)
    'Définit le nom de la clé externe
    oFld.ForeignName = oRst.Fields("ChampSecondaire").Value
    'Ajoute le champ
    oRlt.Fields.Append oFld
    'Rafraîhit la collection Relations
    oDb.Relations.Refresh
    'Ajoute la relation
    oDb.Relations.Append oRlt
    'Rafraîhit la collection Relations
    oDb.Relations.Refresh
   'Libération des objets
    Set oFld = Nothing
    Set oRlt = Nothing
End Function

Merci à tous...
@+

24/05/2006, 12h28
JeremieT

[VBA-A97] DAO : Indexation champs multiple et Création MCD

Bonjour à tous !

Permettez-moi un tit up sur mon dernier message, ce sont les 2 seuls points bloquants qu'il me reste ! :-)

Merciiiiiiiiiiiiiiiiiiiiiiiii
31/05/2006, 11h50
JeremieT

Bonjour à tous...

Permettez moi un nouveau up après 1 semaine sans réponse ;-)
Regardez uniquement le dernier message pour plus de facilité et de rapidité.
Si vous ne savez pas comment faire mais que vous avez des pistes (lien ou autres) je suis preneur de toutes idées ;-)

Merci d'avance...

P.S. Avant dernier message de la page précédente ;-)
31/05/2006, 11h52
Tofalu

Citation:

2) Comment faire pour créer 2 relations sur 2 même tables sans que la table principale apparaisse en doublon (avec un "_1) mais que les 2 liaisons partent d'une seule et unique table.

2 Relations sur 2 mêmes tables : Le modèle est faux.

Pour l'indexation multiple, je n'ai pas compris le problème. Il suffit d'utiliser CreateIndex pour créer autant d'index qu'on souhaite
31/05/2006, 11h59
JeremieT

Bonjour Tofalu

Citation:

Envoyé par Tofalu

2 Relations sur 2 mêmes tables : Le modèle est faux.

Pourquoi ? Si j'ai 2 champs qui compose la clé, c'est bien possible !!! Non ???

Citation:

Envoyé par Tofalu

Pour l'indexation multiple, je n'ai pas compris le problème. Il suffit d'utiliser CreateIndex pour créer autant d'index qu'on souhaite

C'est ce que j'ai fait mais je ne peut créer plusieurs index sur la même table ! Sur le même principe que les 2 relations, la clé de ma table est composé de l'association de 2 champs donc...il me faut les 2 en index...

Et je précise que ces tables ne sont pas modifiables sur leur strucuture car elles sont importées via ODBC donc "brut".

Merci
31/05/2006, 14h35
Tofalu

Citation:

Pourquoi ? Si j'ai 2 champs qui compose la clé, c'est bien possible !!! Non ???

Dans ce cas il n'y a qu'une seule relation (qui porte sur les deux champs)
31/05/2006, 16h24
JeremieT

Citation:

Envoyé par Tofalu

Dans ce cas il n'y a qu'une seule relation (qui porte sur les deux champs)

Et donc dans la MCD j'ai qu'une seule relation qui part de n'importe quel champs et elle symbolise les 2 champs ??? Je savais pas si c'est le cas...;-)

Et donc pour définir une clé primaire sur plusieurs champs d'une même table, une idée ?

Merci...

Voir 40 message(s) de cette discussion en une page