Randomize num Array()

[asp.net 0]

O código abaixo é para pegar valores de registro de uma tabela e colocar num array, depois ele pega os valores do array e gera um valor randomico para consultar novamente numa um registro aleatoriobusca_codigo="Select codigo from usuario" vb.Open busca_codigo vetor_codigo = array() 'inicia sem valor while not vb.eof ReDim preserve vetor_codigo ( UBound( vetor_codigo )+1) 'Ubound vai retornar o número de elementos; some 1 para adicionar vetor_codigo ( Ubound( vetor_codigo ) ) = vb("codigo") vb.movenextwendrandomize() registro_atual = Int(vetor_codigo * Rnd) + 1

[Fernando B. 0]

Pode fazer assim também ó:

 

Set Rs = Conn.Execute("....")Variavel   = Rs.GetRows()Randomize Timer()Registro  = Int((UBOUND(Variavel, 2) +1) * Rnd)Registro = Variavel(0, Registro)

O timer ali no Randomize() é dus tempu di VêBê... :P

 

- Fernando Botelho