diff --git a/Addin.SSMS2018/Addin.SSMS2018.vbproj b/Addin.SSMS2018/Addin.SSMS2018.vbproj
index 98a55fc..337964b 100644
--- a/Addin.SSMS2018/Addin.SSMS2018.vbproj
+++ b/Addin.SSMS2018/Addin.SSMS2018.vbproj
@@ -3,6 +3,7 @@
16.0
$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)
+
On
@@ -10,6 +11,9 @@
Binary
+
+ false
+
Debug
@@ -20,7 +24,7 @@
Library
SSMS2018Addin
SSMS2018Addin
- v4.7.2
+ v4.8
true
true
true
@@ -44,7 +48,7 @@
prompt
41999,42016,42017,42018,42019,42020,42021,42022,42032,42036
True
- C:\Program Files %28x86%29\Microsoft SQL Server Management Studio 18\Common7\IDE\Extensions\
+ C:\Program Files %28x86%29\Microsoft SQL Server Management Studio 19\Common7\IDE\Extensions\
pdbonly
@@ -90,7 +94,7 @@
- ..\..\..\..\Program Files (x86)\Microsoft SQL Server Management Studio 18\Common7\IDE\Extensions\Application\Microsoft.SqlServer.TransactSql.ScriptDom.dll
+ ..\..\..\..\..\..\..\Program Files (x86)\Microsoft SQL Server Management Studio 19\Common7\IDE\Extensions\Application\Microsoft.SqlServer.TransactSql.ScriptDom.dll
False
diff --git a/Addin.SSMS2018/My Project/AssemblyInfo.vb b/Addin.SSMS2018/My Project/AssemblyInfo.vb
index ba9a361..60dde18 100644
--- a/Addin.SSMS2018/My Project/AssemblyInfo.vb
+++ b/Addin.SSMS2018/My Project/AssemblyInfo.vb
@@ -8,13 +8,13 @@ Imports System.Runtime.InteropServices
' associated with an assembly.
-
+
diff --git a/Addin.SSMS2018/SettingForm.Designer.vb b/Addin.SSMS2018/SettingForm.Designer.vb
index 4484a5e..9995104 100644
--- a/Addin.SSMS2018/SettingForm.Designer.vb
+++ b/Addin.SSMS2018/SettingForm.Designer.vb
@@ -77,7 +77,7 @@ Partial Class SettingForm
'ComboBoxParserVersion
'
Me.ComboBoxParserVersion.FormattingEnabled = True
- Me.ComboBoxParserVersion.Items.AddRange(New Object() {"SQL Server 2008", "SQL Server 2012", "SQL Server 2014", "SQL Server 2016", "SQL Server 2017", "SQL Server 2019"})
+ Me.ComboBoxParserVersion.Items.AddRange(New Object() {"SQL Server 2008", "SQL Server 2012", "SQL Server 2014", "SQL Server 2016", "SQL Server 2017", "SQL Server 2019", "SQL Server 2022"})
Me.ComboBoxParserVersion.Location = New System.Drawing.Point(136, 30)
Me.ComboBoxParserVersion.Name = "ComboBoxParserVersion"
Me.ComboBoxParserVersion.Size = New System.Drawing.Size(316, 21)
diff --git a/Addin.SSMS2018/ToolWindow1Control.xaml.vb b/Addin.SSMS2018/ToolWindow1Control.xaml.vb
index f1e4e7b..e02868e 100644
--- a/Addin.SSMS2018/ToolWindow1Control.xaml.vb
+++ b/Addin.SSMS2018/ToolWindow1Control.xaml.vb
@@ -201,8 +201,10 @@ Partial Public Class ToolWindow1Control
SqlParser = New TSql140Parser(False)
ElseIf TargetVersion = "SQL Server 2019" Then
SqlParser = New TSql150Parser(False)
+ ElseIf TargetVersion = "SQL Server 2022" Then
+ SqlParser = New TSql160Parser(False)
Else
- SqlParser = New TSql140Parser(False)
+ SqlParser = New TSql150Parser(False)
End If
Dim parseErrors As IList(Of ParseError) = New List(Of ParseError)
@@ -221,26 +223,33 @@ Partial Public Class ToolWindow1Control
- Dim StrAdd2 = ""
Dim Gen As SqlScriptGenerator = Nothing
If TargetVersion = "SQL Server 2008" Then
Gen = New Sql100ScriptGenerator
+ Gen.Options.SqlVersion = SqlVersion.Sql100
ElseIf TargetVersion = "SQL Server 2012" Then
Gen = New Sql110ScriptGenerator
+ Gen.Options.SqlVersion = SqlVersion.Sql110
ElseIf TargetVersion = "SQL Server 2014" Then
Gen = New Sql120ScriptGenerator
+ Gen.Options.SqlVersion = SqlVersion.Sql120
ElseIf TargetVersion = "SQL Server 2016" Then
Gen = New Sql130ScriptGenerator
+ Gen.Options.SqlVersion = SqlVersion.Sql130
ElseIf TargetVersion = "SQL Server 2017" Then
Gen = New Sql140ScriptGenerator
+ Gen.Options.SqlVersion = SqlVersion.Sql140
ElseIf TargetVersion = "SQL Server 2019" Then
Gen = New Sql150ScriptGenerator
+ Gen.Options.SqlVersion = SqlVersion.Sql150
+ ElseIf TargetVersion = "SQL Server 2022" Then
+ Gen = New Sql160ScriptGenerator
+ Gen.Options.SqlVersion = SqlVersion.Sql160
Else
- Gen = New Sql140ScriptGenerator
+ Gen = New Sql150ScriptGenerator
End If
- Gen.Options.IncludeSemicolons = False
Gen.Options.AlignClauseBodies = False
Gen.GenerateScript(result, ResultCode)