ASP自动生成编号的方法

王朝asp·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

用过许多序号的方法,indentity 或 new id() ,都不好用,自己写了一个,这个序号的特点是:每次取相应表中的系统当天最大序号,如果当天无记录,则自动生成一个当天序号。

1.建种子表,这个表用来保存各个表目前已使用到的最大序号

--种子表

create table SEED (

BM varchar(20) not null, --表名

BH varchar(12) not null, --种子编号

constraint PK_SEED primary key(BM)

)

go

2.当我们建一个新表时,同时把这个表名记录到种子表中,如:

--向种子中表添加记录

insert into SEED (BM,BH) values('tablename','200211070000')

go

3.在数据库建一存储过程,自动生成新编号,此编号取当天时间,所以许多时候查询某些天的记录时,这个序号非常有用。

--为参数传递来的某个表自动生成编号

if exists (select * from sysobjects where name='proc_getbh')

drop procedure proc_getbh

go

create procedure proc_getbh @BM varchar(20)

as

declare @BH char(12)

declare @TODAY char(8)

begin

select @TODAY=convert(char(8),getdate(),112)

select @BH=BH from SEED where BM=@BM

if @BH is null or left(@BH,8)<>@TODAY

begin

select @BH=@TODAY+'0000'

end

select @BH=left(@BH,8)+ right('0000' + ltrim(convert(char(4),convert(int,right(@BH,4)))+1),4)

update SEED set BH=@BH where BM=@BM

select @BH AS BH

end

4.实例如下:

'对表xxx自动生成新编号

set rs=conn.execute("proc_getbh @BM='xxx'")

这样,rs("BH")就是你得到的新编号。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航