Os hago esta pregunta para ver si alguien puede darme ideas sobre cómo podría construir una query en sql en función de unos combobox que pueden tener algo seleccionado o no. Le he estado dando vueltas al tema y hacerlo usando sentencias if..else
no es lo más óptimo en mi caso, ya que dispongo de 6 comboboxes donde puede haber algo seleccionado o no. Creo que debe haber una manera más óptima que montar 36 ifs para construir la query. Os pongo un ejemplo de lo que quiero decir:
Private Function filteredQuery() As String
Dim sql_ As String
Dim divisionSelected_ As Boolean = False
Dim areaSelected_ As Boolean = False
Dim paisSelected_ As Boolean = False
Dim versionSelected_ As Boolean = False
Dim mesSelected_ As Boolean = False
Dim anioFiscalSelected_ As Boolean = False
If Cb_Divisiones.Text <> "" Then
divisionSelected_ = True
End If
If Cb_Area.Text <> "" Then
areaSelected_ = True
End If
If Cb_Paises.Text <> "" Then
paisSelected_ = True
End If
If Cb_Versiones.Text <> "" Then
versionSelected_ = True
End If
If Cb_Mes.Text <> "" Then
mesSelected_ = True
End If
If Cb_AnioFiscal.Text <> "" Then
anioFiscalSelected_ = True
End If
sql_ = filteredQuery2(divisionSelected_, areaSelected_, paisSelected_, versionSelected_, mesSelected_, anioFiscalSelected_)
Return sql_
End Function
Private Function filteredQuery2(divisionSelected_ As Boolean, areaSelected_ As Boolean, paisSelected_ As Boolean, _
versionSelected_ As Boolean, mesSelected_ As Boolean, anioFiscalSelected_ As Boolean)
Dim sql_ As String
If divisionSelected_ = True And areaSelected_ = True And paisSelected_ = True And versionSelected_ = True And mesSelected_ = True _
And anioFiscalSelected_ = True Then
sql_ = "SELECT * FROM Registros WHERE Division = '" & Cb_Divisiones.Text & "' AND Area = '" & Cb_Area.Text & "' AND Pais = '" _
& Cb_Paises.Text & "' AND Version = '" & Cb_Versiones.Text & "' AND Mes = '" & Cb_Mes.Text & "' AND AnioFiscal = '" _
& Cb_AnioFiscal.Text & "'"
ElseIf divisionSelected_ = True And areaSelected_ = True And paisSelected_ = True And versionSelected_ = True And mesSelected_ = True _
And anioFiscalSelected_ = True Then
...
...
End If
Return sql_
End Function
Utilizo 2 funciones, una para establecer el true
o el false
a los booleanos en base a si hay algo seleccionado en el ComboBox, y otra para construir la query en base a los booleanos. Puede ser una tontería usar 2 funciones pero me sirve para encaptsularlo un poco más y que no me queden funciones enormes.
Se os ocurre alguna manera más óptima de construir una query en base al valor que hay en varios filtros (en mi caso un ComboBox por cada filtro)?