- ' Create a dataset for the report from the CSV file
- Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.IO.Path.GetDirectoryName(tempcsv) & ";Extended Properties=Text;"
- Dim objConn As New System.Data.OleDb.OleDbConnection(sConnectionString)
- objConn.Open()
- ' New adapter
- Dim objAdapter1 As New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM " & System.IO.Path.GetFileName(tempcsv), objConn)
- ' New dataset
- Dim objDataset1 As New DataSet
- objAdapter1.Fill(objDataset1, "Report1")
- ' Init report
- Dim myReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
- If myReport Is Nothing Then
- objConn.Close()
- Logfile.AddEntry("ERROR: Unable to create crystal report object")
- Exit Function
- End If
- ' Load template
- Try
- myReport.Load(myCfg.TemplateDir & "\" & ticket.Template)
- Catch ex As Exception
- objConn.Close()
- Logfile.AddEntry("ERROR: Unable to open template '" & myCfg.TemplateDir & "\" & ticket.Template & "'")
- Exit Function
- End Try
- ' Load data into report
- myReport.SetDataSource(objDataset1) ' Hier kracht es !!! mit dem fehler: "The report has no tables."