Hello,
I'm already trying for hours and I still can't produce a Report from scratch with a .NET Object.
Everytime I call the SetDataSource-Method, I Get the DataSourceException:
I'm using Visual Studio 2013 Update 5 with CRforVS_13_0_13
Failed to load database information.
Error in File temp_54f4ace5-3d4b-49f4-a633-cb7098cbf8bd 10164_1776_{D1ADA617-8049-497D-BD87-2530EA8EEE81}.rpt:
Stack:
at CrystalDecisions.ReportAppServer.ConvertDotNetToErom.ThrowDotNetException(Exception e)
at CrystalDecisions.CrystalReports.Engine.ReportDocument.SetDataSourceInternal(Object val, Type type)
at CrystalDecisions.CrystalReports.Engine.ReportDocument.SetDataSource(DataSet dataSet)
at WindowsApplication12.Form1.Button1_Click(Object sender, EventArgs e) in c:\users\danielr\documents\visual studio 2013\Projects\WindowsApplication12\WindowsApplication12\Form1.vb:line 18
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
What I'm doing:
I have a simple WinForms Application in which is just a Button. In the Click-Event I Initialize the Report, a List(Of TestClass) and a DataSet out of the List. Then I'm setting the DataSource and the Exceptionis thrown. For the Report I made a XSD File out of the List first, then generated the Report and set the XSD as DataSourceConnection for the Report.
Here is the SourceCode:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
''Initialize
Dim testData = GenerateTestData()
Dim dataSet = ListToDataSet(testData)
Dim report = New CrystalReport1()
''Make a XSD File out of the DataSet for the Report (this step is just made initially)
'Dim writer = New IO.StreamWriter("Test.xsd")
'dataSet.WriteXmlSchema(writer)
'writer.Close()
''Set the DataSource for the Report
report.SetDataSource(dataSet)
''Export it to a PDF and then open it
report.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, "test.pdf")
Process.Start("test.pdf")
''Exit the Application
Application.Exit()
End Sub
''' <summary>
''' Generates some TestData
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function GenerateTestData() As List(Of TestClass)
Dim r = New Random()
Dim list = New List(Of TestClass)
For i As Integer = 0 To 100
list.Add(New TestClass() With {.Betrag = r.Next(),
.Name = "TestName" & i})
Next
Return list
End Function
''' <summary>
''' Makes a DataSet
''' </summary>
''' <typeparam name="T"></typeparam>
''' <param name="dataList"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function ListToDataSet(Of T)(dataList As IEnumerable(Of T)) As DataSet
Dim dataTable = New DataTable(GetType(T).Name)
Dim propInfos() As PropertyInfo = Nothing
For Each rec As T In dataList
If propInfos Is Nothing Then
propInfos = rec.GetType().GetProperties()
For Each propInfo In propInfos
Dim columnType = propInfo.PropertyType
If columnType.IsGenericType AndAlso columnType.GetGenericTypeDefinition = GetType(Nullable(Of )) Then
columnType = columnType.GetGenericArguments(0)
End If
dataTable.Columns.Add(New DataColumn(propInfo.Name, columnType))
Next
End If
Dim dataRow As DataRow = dataTable.NewRow()
For Each propInfo In propInfos
dataRow(propInfo.Name) = If(propInfo.GetValue(rec, Nothing), DBNull.Value)
Next
dataTable.Rows.Add(dataRow)
Next
Dim dataSet = New DataSet()
dataSet.Tables.Add(dataTable)
Return dataSet
End Function
End Class
The Test Class is quite simple:
Public Class TestClass
Property Name As String
Property Betrag As Integer
End Class
The Report is just made out of the Standard Dialogue (New Item => Crystal Report => OK => Selected the TestClass DataSet => Next and so on) and looks like this
![reportTemp.png]()
![DataBaseFieldsTemp.png]()
Could someone please help me?
