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

di il
1 risposte

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

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:

<pre id=code><font face=courier size= id=code>
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
</font id=code></pre id=code>


Si possono fare legami con Molteplici tabelle ???

1 Risposte

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

    E' possibile, ma solo se crei un dataset tipizzato!
    A questo punto il tuo report deve puntare a quello per avere l'esatta definizione del dataset che gli assegnerai...


    ciauz

    ___________________________
    Fabio Cozzolino
    Microsoft .NET MCP
Devi accedere o registrarti per scrivere nel forum
1 risposte