sql2005 生成定长随机数的过程

 

IF OBJECT_ID ('RandomStr','P') IS NOT NULL
    DROP proc RandomStr
go
create proc RandomStr
@RandomStr varchar(6) output
as 
BEGIN
declare @s varchar(60)   
declare @r varchar(6)   
declare @pos int
declare @len int
set @s = '0123456789'   
set @len = len(@s);
set @r = ''   
    
while len(@r) < 6   
begin   
   set @pos = cast(rand()*100 as int);
   while @pos > @len or @pos <1
   begin
    if(@pos < 1)
     set @pos = cast(rand()*100 as int);
    else
     set @pos = cast(@pos /2 as int);
   end
   set @r = @r + substring(@s, @pos, 1)
end   
set @RandomStr = @r
END

纯数据的话,以下方式更简单(生成9位以下)

create proc randnum
@len bigint ,--需要的长度
@seed int, --需要的种子
@rand int output--需要的结果
as
begin
declare @rval int
set @len=power(10,@len);
set @rval = rand(@seed)*@len;
while(@rval<(@len)/10)
begin
   set @seed=@seed+1;
   set @rval = rand(@seed)*@len;
end
set @rand=@rval;
end

--测试

declare @t int,@seed int
set @seed= datepart(ms,getdate());
exec randnum 9,@seed,@t output
print @t