
09/09/2004, 11:49
|
| | Fecha de Ingreso: junio-2004
Mensajes: 70
Antigüedad: 20 años, 11 meses Puntos: 0 | |
Listo muchas gracias! me abriste el panorama, deveras...
aqui esta el codigo.
Lo que hace realmente es crear una sentecia SQL a partir de los campos
seleccionados en un formulario.
Cada campo del formulario debe llevar el nombre del campo en la tabla
para que la sentecia salga bien. Todavia no esta hecho para poner
las comillas, pero supongamos que todos los campos son numeros y
no deberia haber problemas
' -->> Bandera para saber si todos los campos son ">> TODOS"
lleno = 0
For Each x In Request.Form
if Request.Form(x) <> "" then lleno=1 end if
next
' -->> Si la seleccion es un SELECT ALL
if lleno = 0 then
SSQL = "SELECT * FROM dbo.tmovimiento ORDER BY idcliente DESC"
' -->> Si hay por lo menos 1 o mas campos especificados
else
' Cadena base
SSQL = "SELECT * FROM dbo.tmovimiento where "
ban=0
For Each x In Request.Form
' Solo se concatena si fue seleccionado
if request.Form(x) <> "" then
response.Write("ban = " & ban & "<br>") ' Para checar
' Concatena las AND
if ban <> 0 then SSQL = SSQL & " and " end if
SSQL = SSQL & x & "=" & request.Form(x)
response.Write(SSQL & "<br>") ' Para checar
ban = ban + 1
end if
next
SSQL = SSQL & " ORDER BY idcliente DESC"
end if
response.Write(SSQL) |