Hallo miteinander,
ich arbeite gerade an einem kleinen Programm, das folgender Maßen funktionieren soll:
Der User wählt aus einer ComboBox Werte aus.
Diese erste ComboBox erhält ihre Werte aus einer SQLite Datenbank.
Soweit so gut.
Nun sollen aber in einer zweiten ComboBox nur Werte aus einer anderen Tabelle der Datenbank eingetragen werden, die eine sinnvolle Kombination mit der ersten ComboBox ergeben.
D.h. also ein Filter muss gesetzt werden.
Und genau da liegt mein Problem, egal was ich mache ich bekomme entweder gar keine Einträge in der zweiten ComboBox, oder ich bei komme beim SelectionChanged Event der ersten ComboBox für die zweite ComboBox die Fehlermeldung: "...no such column..."
Hier mal der dazugehörige Code:
Vielleicht sehe ich ja nur den Wald durch die ganzen Bäume nicht...
Gruß
Thomas
ich arbeite gerade an einem kleinen Programm, das folgender Maßen funktionieren soll:
Der User wählt aus einer ComboBox Werte aus.
Diese erste ComboBox erhält ihre Werte aus einer SQLite Datenbank.
Soweit so gut.
Nun sollen aber in einer zweiten ComboBox nur Werte aus einer anderen Tabelle der Datenbank eingetragen werden, die eine sinnvolle Kombination mit der ersten ComboBox ergeben.
D.h. also ein Filter muss gesetzt werden.
Und genau da liegt mein Problem, egal was ich mache ich bekomme entweder gar keine Einträge in der zweiten ComboBox, oder ich bei komme beim SelectionChanged Event der ersten ComboBox für die zweite ComboBox die Fehlermeldung: "...no such column..."
Hier mal der dazugehörige Code:
B4X:
Sub Globals
'Declare the global variables here.
Dim linea As String
End Sub
Sub App_Start
frmdata.Show
con.New1
dtr.New1
cmd.New1 ("",con.Value)
Con.Open ("Data Source = " & AppPath & "\Fahrplan.db3")
cmd.CommandText = "Select Linie From tbl_lines order by Linie"
dtr.Value = cmd.ExecuteReader
Do While dtr.ReadNextRow = True
cboline.Add (dtr.GetValue(0))
Loop
dtr.Close
End Sub
Sub cmdtest_Click
cmd.CommandText = txttest.Text
cmd.executeTable ("tblfahrplan", 500)
End Sub
Sub cboLine_SelectionChanged (Index, Value)
linea = cboline.Item(cboline.SelectedIndex )
label1.Text = linea
cmd.CommandText = "SELECT Ziel, Linie From tbl_goals where Linie like " & linea
dtr.Value = cmd.ExecuteReader
Do While dtr.ReadNextRow = True
cbogoal.Add (dtr.GetValue(0))
Loop
dtr.Close
End Sub
Sub frmMain_Close
Con.Close
End SubVielleicht sehe ich ja nur den Wald durch die ganzen Bäume nicht...
Gruß
Thomas