Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

rodrigo.p

Randomize....

Recommended Posts

Fala galera... :P agoro poder compartinhar os conhecimentos com os outros isso ajuda a almentar mais o nosso proprio conhecimento heehehe. B) Agora é o seguinte....estou montando uma tabela aonde vão ter numeros aleatórios teria como eu criar um randomize desses numeros por ex:tabela clientenumero_do_cliente Nome1254 rogerio56478 igor6325 camilatem como criar numeros randonicos desses numeros acima?sendo que só pode mostrar um desses 3 numeros o random não pode criar outro numero q não os da tabela....pensei em usar dim clie(3)mas e se a tabela tiver mais de 3???? ;) abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

Poderia explicar melhor o que você quer fazer?

Compartilhar este post


Link para o post
Compartilhar em outros sites

você quer "sortear" um Id de usuário?

Ou criar um ID aleatório?

Compartilhar este post


Link para o post
Compartilhar em outros sites

1º você faz um select para pegar o ultimo ID, armazena ele em uma variável.

Set IDs = conn.execute"Select ID From tabela Order By ID Desc;"
ID = IDs("ID")
IDs.Close
Set IDs.Nothing

2º Usa o Randomize para sortear um ID até esse:

Randomize
Sorteio = Cint(Rnd*(Cint(ID)-1)+1)

3º Seleciona esse ID

Compartilhar este post


Link para o post
Compartilhar em outros sites

1º você faz um select para pegar o ultimo ID, armazena ele em uma variável.

Set IDs = conn.execute"Select ID From tabela Order By ID Desc;"ID = IDs("ID")IDs.CloseSet IDs.Nothing
2º Usa o Randomize para sortear um ID até esse:
RandomizeSorteio = Cint(Rnd*(Cint(ID)-1)+1)
3º Seleciona esse ID
eu fiz isso e coloquei para se não achar nenhum id ele coloca o 1º mas o ruim não é isso. o id é muito grande e é muito distante um valor do outro oq ocasiona no aparecimento maior do 1º registro.eu gostaria de saber se tem como fazer esse sistema randonico funcionar de uma forma onde aparentemente todos os registros aparecem. ;)

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.