将代码从VB脚本更改为VB.NET [英] Changing the code from VB Script to VB.NET

问题描述

我在Internet上找到了此脚本，它将自动为SQL Server上的所有作业生成SQL脚本.除非我尝试执行它，否则都会引发错误.作为一名对VB脚本知识有限的SQL程序员，我寻求您的帮助将程序更改为VB.NET.
非常感谢.

-************ ***********************

Dim oSQLServer 

Dim oStream 

SET oSQlServer = CreateObject("SQLDMO.SQLServer") 

SET oStream = CreateObject("ADODB.Stream") 

oSQLServer.Connect "MySERVER", "UserID", "Pwd" 

Dim idStep 

Dim ScriptJob 

Dim CountJobs 

Dim JobName 

Dim ScriptAllJobs 

FOR Each oJob IN oSQLServer.JobServer.Jobs 

CountJobs = oSQLServer.JobServer.Jobs.Count 

Next 

FOR idStep = 1 TO CountJobs 

JobName = oSQLServer.JobServer.Jobs.Item(idStep).Name 

ScriptJob = oSQLServer.JobServer.Jobs.Item (idStep).Script(4, "C:\" & JobName & ".sql") 

ScriptAllJobs = ScriptAllJobs & ScriptJob 

Next 

oStream.Open 

oStream.WriteText (ScriptAllJobs) 

oStream.SaveToFile ("C:\SQLAllScripts.sql"), 2 

oStream.Close 

oSQLServer.DisConnect 

SET oSQLServer = Nothing 

解决方案

MSDN 论坛首页> Visual Basic互操作和升级位于此处:http://social.msdn.microsoft.com/Forums/zh-CN/vbinterop/threads/.

Dim oSQLServer

Dim oStream 

SET oSQlServer = CreateObject("SQLDMO.SQLServer") 

SET oStream = CreateObject("ADODB.Stream") 

oSQLServer.Connect "MySERVER", "UserID", "Pwd" 

Dim idStep 

Dim ScriptJob 

Dim CountJobs 

Dim JobName 

Dim ScriptAllJobs 

FOR Each oJob IN oSQLServer.JobServer.Jobs 

CountJobs = oSQLServer.JobServer.Jobs.Count 

Next 

FOR idStep = 1 TO CountJobs 

JobName = oSQLServer.JobServer.Jobs.Item(idStep).Name 

ScriptJob = oSQLServer.JobServer.Jobs.Item (idStep).Script(4, "C:\" & JobName & ".sql") 

ScriptAllJobs = ScriptAllJobs & ScriptJob 

Next 

oStream.Open 

oStream.WriteText (ScriptAllJobs) 

oStream.SaveToFile ("C:\SQLAllScripts.sql"), 2 

oStream.Close 

oSQLServer.DisConnect 

SET oStream = Nothing 

SET oSQLServer = Nothing 

解决方案

Hi, 

 

Thank you for your post!  I would suggest posting your question in one of the MSDN > Forums Home > Visual Basic Interop and Upgrade located here:  http://social.msdn.microsoft.com/Forums/en-US/vbinterop/threads/.

Have a great day!

这篇关于将代码从VB脚本更改为VB.NET的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！