delphi sqlsever 实现存在则更新，不存在

Posted 2020-10-07 快乐的正能量

(‘ if exists(select * from NBcommission where Type=‘‘‘+sType+‘‘‘and ItemNo=‘‘‘+s+‘‘‘ ) ‘+
‘ begin‘+
‘ update NBcommission set Amount=‘‘‘+m+‘‘‘ , CType=‘‘‘+sCType+‘‘‘where Type=‘‘‘+sType+‘‘‘and ItemNo=‘‘‘+s+‘‘‘ ;‘+
‘ end;‘ +
‘ else‘+
‘ begin‘+
‘ INSERT into NBcommission (Type,ItemNo,Unit,Amount,Ctype) values ( ‘‘‘+sType+‘‘‘ , ‘‘‘+s+‘‘‘ , ‘‘‘ +sUnit+ ‘‘‘ , ‘‘‘ +m+ ‘‘‘ , ‘‘‘ +sCType+ ‘‘‘); ‘+
‘ end;‘
);