[VB.NET] DataGrid et relations

Version imprimable

15/10/2004, 11h42
Birdie

[VB.NET] DataGrid et relations

Essayons d'etre clair et concis...

J'ai un dataset comprenant 2 tables :

Table : Produits
Champs : ProduitID, Libelle,FamilleID

Table : Familles
Champs : FamilleID,Libelle

Une relation : FamilleProduit
Parent : Familles.FamilleID
Enfant : Produits.FamilleID

Je desire afficher un Datagrid ne comprenant que 2 colones :
Produits.Libelle et Famille.Libelle

Et je coince....
Qui peut m'aider...merci

euh ya qu'une requete SQL à faire ....
Code:

1 2 3 select Produits.Libelle, Famille.Libelle from Produits P, Familles F where P.FamilleID = F.FamilleID
et le résultat dans ton dataGrid ... non ? :?

15/10/2004, 12h00
Birdie

Heuuu...merci, mais c'est pas ce que je cherche...

Pourquoi creer des relations dans le dataset si c'est pour devoir utiliser une requete sql pour remplir un Datagrid ?

Ca reste ouvert.... :)
15/10/2004, 13h38
maitrebn

Il faut qu tu utilises des colonnes calculés.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemdatadatacolumnclassexpressiontopic.asp

Un exemple d'expression

Parent(<NomDeLaReation>).<NomDuChamp>

il me permet d'une table fille d'aller chercher une info dans la table mère !
15/10/2004, 13h38
Birdie

J'ai trouvé...testé...et ca marche :D

J'aurais aimé plus simple, mais bon.... :?

Pöur ceux que ca interresse :

http://support.microsoft.com/default...319082/EN-US/?
15/10/2004, 13h41
Birdie

Merci Maitrebn...je vais aller voir cette solution là également.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
        With MonDataset
            .Relations.Add("Edit_Titre", MonDataset.Tables("Publishers").Columns("PubId"), MonDataset.Tables("Titles").Columns("PubId"), True)
            .Tables("Titles").Columns.Add("Nom Editeur", System.Type.GetType("System.String"), "Parent.Name")
        End With
        Dim MaVue As DataView = MonDataset.Tables("Titles").DefaultView
        Dim CM As CurrencyManager = CType(Me.BindingContext(MaVue), CurrencyManager)
        Me.DataGrid1.DataSource = MaVue
        Dim MaGrille As DataGridTableStyle = New DataGridTableStyle
        MaGrille.MappingName = "Titles"
        Dim pd As System.ComponentModel.PropertyDescriptor = CM.GetItemProperties()("Nom Editeur")
        Dim MaColonne As New DataGridTextBoxColumn(pd)
        MaColonne.MappingName = "Nom Editeur"
        MaGrille.GridColumnStyles.Add(MaColonne)
        pd = CM.GetItemProperties()("Title")
        MaColonne = New DataGridTextBoxColumn(pd)
        MaColonne.MappingName = "Title"
        MaGrille.GridColumnStyles.Add(MaColonne)
        Me.DataGrid1.TableStyles.Add(MaGrille)