AuditSpecification.Script 메서드 (ScriptingOptions)
Generates a Transact-SQL script that can be used to re-create the audit specification as specified by the script options.
네임스페이스: 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
A ScriptingOptions object value that is used to specify the script options.
반환 값
유형: System.Collections.Specialized.StringCollection
A StringCollection system object value that contains a list of Transact-SQL statements in the script.
구현
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