Visual Basic 6.0Filtro Multiple (like '%codigo%' and like '%fuente%')

Filtro Multiple (like ‘%codigo%’ and like ‘%fuente%’)

-

- Advertisment -

Esta función les va a servir un monton cuando tengan que hacer filtros ya sea con la propiedad filter del recordset o haciendolo en consulta

Solo Tienen que pasarle como parametros lo que va a buscar
Ejemplo:
FiltroMultiple “Juan Perez”,”Nombre”
Y les va a crear el Filtro asi:

Nombre like ‘%Juan%’ and Nombre like ‘%Perez%’

Private Function FiltroMultiple(strCadena As String,strCampo as String) As String
Dim strFiltro As String
Dim Posicion As Byte
While Len(strCadena) > 0

Posicion = InStr(2, Trim(strCadena), " ")
If Posicion = 0 Then

FiltroMultiple = strFiltro & strCampo & " like '%" & ReemplazaComilla(Trim(strCadena)) & "%'"
Exit Function
Else
strFiltro = strFiltro & StrCampo & " like '%" & ReemplazaComilla(Mid(Trim(strCadena), 1, Posicion - 1)) & "%' and "
strCadena = Mid(strCadena, Posicion + 1)
End If
Wend
End Function

Si desean con Or, o le agregan un parametro mas o le cambian el and por el Or en la Funcion

1 COMENTARIO

DEJA UNA RESPUESTA

Por favor ingrese su comentario!
Por favor ingrese su nombre aquí

Últimas Noticias

Laravel – Modo Debug según IP

En algunos casos se necesita el modo DEBUG según IP, por ejemplo cuando estamos en producción y tenemos un...

Reemplazar URLs cuando cambias de dominio en WordPress (también de http a https)

Cuando haces un cambio de dominio por alguna razón (antes te llamabas www.viejodominio.com y ahora www.nuevodominio.com) si bien ya...

Como ejecutar comandos Artisan desde consola Git

Voy a suponer que ya tienen instalado el composer y php de manera global y un proyecto en laravel....

Ejecutar Composer y/o PHP de manera Global en Windows

Si por alguna razón al instalar Composer este no funciona desde cualquier ruta estando en linea de comandos (ya...
- Advertisement -

Herramientas de Desarrollo Web (sobre todo para Laravel)

Al comenzar a programar para web, lo primero que uno tiene que hacer es escoger sus herramientas de desarrollo...

Laravel 5.x

Con este post iniciamos oficialmente la sección dedica a Laravel, ya he desarrollado varios proyectos y tengo mucho por...

Debe leer

- Advertisement -

También podría gustarteRELACIONADA
Recomendada para usted