Sorteio de Itens com Random não esta Funcionando ?

Delphi

12/02/2005

Pessoal estava utilizando antes IB6, utiliza esta rotina p/ sortear itens
o usuário diz quantos itens ele quer sortear e pronto, agora estou usando
Fb e a rotina não funcionado + alguem pode me dizer porque ?
Obrigado a tds !!!

var
i:Integer;
Quantos:Integer;
QuantItens:Integer;
Estoque:Currency ;
begin
Application.ProcessMessages ;
Quantos:=StrToInt(EdQuantos.Text);
QuantItens:=165741 ;
i:=1;
Randomize;
TableTemp.EmptyDataSet ;
ObjPro.LerDados ;
While i <= Quantos do
begin
ObjPro.Tb_Produto.RecNo:=Random(QuantItens);
TableTemp.Append ;
TableTemp.FieldByName(´Produto´ ).Text:=ObjPro.Tb_Produto.FieldByname(´Produto´ ).Text ;
TableTemp.FieldByName(´Preco_Venda´ ).Text:=ObjPro.Tb_Produto.FieldByname(´Preco_Venda´ ).Text ;
TableTemp.FieldByName(´Preco_Compra´).Text:=ObjPro.Tb_Produto.FieldByname(´Preco_Compra´).Text ;
TableTemp.FieldByName(´Quantidade´ ).Text:=ObjPro.Tb_Produto.FieldByname(´Quantidade´ ).Text ;
i:=i+1;
end;


Essistemas

Essistemas

Curtidas 0

Respostas

Beppe

Beppe

12/02/2005

O componente de acesso ainda é o mesmo?

Se você dispor de uma UDF com uma rotina Random, use o seguinte SQL com o FB:

select first Quantos * from Tabela order by Random

onde Quantos é o número de ítems que vc quer. Não estou certo, mas acho que isto não dá para parametrizar, então vc substitui pelo valor por vc mesmo.


GOSTEI 0
Essistemas

Essistemas

12/02/2005

Tentei usar desta forma + não deu certo
diz que
select first 10 * from produtos
order by Random o erro é na linha order by random
não tenho uma UDF como poderia criar p/ solucionar este
problema !!

Obrigado !!


GOSTEI 0
Motta

Motta

12/02/2005

palpite ...

tente ...

select first 10 produtos.*,random
from produtos
order by Random


deve existir um objeto random (function , view etc) qualquer claro !!


GOSTEI 0
Motta

Motta

12/02/2005

Na realidade a random (pela sua estrutura) deve ser uma package (Oracle) , não seu se FB tem isto.


GOSTEI 0
POSTAR