我的第一篇CTO文章

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/weixin_34049948/article/details/85105140
我的第一篇CTO文章,呵呵,不知道写些什么,以前是在HI.BAIDU写(http://hi.baidu.com/hz022),里面的传图片很麻烦,现在可以用Windows Live Writer来写,很方便,希望能在这里找到属于自己的发布天地!
 
 
***********************
获得证书
 
 
 
 
 
展开阅读全文

我的第一篇sqlserver原创文章:在远程服务器上创建数据库

06-09

散分以庆祝发布第一篇原创rnrn我的第一篇原创,欢迎大家批评指正rn[url=http://blog.csdn.net/xys_777/archive/2010/06/09/5657605.aspx][/url]rnrnrn[code=SQL]内容如下:rnrn在sql server里连接远程服务器,并进行创建和删除新数据库rnrn一、创建新库rnrn/* rn测试 在sql2005中通过查询分析器,连接到sql2000,并创建了 tmpdb 库:成功rnrnp_CreateDB 'tmpdb1','data','sa','sa'rnrn*/rnrn-----------------------创建存储过程开始--------------------rnif object_id('p_CreateDB') is not nullrndrop procedure p_CreateDBrngornCREATE PROCEDURE p_CreateDB rn@Des_DB sysname, --目标数据库rn@ServerName sysname=N'', --服务器名rn@UserName sysname=N'', --用户名,不指定则表示使用 Windows 身份登录rn@pwd sysname=N'' --密码 rnASrnSET NOCOUNT ONrnDECLARE @srvid int,--服务器的对象rn @dbsid int,rn @Dbid int,--新建数据库对象rn @DBFile int,--新建数据库DB文件rn @LogFile int,--新建数据库Log文件rn @CmdStr nvarchar(4000)rndeclare @err int,@src varchar(255), @desc varchar(255) --错误处理变量rnrnrnIF ISNULL(@ServerName,N'')=N'' SET @ServerName=@@ServerName --默认为本地数据库rnrn--创建sqldmo对象·rnEXEC @err=sp_oacreate 'sqldmo.sqlserver',@srvid OUTrnIF @err<>0 GOTO lb_Errrnrn--连接服务器rnIF ISNULL(@UserName,N'')=N'' --使用 Windows 身份登录rnBEGINrn EXEC @err=sp_oasetproperty @srvid,'loginsecure',-1rn IF @err<>0 GOTO lb_Errrnrn EXEC @err=sp_oamethod @srvid,'connect',NULL,@ServerNamernENDrnELSErn EXEC @err=sp_oamethod @srvid,'connect',NULL,@ServerName,@UserName,@pwdrnrnIF @err<>0 GOTO lb_Errrn--新数据库对象创建rnEXEC @err=sp_oacreate 'SQLDMO.Database',@Dbid OUTrnIF @err<>0 GOTO lb_ErrrnEXEC @err=sp_oasetproperty @Dbid, 'Name',@Des_DBrnIF @err<>0 GOTO lb_Errrn/*rn---这里可以设置数据文件与日志文件的属性,不写就由sql server默认rn--新数据库DB文件对象创建,并设置属性rnEXEC @err=sp_oacreate 'SQLDMO.DBFile',@DBFile OUTrnIF @err<>0 GOTO lb_ErrrnEXEC @err=sp_oasetproperty @DBFile, 'Name','tmpfile'rnIF @err<>0 GOTO lb_ErrrnEXEC @err=sp_oasetproperty @DBFile, 'PhysicalName','c:\tmp.mdf'rnIF @err<>0 GOTO lb_ErrrnEXEC @err=sp_oasetproperty @DBFile, 'PrimaryFile','true'rnIF @err<>0 GOTO lb_ErrrnEXEC @err=sp_oasetproperty @DBFile, 'FileGrowthType',0rnIF @err<>0 GOTO lb_ErrrnEXEC @err=sp_oasetproperty @DBFile, 'FileGrowth',1rnIF @err<>0 GOTO lb_Errrn--新数据库对象加入DB文件rnEXEC @err = sp_OAMethod @Dbid,'FileGroups.Item("primary").DBFiles.Add',null,@DBFilernIF @err<>0 GOTO lb_Errrnrn--新数据库LOG文件对象创建,并设置属性rnEXEC @err=sp_oacreate 'SQLDMO.LogFile',@LogFile OUTrnIF @err<>0 GOTO lb_ErrrnEXEC @err=sp_oasetproperty @LogFile, 'Name','tmplg'rnIF @err<>0 GOTO lb_ErrrnEXEC @err=sp_oasetproperty @LogFile, 'PhysicalName','c:\tmp.ldf'rn--新数据库对象加入DB文件rnEXEC @err = sp_OAMethod @Dbid,'TransactionLog.LogFiles.Add',null,@LogFilernIF @err<>0 GOTO lb_Errrn*/rn--在服务器上创建 新数据库rnEXEC @err = sp_OAMethod @srvid,'Databases.Add',null,@dbidrnIF @err<>0 GOTO lb_Errrnrn/*rnEXEC @err= sp_OAGetProperty @srvid, 'Databases', @dbsid OUTrnIF @err<>0 GOTO lb_ErrrnrnSET @CmdStr = 'Add'rnEXEC @err = sp_OAMethod @dbsid,@CmdStr,null,@dbidrn*/rnrnrn--结束rnSET @err=0rnGOTO lb_Exitrnrn--错误处理rnlb_Err:rn EXEC sp_oageterrorinfo NULL, @src OUT, @desc OUT rn EXEC sp_OADestroy @LogFilern EXEC sp_OADestroy @DBFilern EXEC sp_OADestroy @Dbsid rn EXEC sp_OADestroy @Dbid rn EXEC sp_OADestroy @srvid rn EXEC @err=sp_oamethod @srvid,'DisConnect'rn RAISERROR(N'错误编号 %#x, 错误源 "%s", 错误描述 "%s"',16,1,@err,@src,@desc)rn RETURN -1rnrnlb_Exit:rn EXEC sp_OADestroy @LogFilern EXEC sp_OADestroy @DBFilern EXEC sp_OADestroy @Dbsid rn EXEC sp_OADestroy @Dbid rn EXEC sp_OADestroy @srvid rn EXEC @err=sp_oamethod @srvid,'DisConnect'rn RETURN @errrnGOrnrn二、删除数据库rnrn/*rn测试 rnrnp_DropDB 'tmpdb1','data','sa','sa'rn*/rnrnif object_id('p_DropDB') is not nullrndrop procedure p_DropDBrngornCREATE PROCEDURE p_DropDB rn@Des_DB sysname, --目标数据库rn@ServerName sysname=N'', --服务器名rn@UserName sysname=N'', --用户名,不指定则表示使用 Windows 身份登录rn@pwd sysname=N'' --密码 rnASrnSET NOCOUNT ONrnDECLARE @srvid int,--服务器的对象rn @dbsid int,rn @Dbid int,--数据库对象rn @CmdStr nvarchar(4000)rndeclare @err int,@src varchar(255), @desc varchar(255) --错误处理变量rnrnIF ISNULL(@ServerName,N'')=N'' SET @ServerName=@@ServerName --默认为本地数据库rnrn--创建sqldmo对象·rnEXEC @err=sp_oacreate 'sqldmo.sqlserver',@srvid OUTrnIF @err<>0 GOTO lb_Errrnrn--连接服务器rnIF ISNULL(@UserName,N'')=N'' --使用 Windows 身份登录rnBEGINrn EXEC @err=sp_oasetproperty @srvid,'loginsecure',-1rn IF @err<>0 GOTO lb_Errrnrn EXEC @err=sp_oamethod @srvid,'connect',NULL,@ServerNamernENDrnELSErn EXEC @err=sp_oamethod @srvid,'connect',NULL,@ServerName,@UserName,@pwdrnrnIF @err<>0 GOTO lb_Errrnrn--删除数据库rn--这两个都可以删除rnEXEC @err = sp_OAMethod @srvid,'KillDatabase',null,@Des_DBrnIF @err<>0 GOTO lb_Errrn/*rn--rnEXEC @err = sp_OAMethod @srvid,'Databases.Remove',null,@Des_DBrnIF @err<>0 GOTO lb_Errrn*/rnrn--结束rnSET @err=0rnGOTO lb_Exitrnrn--错误处理rnlb_Err:rn EXEC sp_oageterrorinfo NULL, @src OUT, @desc OUT rn EXEC sp_OADestroy @Dbsid rn EXEC sp_OADestroy @Dbid rn EXEC sp_OADestroy @srvid rn EXEC @err=sp_oamethod @srvid,'DisConnect'rn RAISERROR(N'错误编号 %#x, 错误源 "%s", 错误描述 "%s"',16,1,@err,@src,@desc)rn rn RETURN -1rn rnlb_Exit:rn EXEC sp_OADestroy @Dbsid rn EXEC sp_OADestroy @Dbid rn EXEC sp_OADestroy @srvid rn EXEC @err=sp_oamethod @srvid,'DisConnect'rn RETURN @errrnGOrnrnrn--更多功能 可以 参考联机丛书[/code]rnrn 论坛

没有更多推荐了,返回首页