Torna al Thread
Dim strProvider As String = "Provider=Microsoft.ACE.OLEDB.12.0;"
Dim strOrigine As String = "Data Source=" & "C:\Report\dbDocTemp.accdb"
'MsgBox(strProvider & strOrigine)
Dim strConnessione As String = strProvider & strOrigine
Dim Conn As OleDb.OleDbConnection
Conn = New OleDb.OleDbConnection(strConnessione)
'Carica la tabella articoli per il report'
Dim cmdArt As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Articoli", strConnessione)
Dim objTable As New DataTable()
cmdArt.Fill(objTable)
'Carica la tabella cliente per il report'
Dim cmdCliente As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Destinatario", strConnessione)
Dim objTableCliente As New DataTable()
cmdCliente.Fill(objTableCliente)
'Carica la tabella scadenze/importi per il report'
Dim cmdScadImp As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM ScadImp", strConnessione)
Dim objTableScadImp As New DataTable()
cmdScadImp.Fill(objTableScadImp)
'Carica la tabella trasporto per il report'
Dim cmdTrasp As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Trasporto", strConnessione)
Dim objTableTrasp As New DataTable()
cmdTrasp.Fill(objTableTrasp)
'Carica la tabella Note per il report'
Dim cmdNote As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM NoteDoc", strConnessione)
Dim objTableNote As New DataTable()
cmdNote.Fill(objTableNote)
'Carica la tabella Iva per il report'
Dim cmdIva As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Tot_Iva", strConnessione)
Dim objTableIva As New DataTable()
cmdIva.Fill(objTableIva)
'Carica la tabella Totale a pagare per il report'
Dim cmdPagare As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Pagamento", strConnessione)
Dim objTablePagare As New DataTable()
cmdPagare.Fill(objTablePagare)
'carica la tabella documenti e la inserisce nel report'
Dim cmdDoc As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Documenti", strConnessione)
Dim objTableDoc As New DataTable()
cmdDoc.Fill(objTableDoc)
Dim RepPath As String = "C:\Report\Fattura.rpt"
Dim Report As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
Report.Load(RepPath)
'Alimentazione del report con le tabelle caricate'
Report.Database.Tables("Articoli").SetDataSource(objTable)
Report.Database.Tables("Destinatario").SetDataSource(objTableCliente)
Report.Database.Tables("Documenti").SetDataSource(objTableDoc)
Report.Database.Tables("NoteDoc").SetDataSource(objTableNote)
'Report.Database.Tables("Trasporto").SetDataSource(objTableTrasp)
Report.OpenSubreport("PagTrasp").SetDataSource(objTableTrasp)
'Report.OpenSubreport("PagTrasp").SetDataSource(objTablePagare)
Report.OpenSubreport("Scadenze").SetDataSource(objTableScadImp)
Report.OpenSubreport("Iva").SetDataSource(objTableIva)
'Report.OpenSubreport("Pagamento").SetDataSource(objTableTrasp)
'Report.OpenSubreport("Scadenze").SetDataSource(objTableScadImp)
'Report.OpenSubreport("Iva").SetDataSource(objTableIva)
Me.CrystalReportViewer1.ReportSource = Report