SQLServer 设置单词首字母大写

/*
--sqlserver中将字符串首字母设置大写：
--作者:jinjazz /csdn
--sqlserver2005启用oleautomation
sp_configure 'show advanced options', 1;
go
reconfigure;
go
sp_configure 'ole automation procedures', 1;
go
reconfigure;
go
*/
use tempdb
go
if (object_id ('fn_totitlecase' ) is not null )
drop function dbo . fn_totitlecase
go
create function fn_totitlecase (@instr varchar (8000 ))
returns varchar (8000 )
as
begin
declare @str varchar (8000 )
set @str = 'var data = "' +@instr + '";
var reg = /\b(\w)|\s(\w)/g ;
data = data.tolowercase();
data.replace(reg,function(m){return m.touppercase()});'
declare @object int
declare @r varchar (800 )
exec sp_oacreate 'msscriptcontrol.scriptcontrol' ,@object output
exec sp_oasetproperty @object , 'language' , 'javascript'
exec sp_oamethod @object , 'eval' , @r out , @str
return @r
end
go
select dbo. fn_totitlecase ('create function fn_totitlecase(@instr varchar(8000)) returns varchar(8000)' )
/*输出
create function fn_totitlecase(@instr varchar(8000)) returns varchar(8000)
*/