Tips Visual Basic, armar un where dinámico, Visual Basic

La idea en este artículo es mostrarles como construir un where dinámico, o sea que si tenemos un formulario con 2 cajas de texto (NoCliente, NombreCliente) y un botón de comando para filtrar (mandar a ejecutar la consulta de selección), entonces si el usuario escribió algo en una de las cajas, en el where únicamente se preguntará por un campo en cambio si escribió en ambas cajas de texto entonces en el where se preguntará por ambos campos.

 Aquí se deja el código fuente para armar el where dinámico.

 Private Sub cmdFilter_Click()

     With Me

        Filtro = ""

        If .txtNoCliente.Text <> "" Then

            Filtro = "CLIENTE = " & .txtNoCliente.Text

        End If

        If .txtNombre.Text <> "" Then

            If Filtro <> "" Then

                Filtro = Filtro & " AND NOMBRE LIKE '" & .txtNombre.Text & "%'"

              Else

                  Filtro = Filtro & " NOMBRE LIKE '" & .txtNombre.Text & "%'"

            End If

        End If

    End With

    ‘ Mandar a ejecutar la consulta

End Sub

---

---