tengo problemas me podrian ayudar

[RoyMalcolm]

les cuento amigos que estoy haciendo una consulta en sql server 2000 mediante vb6.0 la consulta me la hace perfectamente pero tengo 2 problemas

1- tengo 5 opciones para ordenar mis consultas.
son optionbutton
optCodigo
optDescripcicion
optPVP
optMarca
optReferencia

para ordenar uso un if then
ej :

If OptCodigo.Value = True Then
strSQL = "SELECT PrecioDetal * 1.12 AS PVP, tblProduct.CodRef, tblProduct.Descripcion, " & _
"tblProduct.Marca, tblExistencia.Existencia, tblProduct.IDUnidC , tblExistencia.Observaciones " & _
"FROM tblProduct " & _
"INNER JOIN tblExistencia ON tblProduct.CodRef = tblExistencia.CodRef " & _
"WHERE (Descripcion LIKE '%" & strDescripcion & "%' ) AND (Marca LIKE '%" & strMarca & "%') AND " & _
"(tblProduct.CodRef LIKE '%" & strCodigo & "%') AND (Observaciones LIKE '%" & strReferencia & "%') " & _
"AND ((PrecioDetal * 1.12) BETWEEN " & sngPVPdesde & " AND " & sngPVPhasta & ") " & _
"ORDER BY tblProduct.CodRef"

pero tengo q repetir la consulta 5 veces. podria ordenar declarando una variable para asi no hacer la consulta solo una sola vez

[Insomnia]

Hola

No hace falta que repitas toda la consulta cada vez, con añadir solo el orden es suficiente:

Código vb:

strSQL = "SELECT PrecioDetal * 1.12 AS PVP, tblProduct.CodRef, tblProduct.Descripcion, " & _
"tblProduct.Marca, tblExistencia.Existencia, tblProduct.IDUnidC , tblExistencia.Observaciones " & _
"FROM tblProduct " & _
"INNER JOIN tblExistencia ON tblProduct.CodRef = tblExistencia.CodRef " & _
"WHERE (Descripcion LIKE '%" & strDescripcion & "%' ) AND (Marca LIKE '%" & strMarca & "%') AND " & _
"(tblProduct.CodRef LIKE '%" & strCodigo & "%') AND (Observaciones LIKE '%" & strReferencia & "%') " & _
"AND ((PrecioDetal * 1.12) BETWEEN " & sngPVPdesde & " AND " & sngPVPhasta & ") "
"ORDER BY"
 
If OptCodigo.Value = True Then
   strSQL = strSQL & " tblProduct.CodRef"
end if
If optDescripcicion.value=true then
   strSQL = strSQL & " tblProduct.CodDes"
end if
...
 

--Saludos--

[RoyMalcolm]

gracias muchas gracias INSONMIA de verdad me resulto muy util

[Insomnia]

Me alegro

--Saludos--