Randomico

[mcelmo]

Pessoal, estou precisando muito de ajuda!!!

Estou precisando fazer um randomico de dados do banco de dados.

explicando melhor: Tenho uma tabela "Pergunta", o que eu gostaria de fazer é depois que ler a tabela com dataset pegar as perguntas aleatorias gerando um relatório. como faço me dêem uma luz, algo por onde começar.

Mcelmo.

[Graymalkin]

Você pode utilizar Rnd() para obter um valor aleatório e depois pegar o registro referente a este valor.

Abraços,

Graymalkin

[mcelmo]

ok. entendi, mais você poderia me explicar melhor. tipo passo-a-passo.

mcelmo.

[Graymalkin]

Supondo que você já tenha um DataSet com pelo menos uma tabela, seria algo assim:

        Dim tabela As DataTable = ds.Tables(0) '1ª tabela do DataSet

        Dim n As Integer = Rnd() * (tabela.Rows.Count - 1)
        Msgbox(tabela.Rows(n)("campo"))

Onde "ds" é o DataTable.

Abraços,

Graymalkin

[mcelmo]

ok. Fiz uns ajustes e funcionou perfeitamente caso alguém queira o codigo é só pedir. Muito obrigado.