[Ayuda] Traducir Codigo php a VB 6

[thebestmatrix007]

hola bueno de nuevo estoy aqui pidiendole ayuda a los maestros de programacion.

en esta ocasion tengo un pequeño problema con un codigo php que no lo he logrado traducir bien del todo en php por eso quisiera su ayuda a ver si ustedes pueden dejarlo en VB bien.

el codigo es el siguiente.

Código:

<?PHP

function updaterank() {
   global $db;
     $updrank = $db->Execute("SELECT Id, TotalScore FROM game ORDER BY 'TotalScore' DESC");
     $rank = 0;
     foreach ($updrank->GetArray() as $r => $rankinfo) {
          $rank++;
          $db->Execute("UPDATE game SET TotalRank=? WHERE Id = ?", array($rank,$rankinfo['Id']));
     }
}

function updategrade() {
   global $db;



                   $db->Execute("UPDATE game SET TotalGrade='19' WHERE TotalScore >= 0 and TotalScore < 1099 and TotalGrade != 19 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='18' WHERE TotalScore >= 1100 and TotalScore < 1199  and TotalGrade !=18 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='17' WHERE TotalScore >= 1200 and TotalScore < 1499 and TotalGrade !=17 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='16' WHERE TotalScore >= 1500 and TotalScore < 1799 and TotalGrade !=16 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='15' WHERE TotalScore >= 1800 and TotalScore < 2299 and TotalGrade !=15 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='14' WHERE TotalScore >= 2300 and TotalScore < 2799 and TotalGrade !=14 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='13' WHERE TotalScore >= 2800 and TotalScore < 3499 and TotalGrade !=13 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='12' WHERE TotalScore >= 3500 and TotalScore <= 4199 and TotalGrade !=12 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='11' WHERE TotalScore >= 4200 and TotalScore <= 5099 and TotalGrade !=11 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='10' WHERE TotalScore >= 5100 and TotalScore <= 5999 and TotalGrade !=10 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='9' WHERE TotalScore >= 6000 and TotalScore <= 6899 and TotalGrade !=9 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='8' WHERE TotalScore >= 6900 and TotalScore <= 8172 and TotalGrade !=8 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='7' WHERE TotalScore >= 8173 and TotalScore <= 9939 and TotalGrade !=7 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='6' WHERE TotalScore >= 9940 and TotalScore <= 13076 and TotalGrade !=6 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='5' WHERE TotalScore >= 13077 and TotalScore <= 16024 and TotalGrade !=5 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='4' WHERE TotalScore >= 16025 and TotalScore <= 21984 and TotalGrade != 4 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='3' WHERE TotalScore >= 21985 and TotalScore <= 27280 and TotalGrade !=3 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='2' WHERE TotalScore >= 27281 and TotalScore <= 35334 and TotalGrade !=2 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='1' WHERE TotalScore >= 35335 and TotalScore <= 51221 and TotalGrade !=1 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='0' WHERE TotalScore >= 51222 and TotalScore <= 107915 and TotalGrade !=0 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='-1' WHERE TotalScore >= 107916 and TotalScore <= 199628 and TotalGrade !=-1 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='-2' WHERE TotalScore >= 199629 and TotalScore <= 227294 and TotalGrade !=-2 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='-3' WHERE TotalScore >= 227295 and TotalScore <= 238203 and TotalGrade !=-3 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='-4' WHERE TotalScore >= 238204 and TotalGrade !=-4 and  NoRankUpdate = 0");

            
}

updaterank();
updategrade();

?>

ese es el codigo que quisiera pasarlo en php quisiera alguien me podria ayudar a traducirlo por completo a VB, ya luego ire intendiendo. espero su ayuda gracias.

[wansoft]

Yo creo que para hacer una muy buena traduccion, lo mejor es saber de ambos lenguajes. Intenta buscar algo de info en Internet sobre el PHP... ¿ Con cual lenguaje te llevas bien ? ¿ Cual es el objetivo de esta conversion ?

[culd]

son solo sentencias sql.

Crea una conexion ado con odbc con string de conexion mysql... Vas a tener dos objetos, el objeto connection y el objeto recorset...

