maximo valor en vector

[carnero]

holas tengo el siguiente codigo:

Código vb:

Dim z As String
Dim vector(1) As String
 
SQL = "SELECT count(f1) FROM [Joint Reactions] "
Set rst = cnn.Execute(SQL)
          z = rst.Fields(0)
SQL = "SELECT * FROM [Joint Reactions] "
Set rst = cnn.Execute(SQL)
   
    For x = 0 To z
 
        vector(x) = Round(Abs(rst.Fields(7) / rst.Fields(5)), 2)
        rst.MoveNext
        
    Next
 

y bueno los valores de la operacin matematica, lo guardo en un vector (porque no se me ocurre otra forma ) y necesito obtener el valor mayor de los elementos dentro del arreglo.

gracias

[carnero]

retracto mi pregunta, lo hise de la siguiente manera, lo dejo por si a alguin le llegara a servir :P

Código vb:

While rst.EOF = False
        
            x = Round(Abs(rst.Fields(7) / rst.Fields(5)), 2)
        If z > x Then
        rst.MoveNext
        Else
            z = x
            rst.MoveNext
        End If
   Wend
 

[-rommel_]

Código vb:

do while not rst.EOF
    x=Round(Abs(rst.Fields(7)/fields(5)),2)
    if x>z Then z=x
    rst.moveNext
loop
 

yo creo que quedaria mejor... en tu casa... habria veces que correrias 2 registros en una sola pasada... mejor asi..

[carnero]

Iniciado por -rommel_

Código vb:

do while not rst.EOF
    x=Round(Abs(rst.Fields(7)/fields(5)),2)
    if x>z Then z=x
    rst.moveNext
loop
 

yo creo que quedaria mejor... en tu casa... habria veces que correrias 2 registros en una sola pasada... mejor asi..

puedes esplicarte mejor porfavor

gracias

[-rommel_]

si solo que haces un "rst.MoveNext" dentro del IF y dentro del ELSE... bueno y resulta que siempre vas a hacer "rst.MoveNext"... mejor dejarlo fuera y ahorras codigo :D... jejej espero haberme explicado...