要生成条形码的最后一位校验码,用sql语句怎么写啊

Question

create function dbo.EAN_13(@value varchar(13))
    returns varchar(13)
as
begin
    declare @s1 int ,@s2 int
   
    declare @t table (id int identity(1,1),b bit)    insert into @t(b)
       select top 13 1 from syscolumns     set @value='0'+reverse(@value)
    
    select @s1=sum(cast(substring(@value,id,1) as int))
    from @t a
    where len(@value)>=id and id%2=0    set @s1=@s1*3    select @s2=sum(cast(substring(@value,id,1) as int))
    from @t a
    where len(@value)>=id and id>=3 and id%2=1    set @s1=@s1+@s2
    return left(reverse(@value),12)+ltrim(10-len(@s1))
end
goselect dbo.EAN_13('234235654652') ean13
godrop function EAN_13/*
ean13         
------------- 
2342356546528（所影响的行数为 1 行）
*/

Answer 1

declare @s nvarchar(50),@i int,@ss nvarchar(50),@b int,@a int,@c nvarchar(50)
set @s='234235654652'
set @ss=''
set @i=0
set @b=0
set @a=0
while @i<=len(@s)
begin 
if ((@i+1)%2=1 and (@i+1)>=2)
set @a=@a+cast(substring(@s,@i,1) as int)
if ((@i+1)%2=0 and (@i+1)>=3)
set @b=@b+cast(substring(@s,@i,1) as int)
set @i=@i+1
end
set @c=rtrim(convert( nvarchar(50),3*@a+@b))
select 10-convert(int,substring(@c,len(@c)-1,1)),@a,@b,@c
自己转换为函数或者存储过程

Answer 2

要更改表里面所有Card_id字段的值应该怎么弄啊

Answer 3

用我上面的函数.. update tb
   set card_id=dbo.EAN_13(card_id)