• 0
Sign in to follow this  
zerebeu

Random No Vb6

Question

boas

estou a fazer um programa que consiste em escolher aleitoriamente valores de uma base de dados....gostaria de saber se tal é possivel no vb6 e qual a função para esta operação...

desde já agradeço

Share this post


Link to post
Share on other sites

10 answers to this question

Recommended Posts

  • 0
escolher aleitoriamente valores de uma base de dados....

Você diz tipo um sorteio?

abraço... ;)

Share this post


Link to post
Share on other sites
  • 0

A função Rnd() gera um numero aleatório entre 0 e 1....

mas você pode fazer o seguinte: Rnd()*1000 , isso fará gerar entre 0 e 1000.

mas seu PC sempre vai gerar o mesmos numeros sempre. Por isso, antes de gerar coloque Randomize, assim toda vez será um numero diferente...

Ex:

Randomize

Num=Rnd()*1000

Espero ter ajudado!!!!

Share this post


Link to post
Share on other sites
  • 0

boas

ok agradeço muito a ajuda..mas já gora será possivel misturar esta função com uma query sql de modo a que este faça um select a um campo de uma tabela aleitoriamente

Share this post


Link to post
Share on other sites
  • 0

Acredito que se você usar assim dê certo!!!

SELECT [Campos] FROM [Tabela] WHERE [Campo] = Rnd()*1000

Acho que com isso ele vai procurar um registro que tenha o campo desejado igual a um numero entre 0 e 1000.

mas não se esqueça de botar o Randomize antes da instrução!!!!

Qualquer coisa, pergunte novamente!!!

Share this post


Link to post
Share on other sites
  • 0
Guest Visitante

Boas,

eu sou um novato em VB e tenho o mesmo problema e já experimentei essa linha e não resultou.

Podem explicar mais pormenorisado s.f.f. ?

Share this post


Link to post
Share on other sites
  • 0
Guest Visitante

Criei uma DataBox no form com as seguintes caracteristicas:

BOF Action: Move First

Connection: Acess

DataBaseName: "directório da base de dados"

DefaultCursorType: Default

DefaultType: use Jet

EOF Action: Move Last

Exclusive: False

Option: 0

ReadOnly: False

Recordset type: Dynaset

RecordSource: "nome da tabela"

Fiz Labels

Datasource: "nome da databox"

DataField: "nome da coluna"

E com este código para ir mudando:

Dim x

Randomize

x = Int((4 * Rnd) + 1) ' Generate random value between 1 and 6.

datPerguntas.Recordset.Move (x)

Mas assim só anda para a frente e quando chega ao fim dá erro!

Share this post


Link to post
Share on other sites
  • 0
Guest Visitante

DESCOBRI!

É só usar este código:

'RANDOM DE PERGUNTAS

'gera n random

Dim n

Randomize

n = Int((30 * Rnd) + 1) ' Generate random value between 1 and 6.

'procura na coluna Numero o nº n

Dim SearchCriteria

SearchCriteria = "numero = " + "'" + Trim$(n) + "'"

datPerguntas.Recordset.FindFirst SearchCriteria

'FIM RANDOM DE PERGUNTAS

Espero que ajude mais alguém.

Bons projectos. pessoal!

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this