Hallo, wisst Ihr vielleicht, woran der Query scheitert?
Die Problem-Zeile ist Zeile 16
SELECT abteilung.Abteilung, COUNT(abteilung.abteilung) AS NumberOfEntries
FROM elemente WHERE Komponente=TRUE
INNER JOIN abteilung ON elemente.Abteilung=abteilung.id
GROUP BY abteilung
Die Spalte "Komponente" ist Boolean [Tinyint(1)]
Keine der folgenden Varianten funktionieren:
Komponente=TRUE
Komponente=FALSE
Komponente=0
Komponente=1
Fehlermeldung:
Die Problem-Zeile ist Zeile 16
SELECT abteilung.Abteilung, COUNT(abteilung.abteilung) AS NumberOfEntries
FROM elemente WHERE Komponente=TRUE
INNER JOIN abteilung ON elemente.Abteilung=abteilung.id
GROUP BY abteilung
Die Spalte "Komponente" ist Boolean [Tinyint(1)]
Keine der folgenden Varianten funktionieren:
Komponente=TRUE
Komponente=FALSE
Komponente=0
Komponente=1
Fehlermeldung:
VB.NET-Quellcode
- Imports System.Windows.Forms.DataVisualization.Charting
- Public Class frm_Statistics
- Dim cnn As MySqlConnection
- Dim connectionString As String = My.Settings("Projektconnectionstring").ToString
- Dim sqlAdp As MySqlDataAdapter
- Dim ds As New DataSet
- Dim dt As New DataSet
- Private Sub Form_visiblechanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.VisibleChanged
- If Me.Visible = False Then Exit Sub
- Try
- Dim i As Integer
- cnn = New MySqlConnection(connectionString)
- cnn.Open()
- sqlAdp = New MySqlDataAdapter(" SELECT abteilung.Abteilung, COUNT(abteilung.abteilung) AS NumberOfEntries " &
- " FROM elemente WHERE Komponente=TRUE " &
- " INNER JOIN abteilung ON elemente.Abteilung=abteilung.id " &
- " GROUP BY abteilung", cnn)
- cnn.Close()
- sqlAdp.Fill(ds)
- sqlAdp.Fill(dt)
- 'fetching data from dataset in disconnected mode
- For i = 0 To ds.Tables(0).Rows.Count - 1
- Me.KompChart.Series("Series1").Points.AddXY(dt.Tables(0).Rows(i).Item("Abteilung"), dt.Tables(0).Rows(i).Item("NumberOfEntries"))
- Next
- 'fetching data from datatable in disconnected mode
- 'For i = 0 To dt.Tables(0).Rows.Count - 1
- ' MsgBox(dt.Tables(0).Rows(i).Item(0))
- 'Next
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- End Sub
- End Class