AuditSpecification.Script メソッド (ScriptingOptions)
スクリプト オプションで指定したとおりに監査仕様を再作成するために使用できる Transact-SQL スクリプトを生成します。
名前空間: Microsoft.SqlServer.Management.Smo
アセンブリ: Microsoft.SqlServer.Smo (Microsoft.SqlServer.Smo.dll)
構文
'宣言
Public Function Script ( _
scriptingOptions As ScriptingOptions _
) As StringCollection
'使用
Dim instance As AuditSpecification
Dim scriptingOptions As ScriptingOptions
Dim returnValue As StringCollection
returnValue = instance.Script(scriptingOptions)
public StringCollection Script(
ScriptingOptions scriptingOptions
)
public:
virtual StringCollection^ Script(
ScriptingOptions^ scriptingOptions
) sealed
abstract Script :
scriptingOptions:ScriptingOptions -> StringCollection
override Script :
scriptingOptions:ScriptingOptions -> StringCollection
public final function Script(
scriptingOptions : ScriptingOptions
) : StringCollection
パラメーター
- scriptingOptions
型: Microsoft.SqlServer.Management.Smo.ScriptingOptions
スクリプト オプションを指定するために使用する ScriptingOptions オブジェクトの値です。
戻り値
型: System.Collections.Specialized.StringCollection
スクリプト内の Transact-SQL ステートメントの一覧を含む StringCollection システム オブジェクトの値です。
実装
IScriptable.Script(ScriptingOptions)
説明
生成されたスクリプトには、ドキュメントに記載されていない内部プロシージャが含まれている場合があります。これらは、完全なスクリプト出力を行うために必要です。
使用例
'Connect to the local, default instance of SQL Server.
Dim srv As Server
srv = New Server
'Reference the AdventureWorks2012 database.
Dim db As Database
db = srv.Databases("AdventureWorks2012")
'Define a Scripter object and set the required scripting options.
Dim scrp As Scripter
scrp = New Scripter(srv)
scrp.Options.ScriptDrops = False
scrp.Options.WithDependencies = True
'Iterate through the tables in database and script each one. Display the script.
'Note that the StringCollection type needs the System.Collections.Specialized namespace to be included.
Dim tb As Table
Dim smoObjects(1) As Urn
For Each tb In db.Tables
smoObjects = New Urn(0) {}
smoObjects(0) = tb.Urn
If tb.IsSystemObject = False Then
Dim sc As StringCollection
sc = scrp.Script(smoObjects)
Dim st As String
For Each st In sc
Console.WriteLine(st)
Next
End If
Next