[Ayuda] Traducir Codigo php a VB 6

[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)