update con combo.

[vlah]

saludos lo que estoy intentando es actualizar una base de datos, por medio de combos..


por ejemplo, para actualizar un mes de compra de un articulo, pues jalo de la base de datos el mes. pero pues lo quiero hacer es que en un combo, me aparezcan todos los meses. y yo solo escoja al mes que corresponda, si necesidad de estar escribiendo. ahora como le puedo hacer para que si esta en octubre pues me aparezca en ese mes..y escoja en los siguientes meses.

suponiendo que tengo una tabla donde almaceno los meses. y en la tabla compra de articulos solo se guarde el mes, en que se compro..


no se si me haya dado ah entender..

[u_goldman]

No se si sea la mejor solución pero yo haría algo así:

Aqui está la tabla con el campo meses

|meses|
Enero
Febrero
Marzo
Abril
Mayo
Junio
Julio
Agosto
Septiembre
Octubre
Noviembre
Diciembre

Después tienes ya un recordset que incluye entre otras cosas el mes de compra, suponiendo que este mes sea 'Enero'

mes_compra= rsCompra("mes")

'Dimensionas un arreglo
Dim arrMeses(12)

Abres un recordset con la tabla de meses, yo le llamo rsMeses
Ahora poblamos el arreglo con lo que traiga el rsMeses, pero <> de mes_compra

For i=0 to rsMeses.Recordcount
If rsMeses("meses") <> mes_compra Then
arrMeses(i)= rsMeses("meses")
Else
arrMeses(i)= mes_compra
End If
rsMeses.MoveNext
Next

ok, ya tenemos un arreglo con los meses sin duplicados, ahora a poblar el combo

<select name=mes>
<%
For i = 0 to Ubound(arrMeses)
If not arrMeses(i) = mes_compra Then
%>
<option value="<%=arrMeses(i)%>"><%=arrMeses(i)%></option>
<%
Else
%>
<option value="<%=arrMeses(i)%>" selected><%=arrMeses(i)%></option>
<%
End If
%>
Next
</select>

No lo he probado pero creo que debe funcionar...incluso puedes hacer de esto una funcion que reciba solo al mes que no debe incluir y regrese el arreglo completo...

Salu2,

[vlah]

gracias ya lo cheque y si funciona..pero ahora como puedo redimensionar el arreglo en caso de que no sepa el numero de registros. al momento de declararlo..


:)

[u_goldman]

mes_compra= rsCompra("mes")

'Dimensionas un arreglo
Dim arrMeses()

Abres un recordset con la tabla de meses, yo le llamo rsMeses
Ahora poblamos el arreglo con lo que traiga el rsMeses, pero <> de mes_compra

For i=0 to rsMeses.Recordcount

If i=0 Then
Redim arrMeses(i)
Else
Redim Preserve arrMeses(i)
End If

If rsMeses("meses") <> mes_compra Then
arrMeses(i)= rsMeses("meses")
Else
arrMeses(i)= mes_compra
End If
rsMeses.MoveNext
Next

Creo que todo lo demás sería igual....


Salu2,