Caricare DataSet con 3 tabelle per report Crystal

domenica 16 dicembre 2012 - 17.32

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Charlie76 Profilo | Newbie

1 messaggi | Data Invio: dom 16 dic 2012 - 17:32

ciao a tutti, sono nuovo ed appena iscritto, avrei un problema: sto creando un report con intestazione dell'officina, anagrafica cliente e materiale utilizzato. Ho 3 tabelle di cui 2 correlate cioè cliente-Materiale. Per avere un report dinamico devo necessariamente crearlo da dati del progetto altrimenti vuole una posizione fissa del file .mdb. Il problema è questo sono riuscito a caricare il dataset con una sola tabella, ma caricando le altre con una query con istruzione JOIN come da esercitazione microsoft i campi risultano vuoti, c'è qualcuno che possa aiutarmi a capire come procedere?? Vi posto il mio codice... grazie a chiunque mi possa aiutare.

Dim CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\WorkShopData.mdb"
Dim QUERY_STRING As String = "SELECT Fatture.NumeroFattura, Fatture.Data, Fatture.Cliente, Fatture.Indirizzo, Fatture.CAP," _
& "Fatture.Città, Fatture.Provincia, Fatture.Telefono, Fatture.CodiceFiscale, " _
& "Fatture.DescrizioneIntervento, Fatture.Imponibile, Fatture.ManoDOpera, Fatture.IVA, Fatture.TotaleFattura, ArticoliFattura.NumeroFattura AS Expr1, " _
& "ArticoliFattura.Codice, ArticoliFattura.Descrizione, ArticoliFattura.Quantità, ArticoliFattura.Prezzo, ArticoliFattura.SubTotale" _
& "FROM (Fatture INNER JOIN" _
& "ArticoliFattura ON Fatture.NumeroFattura = ArticoliFattura.NumeroFattura)"
Dim DATATABLE_NAME As String = "ArticoliFattura"
Dim DIRECTORY_FILE_PATH As String = Application.StartupPath
Private DocumentoReport As ReportDocument

Private Sub ConfiguraCrystalReport()
Dim myDataSet As DataSet = New DataSet()
myDataSet.ReadXmlSchema(DIRECTORY_FILE_PATH & "\DataWorkShopDataSet.xsd")
Dim myOleDbConnection As OleDbConnection = New OleDbConnection(CONNECTION_STRING)
Dim myOleDbDataAdapter As OleDbDataAdapter = New OleDbDataAdapter(QUERY_STRING, myOleDbConnection)
myOleDbDataAdapter.Fill(myDataSet, DATATABLE_NAME)

DocumentoReport = New ReportDocument
Dim reportPath As String = Application.StartupPath & "\" & "Fatture.rpt"
DocumentoReport.Load(reportPath)
DocumentoReport.SetDataSource(myDataSet)
CrystalReportViewer1.ReportSource = DocumentoReport
CrystalReportViewer1.RefreshReport()
End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ConfiguraCrystalReport()
End Sub

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !