random????????

Delphi

17/11/2004

[b:9290526872]Gostaria de saber se tem como dar um random em um resultado de uma query????????? quero desorganizar, nao poder ter nenhum tipo de ordenação... Abraços


Cristiano [/b:9290526872]


Cristianouzel

Cristianouzel

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

17/11/2004

:arrow: [color=blue:ab42cfedb0][b:ab42cfedb0]Já precisei fazer isso, e resolvi da seguinte forma:[/b:ab42cfedb0][/color:ab42cfedb0]

...
Var
   intParametro : Integer;
Begin
  Query.Sql.Text :=   ´ SELECT      NOME, DTNASCIMENTO, CPF, RG ´
                          +   ´ FROM         FUNCIONARIOS ´
                          +   ´ ORDER BY  SUBSTR(NOME,3,:PARAMETRO) ´ ;
  Randomize;
  intParametro := RandomRange(1,10);
  Query.Params[0].AsString := IntToStr(intParametro);
  Query.Open();
End;


Desse Jeito, ordeno sempre por uma parte do nome.

[color=red:ab42cfedb0][u:ab42cfedb0][b:ab42cfedb0]Obs:[/b:ab42cfedb0][/u:ab42cfedb0][/color:ab42cfedb0]
[color=red:ab42cfedb0][b:ab42cfedb0]1 -[/b:ab42cfedb0][/color:ab42cfedb0] O SUBSTR() é um comando específico do ORACLE. Procure a função similiar a esta no SGBD que estajas utilizando.
[color=red:ab42cfedb0][b:ab42cfedb0]2 - [/b:ab42cfedb0][/color:ab42cfedb0]Utilizei o parâmetro como ´AsString´ pq é o único tipo de parâmetro suportado pelo ORACLE.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

17/11/2004

Colega,

Antes de postar, leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]regras de conduta.[/url]


GOSTEI 0
POSTAR