Hallo
Ik heb een 2 tal comboboxen waaruit men een waarde kan selecteren.
Als dat gebeurd vult hij een andere combobox die voldoet aan de 2 geselecteerde waarden, een filter als het ware.
Het werkt perfect als alle 2 de comboboxen waarden bevatten, maar ik wil ook hebben dat hij alles toont indien je maar 1 combobox invult.
Zoals met een * in Access
Dit is mijn vb.net Code:
[CPP]
Private Sub combokaderreeks_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combokaderreeks.SelectedIndexChanged
Dim ds As New DataSet
Dim da As OleDb.OleDbDataAdapter
Dim sql As String
Dim inc As Integer
Dim maxrows As Integer
Dim reeksselected as string
Dim typeselected as string
reeksselected = combokaderreeks.Text
typeselected = combokadertype.Text
sql = "SELECT deurid, naampdf, reeks, type, abc, din, slotkas, slotkasinfo, scharnier " & _
"FROM t_deurendeuble WHERE (reeks like '" & reeksselected & "') and (type like '" & typeselected & "')"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "gamma")
maxrows = ds.Tables("gamma").Rows.Count
inc = 0
Do Until inc = maxrows
combokaderselect.Items.Add(ds.Tables("gamma").Rows(inc).Item(1))
inc = inc + 1
Loop
End Sub
[/CPP]
De bedoeling is dus dat ik 1 van de 2 comboboxen kan leeg laten en dat hij mijn query nog goed uitvoert.
In Access werkt het goed.
Ik heb een 2 tal comboboxen waaruit men een waarde kan selecteren.
Als dat gebeurd vult hij een andere combobox die voldoet aan de 2 geselecteerde waarden, een filter als het ware.
Het werkt perfect als alle 2 de comboboxen waarden bevatten, maar ik wil ook hebben dat hij alles toont indien je maar 1 combobox invult.
Zoals met een * in Access
Dit is mijn vb.net Code:
[CPP]
Private Sub combokaderreeks_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combokaderreeks.SelectedIndexChanged
Dim ds As New DataSet
Dim da As OleDb.OleDbDataAdapter
Dim sql As String
Dim inc As Integer
Dim maxrows As Integer
Dim reeksselected as string
Dim typeselected as string
reeksselected = combokaderreeks.Text
typeselected = combokadertype.Text
sql = "SELECT deurid, naampdf, reeks, type, abc, din, slotkas, slotkasinfo, scharnier " & _
"FROM t_deurendeuble WHERE (reeks like '" & reeksselected & "') and (type like '" & typeselected & "')"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "gamma")
maxrows = ds.Tables("gamma").Rows.Count
inc = 0
Do Until inc = maxrows
combokaderselect.Items.Add(ds.Tables("gamma").Rows(inc).Item(1))
inc = inc + 1
Loop
End Sub
[/CPP]
De bedoeling is dus dat ik 1 van de 2 comboboxen kan leeg laten en dat hij mijn query nog goed uitvoert.
In Access werkt het goed.
