[VB.NET] Relazionare piu' tabelle su un DataSet

[race2]

Popolando un Report "CrystalReport" realizzato con il "Crystal Report "di VB.NET 2002 tramite un DataSet, si puo fare un legame tra tabelle molteplici e non solamente tra 2 tabelle come si vede nel codice qui sotto ???

Ho una ListView Che elenca una serie di Anagrafiche:
nell'evento "DoubleClick" richiamo il Report in questione passandogli il DataSet:

        If lvwPratiche.SelectedItems.Count > 0 Then
            Dim oConn As New SqlConnection("Data Source=127.0.0.1,1433; Network Library=DBMSSOCN; Initial Catalog=Web_Monster; User ID=sa; Password=;")
            Dim myReport As New CrystalReport1()
            Dim DS As New DataSet()

            Dim rel1 As New DataColumn()
            Dim rel2 As New DataColumn()

            Dim myCondition As Integer = lvwPratiche.SelectedItems.Item(0).Text

            oConn.Open()
            Dim da As New SqlDataAdapter("SELECT ID_Anagrafica, RagSoc FROM Anagrafica", oConn)
            da.Fill(DS, "Anagrafica")

            Dim da2 As New SqlDataAdapter("SELECT ID_Pratica, ID_Anagrafica FROM Pratiche WHERE ID_Pratica='" & myCondition & "'", oConn)
            da2.Fill(DS, "Pratiche")
            oConn.Close()

            rel1 = DS.Tables("Anagrafica").Columns("ID_Anagrafica")
            rel2 = DS.Tables("Pratiche").Columns("ID_Anagrafica")

            Dim relCustOrder As DataRelation
            relCustOrder = New DataRelation("CustomersOrders", rel1, rel2)

            DS.Relations.Add(relCustOrder)

            myReport.SetDataSource(DS)
            CrystalReportViewer1.ReportSource = myReport
        End If

Si possono fare legami con Molteplici tabelle ???

[Geen]

Certo,essendo "Releations" una collection si possono aggiungere tranquillamente più relazioni,alla fine passi l'intero dataset,come peraltro già fai..

[race2]

E come si fa a relazionare piu tabelle con il DataSet ???

mi dice che :

Eccezione non gestita di tipo "System.ArgumentException" in system.data.dll

Informazioni aggiuntive: Queste colonne non contengono valori univoci.

        If lvwPratiche.SelectedItems.Count > 0 Then
            Dim oConn As New SqlConnection("Data Source=127.0.0.1,1433;Network Library=DBMSSOCN; Initial Catalog=Web_Monster; User ID=sa;Password=;")
            Dim myReport As New CrystalReport1()
            Dim DS As New DataSet()

            Dim rel1 As New DataColumn()
            Dim rel2 As New DataColumn()
            Dim rel3 As New DataColumn()
            Dim rel4 As New DataColumn()

            Dim myCondition As Integer = lvwPratiche.SelectedItems.Item(0).Text()

            oConn.Open()
            Dim da As New SqlDataAdapter("SELECT ID_Anagrafica,RagSoc FROM Anagrafica", oConn)
            da.Fill(DS, "Anagrafica")

            Dim da2 As New SqlDataAdapter("SELECT ID_Pratica,ID_Anagrafica FROM Pratiche WHERE ID_Pratica='" & myCondition & "'", oConn)
            da2.Fill(DS, "Pratiche")

            Dim da3 As New SqlDataAdapter("SELECT Url,ID_Pratica FROM Url", oConn)
            da3.Fill(DS, "Url")

            oConn.Close()

            rel1 = DS.Tables("Anagrafica").Columns("ID_Anagrafica")
            rel2 = DS.Tables("Pratiche").Columns("ID_Anagrafica")
            rel3 = DS.Tables("Url").Columns("ID_Pratica")
            rel4 = DS.Tables("Pratiche").Columns("ID_Pratica")


            Dim relCustOrder As DataRelation
            relCustOrder = New DataRelation("CustomersOrders", rel1, rel2)
            relCustOrder = New DataRelation("CustomersOrders", rel3, rel4)

            DS.Relations.Add(relCustOrder)

            myReport.SetDataSource(DS)
            CrystalReportViewer1.ReportSource = myReport
        End If

[Geen]

Non e' rovescia la seconda datarelation?Non ho un compilatore sottomano ma la sintassi e'

New DataRelation("<nome>", parentCol, childCol)


Questo pezzo qui poi e' sicuramente sbagliato

Dim relCustOrder As DataRelation
relCustOrder = New DataRelation("CustomersOrders", rel1, rel2)
relCustOrder = New DataRelation("CustomersOrders", rel3, rel4)
DS.Relations.Add(relCustOrder)

in quanto vai a sovrascrivere relCustOrder prima di aggiungerla alla collection

Nel tuo contesto forse non e' meglio creare un'unica datatable con
una query che preveda un INNER JOIN tra le tre tabelle?

[race2]

cioe' un unico DataSet ???

ma se si cosa metto poi nel --> Fill(DS,"#Tabella#")

quale tabella metto se faccio unlegame tra 4 tabelle con un LEFT JOIN nell'SQL ???

[Geen]

Il nome della tabella e' relativo..facendo una INNER JOIN tra le tabelle ottieni,nel tuo caso un'unica tabella con le n "tuple" relative.
Esempio al volo:

SELECT *, Customers.* FROM Orders INNER JOIN
[Order Details] ON Orders.OrderID = [Order Details].OrderID INNER JOIN Customers ON Orders.CustomerID=Customers.CustomerID
WHERE Customers.CustomerID=....

ottieni una tabella con i dettagli del cliente e degli ordini fatti dal cliente che ha Customers.CustomerID pari al valore che vuoi.

il codice risultante sarà poi

Dim oConn As New SqlConnection("Data Source=127.0.0.1,1433;Network Library=DBMSSOCN; Initial Catalog=Web_Monster; User ID=sa;Password=;")

Dim myReport As New CrystalReport1()
Dim DS As New DataSet()

Dim myCondition As Integer =<tuo paramentro di filtro>

oConn.Open()

<query con inner join>="....=tuo filtro"

Dim da As New SqlDataAdapter(<query con inner join>, oConn)
da.Fill(DS,<Nome tabella>)

oConn.Close()

myReport.SetDataSource(DS)
CrystalReportViewer1.ReportSource = myReport

prendilo come esempio di massima,non so il contesto per questo codice..

[race2]

Ho fatto questo ; con un DataGrid Funziona, con il Report NO!!

mi da "Errore nel motore Query "

forse sara per i dati <NULL> ceh ho nei campi delle tabelle ???

non nelle chiavi di legame pero' !!!

        Dim DS As New DataSet()

        Dim myParam As Integer = 1

        Dim da As New SqlDataAdapter("SELECT Pratiche.ID_Pratica, Pratiche.Stato_Pratica, Pratiche.Stato_Materiali, Anagrafica.RagSoc, Url.Url, Url.Data_Att FROM Pratiche INNER JOIN Anagrafica ON Pratiche.ID_Anagrafica = Anagrafica.ID_Anagrafica  AND Pratiche.ID_Pratica = '" & myParam & "' LEFT JOIN Url ON Pratiche.ID_Pratica = Url.ID_Pratica", oConn)

        da.Fill(DS, "AnagraficaPraticheUrl")

        DataGrid1.DataSource = DS