Visual Basic - BUSQUEDA

Life is soft - evento anual de software empresarial
 
Vista:

BUSQUEDA

Publicado por Abel (10 intervenciones) el 12/09/2002 11:50:41
Hola a todos:

Necesito hacer una consulta a la base de datos que me esta volviendo loco.
Tengo tres campos (nombre, poblacion, edad) en un formulario de los cuales salen los datos para la consulta. El problema es el siguiente:
La persona podra buscar usuarios solo por el nombre, dejando vacios los otros campos, o por nombre y edad, etc... ¿Cómo puedo hacer para que cuando no escriba nada en alguna de las cajas de texto el programa no interprete que debe buscar algo vacio?

Agradecería algun ejemplo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:BUSQUEDA

Publicado por e-reinicia.net (guille) (248 intervenciones) el 12/09/2002 15:00:28
Esta procedimento te valdría, te crea el WHERE de la consulta, después se lo concatenas :
Debes crear una variable global gsWHERE

Public Sub gxFiltrar(ByRef vValue As Variant, sField As String, _
sTipe As String, sDate As String)

If vValue <> "" Then

If gsWHERE <> vbNullString Then

gsWHERE = gsWHERE & "AND"

Else

gsWHERE = "WHERE"

End If

Select Case sTipe

Case "STRING"

If sDate = "" Then

gsWHERE = gsWHERE & " " & sField & " = '" & UCase(CStr(vValue)) & "' "

ElseIf sDate = "DESDE" Then

gsWHERE = gsWHERE & " " & sField & " >= '" & CStr(vValue) & "' "

ElseIf sDate = "HASTA" Then

gsWHERE = gsWHERE & " " & sField & " <= '" & CStr(vValue) & "' "

End If

Case "NUMBER"

gsWHERE = gsWHERE & " " & sField & " = " & (CDbl(vValue)) & " "

Case "DATE"

If sDate = "DESDE" Then

gsWHERE = gsWHERE & " " & sField & " >= '" & CDate(vValue) & "' "
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar