Aplicar rs.filter dependiendo si un textbox esta vacio ó no

[franko1809]

El problema biene en la instruccion sql en la clausula AND
Por ejemplo el ContentSQL supuestamente empieza con WHERE y no podria ser WHERE AND en caso uno de los text no este vacio y se genera un error.
No se como explicarlo mejor?, espero que al ver el codigo se den cuentadel problema, como lo soluciono?

Código:

Dim ContentSQL As String
'.....
'.......

If Not Text1.Text = "" Then
   'Aplicamos filtro
   ContentSQL = ContentSQL & " AND codcat='" & Text1 & "'"
End If

If Not Text2.Text = "" Then
   'Aplicamos filtro
   ContentSQL = ContentSQL & " AND codmarca='" & Text2 & "'"
End If

rsProd.Filter = ContentSQL

[David]

Una forma sería tener toda la parte del WHERE en una variable separada del resto de la consulta (ya que es básicamente la parte "modificable" de la consulta), así, al momento de añadir una nueva condición compruebas, si la variable está vacía, no agregar "AND", si lo está, agregar "AND".

Espero hayas entendido la idea .

[totigo]

Hola!

Lo que comenta David es valido, te lo complemento de la siguiente manera:

Usando el WHERE 1=1, lo cual siempre será valido! y vas agregando cada uno de los filtros que vayan cumpliendo con cada una de las condiciones!, espero haber sido claro!!

Código vb:

ContentSQL = "SELECT nomProducto FROM Productos WHERE 1=1 "
 
If Len(Text1.Text) > 0 Then
   'Aplicamos filtro
   ContentSQL = ContentSQL & " AND codcat='" & Text1 & "'"
End If
 
If Len(Text2.Text) = "" Then
   'Aplicamos filtro
   ContentSQL = ContentSQL & " AND codmarca='" & Text2 & "'"
End If
 

[franko1809]

Totigo parece que vb6.0 no admite eso, hize la consulta directamente a la bd y corre perfecto lo hago desde vb6.0 y me dice: argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros, estoy usando la propiedad filter de recordset, alguna otra solucion?

david no entendi bien lo que comentaste pero tratare de hacerlo

saludos

[totigo]

Comprendo!, es por lo que estas usando el rs.filter

Funcionaria si usaras rs.open ContentSQL, adbConection, adOpenStatic

[totigo]

Ok! a ver si este te sirve!

'Si ya hay un filtro agregas el AND
If Len(ContentSQL) > 0 Then ContentSQL = ContentSQL & " AND "

Código VB:

ContentSQL = ""
 
If Len(Text1.Text) > 0 Then
   'Aplicamos filtro
   ContentSQL = ContentSQL & " codcat='" & Text1 & "'"
End If
 
If Len(Text2.Text) >0 Then
    'Si ya hay un filtro agregas el AND
    If Len(ContentSQL) > 0 Then ContentSQL = ContentSQL & " AND "
   
   'Aplicamos filtro
   ContentSQL = ContentSQL & " codmarca='" & Text2 & "'"
End If
 
 
If Not rsProd.EOF Then
    rsProd.Filter = ContentSQL
End If
 

[franko1809]

Funciono al 100% tio

saludos