[Ayuda] Traducir Codigo php a VB 6

[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