Conectas, y en el recorser mandas
recorser.Open "la sentencia", tipo, tipo, tipo

Nada mas

[thebestmatrix007]

Iniciado por wansoft

Yo creo que para hacer una muy buena traduccion, lo mejor es saber de ambos lenguajes. Intenta buscar algo de info en Internet sobre el PHP... ¿ Con cual lenguaje te llevas bien ? ¿ Cual es el objetivo de esta conversion ?

la logica la entiendo y ia he avanzado mucho en varias cosas. bueno en realidad no qeria todo el codigo, porque gran mayoria si lo he traducido normal en la unica duda que tengo es en esta parte nomas.

Código:

<?PHP

function updaterank() {
   global $db;
     $updrank = $db->Execute("SELECT Id, TotalScore FROM game ORDER BY 'TotalScore' DESC");
     $rank = 0;
     foreach ($updrank->GetArray() as $r => $rankinfo) {
          $rank++;
          $db->Execute("UPDATE game SET TotalRank=? WHERE Id = ?", array($rank,$rankinfo['Id']));
     }
}

nose como quedaria al final, he logrado traducirla tb, pero me he obviado muchas sentencias que creo que si son importantes. pero que no se como seria en el LP de VB 6, lo demas si lo traduci muy bien, espero su ayuda gracias.

[culd]

Código:

<?PHP

function updaterank() {
   global $db;
     $updrank = $db->Execute("SELECT Id, TotalScore FROM game ORDER BY 'TotalScore' DESC");
     $rank = 0;
     foreach ($updrank->GetArray() as $r => $rankinfo) {
          $rank++;
          $db->Execute("UPDATE game SET TotalRank=? WHERE Id = ?", array($rank,$rankinfo['Id']));
     }
}

No leiste lo que puse, o sos un completo ignorante y al no saber de lo que te escribi, directamente omitiste por ignorancia bruta.

Código vb:

Public Sub updaterank()
   Dim rank as integer
 
   recorset1.Open "SELECT Id, TotalScore FROM game ORDER BY 'TotalScore' DESC", conexion, adOpenStatic, adLockReadOnly
 
   Do While recorset.EOF = False
      rank = rank + 1
      recorset2.Open "UPDATE game SET TotalRank='" rank & "' WHERE Id = '" & recorset1("Id") & "';", conexion, adOpenDynamic, adLockOptimistic
      recorset1.movenext
   Loop
   
   recorset1.close
End Sub
 

Obviamente tenes que declarar los dos recorset y podes usar una misma conexion para los dos recorset (esa conexion tambien la tenes que declarar)

[thebestmatrix007]

Iniciado por culd

Código:

<?PHP

function updaterank() {
   global $db;
     $updrank = $db->Execute("SELECT Id, TotalScore FROM game ORDER BY 'TotalScore' DESC");
     $rank = 0;
     foreach ($updrank->GetArray() as $r => $rankinfo) {
          $rank++;
          $db->Execute("UPDATE game SET TotalRank=? WHERE Id = ?", array($rank,$rankinfo['Id']));
     }
}

No leiste lo que puse, o sos un completo ignorante y al no saber de lo que te escribi, directamente omitiste por ignorancia bruta.

Código vb:

Public Sub updaterank()
   Dim rank as integer
 
   recorset1.Open "SELECT Id, TotalScore FROM game ORDER BY 'TotalScore' DESC", conexion, adOpenStatic, adLockReadOnly
 
   Do While recorset.EOF = False
      rank = rank + 1
      recorset2.Open "UPDATE game SET TotalRank='" rank & "' WHERE Id = '" & recorset1("Id") & "';", conexion, adOpenDynamic, adLockOptimistic
      recorset1.movenext
   Loop
   
   recorset1.close
End Sub
 

Obviamente tenes que declarar los dos recorset y podes usar una misma conexion para los dos recorset (esa conexion tambien la tenes que declarar)

gracias por la ayuda, pero tampoco seas tan grosero, si no puedesayudarme no lo hagas, en cuanto los recordsets, eso fue lo primero que use y uso una sola conexion para todas y mi duda solo era eso, y pues ya aclarada te agradesco de todas formas.

saludos