Mensajes

En este caso necesitarias cargar con el .OCX e instalarlo y registrarlo en la máquina victima  todo un lío, hay otras alternativas para evitarlo, API's te suena? en el server?

Creo que lo que postio es todo lo que lleva...


acá tienes otro ejemplo, "sacado de la pag. del guille, "te lista en un combo los nombre de los campos de una tabla determinada:

Código (vb) [Seleccionar] Expandir

Private Sub Llenar_Combo()
'referencia a: Microsoft ActiveX Data Objects 2.0 Library

Dim tCampo     As Field
Dim tRecordset As Recordset

    Set tRecordset = Nothing       'limpar el objeto
    Set tRecordset = New Recordset 'crearlo

    'acá dos formas de abrir el recordset, indicando la tabla a la q queremos acceder
    'tRecordset.Open "SELECT * FROM Nombre_Tabla", Conex, adOpenDynamic, adLockOptimistic
   
    tRecordset.Open "Nombre_Tabla", Conex
    'Conex es una variable tipo string que almacena la cadena de conexion
   
    With Combo1
        .Clear 'limpiando el combo
        'se recorre la tabla
        For Each tCampo In tRecordset.Fields
            .AddItem tCampo.Name 'asignando los nombre de los campos
        Next
        .ListIndex = 0
    End With
   
    'Cerrar el recordset y la conexión
    tRecordset.Close
End Sub

Private Sub Form_Activate()
    Llenar_Combo
End Sub

[Reorganización de los emparejamientos:]

Reorganización de los emparejamientos:

En vista de lo que dice Carloswaldo (y tiene mucha razón), se piensa en lo siguiente, "la primera ronda debería ser nuevos contra viejos (participantes)" y tomando en consideración el que los enfrentamientos actuales son un poco injusto (por las circunstancias antes mencionadas), he decido tomar la responsabilidad que me dejo gravediger para organizar los emparejamientos y así va:

Más claro ni el agua:

- Se seleccionan los nuevos y se agregan a una lista ordenada alfabéticamente.
- Se genera una segunda lista con los participantes del torneo anterior, ordenados por posición obtenida.

- En el caso del tal "cassiani" y "Drenelly" como no se decidió quien se quedaría con el sexto lugar, se ordeno alfabéticamente, obviamente la c esta antes que la d, aunque se que eso a Drenn no le importa.

- En el caso de la vacante de la octava posición de la segunda lista de participantes (debido a la ausencia de un usuario del torneo anterior), se ha incluido a "andavid" por ser el "nuevo" con mas tiempo en el foro (tiene sus ventajas).



Acá no hay ningún misterio:
-  Para los emparejamientos, se selecciono cada digito de una lista junto con su similar en la otra  (1 vs 1, 2 vs 2, ... 8 vs 8).
- Para las llaves, se decidió tomar a los primeros 4 del torneo anterior y ubicarlos como cabeza de llave, de esta manera se evitan enfrentamientos prematuros entre los actuales mejores 4 y los restantes se quedan tal cual.
- Más transparente imposible. Y quedan de la siguiente manera:



Incluso mi llave no me gusta  (quién quiere a lord tan cerca) , pero creo es lo mas justo.

Las reglas son claras:
-   Las partidas tendrán un límite de dos semanas comenzando desde este fin.
-   Si no se producen los enfrentamientos dentro del tiempo establecido, ambos quedan descalificados.
-   Si alguno desaparece queda fuera por default.


Edipo ya se te envió el mp con la red y la clave, a los restantes se la envió luego, tengo sueño.

El que tenga algo que objetar que lo haga ya, de lo contrario empezamos el sabado.


Por hay escuche que el premio será unos 100mb de espacio libre en algún Server, no se, arréglense con el organizador. Lo único que digo es que gravediger aun espera lo que le prometió Carlos. 

No esperaba menos de ti, como siempre tan hermosas todas, bueno... unas más que otras.

Me gusto mucho el wall Aranguren y la que le sigue, claro, a mi gusto le haría una pequeña modificación... es que el titulo de centro no va conmigo 

a ver cuando iniciamos una nueva batallita   

¡salud0s profe!

Refrescas cuando cargues el form1 y ya esta o sino te gusta de esa forma, le creas un botoncito que diga "Actualizar" y hay refrescas 

Pasará lo mismo que con el post anterior, este no es el subforo...

Me extraña la pregunta 

Capturas el contenido de los combos en variables cierto? después de hacerlo compara el contenido de esas variables, hay muchas formas.

Suponiendo que los cuatros combos se llaman "select0", "select1"... "select3" y usando vectores para evitar una chorreada de líneas innecesarias, quedaría así:

Código (php) [Seleccionar] Expandir


for ($i=0; $i<4; $i++)
{
$combo='select'.$i;
$v[$i]= $_POST[$combo];//la captura

if (!$v[$i])
$v[$i]=0;
else
$v[$i]=1;
}
$linea = $cantidad . "," . $base . "," . $altura . "," . $material . "," . $detalle ."," . $v[0] ."," . $v[1] ."," . $v[2] ."," . $v[3]."\n";
echo $linea;


En este caso uso en lugar de "$pvc1" ==> "$v[0]" y así con las demás, aumentando en uno el índice, debes tomar en cuenta lo siguiente: estoy actualizando los vectores con los que capturo porque no los usare mas, pero si tienes pensado darle algún otro uso, entonces no actualices en ellos y que crea otro.

Espero eso solucione tu pequeño problema, aunque me extraño 

y si tus combos tienen nombres diferentes, los capturas por parte obvio 

Bueno no se para que usas dos form ya te lo había dicho antes, en todo caso puedes tener dos datagrid en el mismo form si te gusta. Los datagrid solo mostraran lo que esta en una tabla determinada no se conectaran unos con otros, en ese caso como es la misma tabla, simplemente refresca el otro ADO, pero la recomendación es no usar el datacontrol heem!

Código (vb) [Seleccionar] Expandir

Adodc1.Refresh

Puedes hacer uso del recordcount (como te dicen) o fusionar el BOF y EOF como te mencione anteriormente...

BOF devolverá True si el "puntero" está antes del primer registro y EOF hará lo mismo si ese puntero está después del último registro. Para comprobar si realmente está vacío se deben cumplir las dos condiciones:

Código (vb) [Seleccionar] Expandir

If Not (Adodc1.Recordset.BOF And Adodc1.Recordset.EOF) Then
        If MsgBox("¿Está seguro de Eliminar esté Registro?", _
        vbQuestion + vbYesNo, "Eliminar Registro") = vbYes Then
             Adodc1.Recordset.Delete adAffectCurrent
             Adodc1.Refresh
        End If
    Else
        MsgBox "Para eliminar un registro ¿no hace falta uno? xD"
    End If

suerte!! 

Has uso de BOF y EOF para determinarlo...