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)