I use VB.NET 2010 and your components Version:6.10.135
I have created a Public Class like this:
Code: Select all
Public Class Umsatzstatistik
Public Property Firma() As String
Public Property Auftragsart() As String
Public Property Auftragssumme() As Decimal?
Public Sub New()
Firma = ""
Auftragsart = ""
Auftragssumme = 0
End Sub
Public Sub New(nFirma As String, nAuftragsart As String, nAuftragssumme As Decimal)
Firma = If(IsDBNull(nFirma), "", nFirma)
Auftragsart = If(IsDBNull(nAuftragsart), "", nAuftragsart)
Auftragssumme = nAuftragssumme
End Sub
End Class
Code: Select all
myDataContext = New VOptNeuContext.VOptNeuDataContext(LinqProvider.GetConnectionString)
Dim Druck = myDataContext.ExecuteQuery(Of Umsatzstatistik)("SELECT " & _
"CONCAT(f.`firmenname`, ' (', f.`strasse`, ')' ) AS `Firma`, " & _
"a.auftragsart AS `Auftragsart`, SUM(a.`BezBetrag`) AS `Auftragssumme` " & _
"FROM " & _
"`Auftrag` a " & _
"INNER JOIN Kundenstamm k " & _
"ON k.`KundenID` = a.`KundenID` " & _
"INNER JOIN firmendaten f " & _
"ON k.`firmenid` = f.`ID` " & _
"WHERE a.`AufDat` BETWEEN '2011-01-01' AND '2011-04-30' " & _
"AND a.`Bewegung` = 1 " & _
"GROUP BY `Firma`, " & _
"a.`Auftragsart` WITH ROLLUP;")
Please help - THX