判断主表的子表下是否存在相应记录

if exists(select name from sysobjects
 where name='HaveRecord' and type in ('P'))
 drop proc HaveRecord
go
CREATE proc HaveRecord
  @tbname sysname,-- 基础数据表名
  @PkFieldName sysname,-- 基础数据表关键字段名
  @PkValue varchar(100),-- 要删除的基础数据表关键字值
  @isHave bit output

AS
begin
set @isHave = 0
DECLARE @flag bit, @s nvarchar(4000)
declare @bzs int
set @bzs=0
DECLARE tb CURSOR LOCAL --开始建立游标
FOR

--以下查询是找到与其相关联的子表,建立与相应字段相等的查询语句
SELECT N'
SET @flag = CASE WHEN EXISTS(
  SELECT *  FROM ' + QUOTENAME(@tbname)
  + N' A, ' + QUOTENAME(OBJECT_NAME(B.fkeyid))
  + N' B
  WHERE A.' + QUOTENAME((SELECT name FROM syscolumns WHERE colid = B.rkey AND id = B.rkeyid))
  + N' = B.' + QUOTENAME((SELECT name FROM syscolumns WHERE colid = B.fkey AND id = B.fkeyid))
  + N' AND A.' + QUOTENAME((SELECT name FROM syscolumns WHERE colid = B.rkey AND id = B.rkeyid))
  + N' = @id) THEN 1 ELSE 0 END '
FROM sysobjects A
  JOIN sysforeignkeys B
  ON A.id= B.constid
  JOIN sysobjects C
  ON A.parent_obj = C.id
WHERE A.xtype = 'f'
  AND C.xtype = 'U'
  AND OBJECT_NAME(B.rkeyid) = @tbname --游标结束

OPEN tb --打开游标
FETCH tb INTO @s --判断游标是正确
WHILE @@FETCH_STATUS = 0
BEGIN
--查询每个子表中是否存在记录,如果有则@flag返回1,否则返回0

  EXEC sp_executesql @s, N'@id varchar(100), @flag bit OUTPUT', @PkValue, @flag OUTPUT

  IF @flag = 1
  BEGIN
 set @bzs=@bzs+1  --如果子中有记录则加1
  END
  FETCH tb INTO @s
END
CLOSE tb --关闭游标
DEALLOCATE tb --释放游标
if @bzs > 0 --子表中有记录,否则为没有记录
  begin
 set @isHave = 1
  end
end

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值