AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

SQLEditor: Minor Tweaks

Browse Source
This commit is contained in:
Jonathan Jenne 2021-04-29 16:08:31 +02:00
parent 81932eaab6
commit c33d5ff340
3 changed files with 39 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
Controls.SQLEditor/frmSQLEditor.Designer.vb generated
View File

@ -22,17 +22,17 @@ Partial Class frmSQLEditor
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim EditorButtonImageOptions3 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() Dim EditorButtonImageOptions1 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQLEditor)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQLEditor))
Dim SerializableAppearanceObject9 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject1 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject10 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject2 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject11 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject3 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject12 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject4 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim EditorButtonImageOptions4 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions() Dim EditorButtonImageOptions2 As DevExpress.XtraEditors.Controls.EditorButtonImageOptions = New DevExpress.XtraEditors.Controls.EditorButtonImageOptions()
Dim SerializableAppearanceObject13 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject5 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject14 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject6 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject15 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject7 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Dim SerializableAppearanceObject16 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject() Dim SerializableAppearanceObject8 As DevExpress.Utils.SerializableAppearanceObject = New DevExpress.Utils.SerializableAppearanceObject()
Me.RepositoryItemRibbonSearchEdit2 = New DevExpress.XtraBars.Ribbon.Internal.RepositoryItemRibbonSearchEdit() Me.RepositoryItemRibbonSearchEdit2 = New DevExpress.XtraBars.Ribbon.Internal.RepositoryItemRibbonSearchEdit()
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
Me.GridControlPlaceholders = New DevExpress.XtraGrid.GridControl() Me.GridControlPlaceholders = New DevExpress.XtraGrid.GridControl()
@ -111,9 +111,9 @@ Partial Class frmSQLEditor
Me.RepositoryItemRibbonSearchEdit2.AllowFocused = False Me.RepositoryItemRibbonSearchEdit2.AllowFocused = False
Me.RepositoryItemRibbonSearchEdit2.AutoHeight = False Me.RepositoryItemRibbonSearchEdit2.AutoHeight = False
Me.RepositoryItemRibbonSearchEdit2.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder Me.RepositoryItemRibbonSearchEdit2.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
EditorButtonImageOptions3.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True] EditorButtonImageOptions1.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True]
EditorButtonImageOptions3.SvgImage = CType(resources.GetObject("EditorButtonImageOptions3.SvgImage"), DevExpress.Utils.Svg.SvgImage) EditorButtonImageOptions1.SvgImage = CType(resources.GetObject("EditorButtonImageOptions1.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.RepositoryItemRibbonSearchEdit2.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Glyph, "", -1, True, True, True, EditorButtonImageOptions3, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject9, SerializableAppearanceObject10, SerializableAppearanceObject11, SerializableAppearanceObject12, "", Nothing, Nothing, DevExpress.Utils.ToolTipAnchor.[Default]), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Clear, "", -1, True, False, False, EditorButtonImageOptions4, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject13, SerializableAppearanceObject14, SerializableAppearanceObject15, SerializableAppearanceObject16, "", Nothing, Nothing, DevExpress.Utils.ToolTipAnchor.[Default])}) Me.RepositoryItemRibbonSearchEdit2.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Glyph, "", -1, True, True, True, EditorButtonImageOptions1, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject1, SerializableAppearanceObject2, SerializableAppearanceObject3, SerializableAppearanceObject4, "", Nothing, Nothing, DevExpress.Utils.ToolTipAnchor.[Default]), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Clear, "", -1, True, False, False, EditorButtonImageOptions2, New DevExpress.Utils.KeyShortcut(System.Windows.Forms.Keys.None), SerializableAppearanceObject5, SerializableAppearanceObject6, SerializableAppearanceObject7, SerializableAppearanceObject8, "", Nothing, Nothing, DevExpress.Utils.ToolTipAnchor.[Default])})
Me.RepositoryItemRibbonSearchEdit2.Name = "RepositoryItemRibbonSearchEdit2" Me.RepositoryItemRibbonSearchEdit2.Name = "RepositoryItemRibbonSearchEdit2"
Me.RepositoryItemRibbonSearchEdit2.NullText = "Search" Me.RepositoryItemRibbonSearchEdit2.NullText = "Search"
' '
@ -128,10 +128,10 @@ Partial Class frmSQLEditor
Me.LayoutControl1.Controls.Add(Me.DropDownButton3) Me.LayoutControl1.Controls.Add(Me.DropDownButton3)
Me.LayoutControl1.Controls.Add(Me.cmbConnections) Me.LayoutControl1.Controls.Add(Me.cmbConnections)
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.LayoutControl1.Location = New System.Drawing.Point(0, 63) Me.LayoutControl1.Location = New System.Drawing.Point(0, 66)
Me.LayoutControl1.Name = "LayoutControl1" Me.LayoutControl1.Name = "LayoutControl1"
Me.LayoutControl1.Root = Me.Root Me.LayoutControl1.Root = Me.Root
Me.LayoutControl1.Size = New System.Drawing.Size(1283, 605) Me.LayoutControl1.Size = New System.Drawing.Size(1283, 604)
Me.LayoutControl1.TabIndex = 0 Me.LayoutControl1.TabIndex = 0
Me.LayoutControl1.Text = "LayoutControl1" Me.LayoutControl1.Text = "LayoutControl1"
' '
@ -142,7 +142,7 @@ Partial Class frmSQLEditor
Me.GridControlPlaceholders.MainView = Me.GridViewPlaceholder Me.GridControlPlaceholders.MainView = Me.GridViewPlaceholder
Me.GridControlPlaceholders.MenuManager = Me.RibbonControl1 Me.GridControlPlaceholders.MenuManager = Me.RibbonControl1
Me.GridControlPlaceholders.Name = "GridControlPlaceholders" Me.GridControlPlaceholders.Name = "GridControlPlaceholders"
Me.GridControlPlaceholders.Size = New System.Drawing.Size(417, 246) Me.GridControlPlaceholders.Size = New System.Drawing.Size(417, 245)
Me.GridControlPlaceholders.TabIndex = 7 Me.GridControlPlaceholders.TabIndex = 7
Me.GridControlPlaceholders.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewPlaceholder}) Me.GridControlPlaceholders.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewPlaceholder})
' '
@ -178,7 +178,7 @@ Partial Class frmSQLEditor
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.ShowToolbarCustomizeItem = False Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.Size = New System.Drawing.Size(1283, 63) Me.RibbonControl1.Size = New System.Drawing.Size(1283, 66)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
' '
@ -250,10 +250,10 @@ Partial Class frmSQLEditor
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem1) Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem1)
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem2) Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem2)
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem3) Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem3)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 668) Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 670)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1283, 24) Me.RibbonStatusBar1.Size = New System.Drawing.Size(1283, 22)
' '
'GridControlResult 'GridControlResult
' '
@ -261,7 +261,7 @@ Partial Class frmSQLEditor
Me.GridControlResult.MainView = Me.GridViewResult Me.GridControlResult.MainView = Me.GridViewResult
Me.GridControlResult.MenuManager = Me.RibbonControl1 Me.GridControlResult.MenuManager = Me.RibbonControl1
Me.GridControlResult.Name = "GridControlResult" Me.GridControlResult.Name = "GridControlResult"
Me.GridControlResult.Size = New System.Drawing.Size(838, 246) Me.GridControlResult.Size = New System.Drawing.Size(838, 245)
Me.GridControlResult.TabIndex = 5 Me.GridControlResult.TabIndex = 5
Me.GridControlResult.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewResult}) Me.GridControlResult.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewResult})
' '
@ -345,10 +345,10 @@ Partial Class frmSQLEditor
' '
'RibbonStatusBar11 'RibbonStatusBar11
' '
Me.RibbonStatusBar11.Location = New System.Drawing.Point(0, 752) Me.RibbonStatusBar11.Location = New System.Drawing.Point(0, 757)
Me.RibbonStatusBar11.Name = "RibbonStatusBar11" Me.RibbonStatusBar11.Name = "RibbonStatusBar11"
Me.RibbonStatusBar11.Ribbon = Me.RibbonControl11 Me.RibbonStatusBar11.Ribbon = Me.RibbonControl11
Me.RibbonStatusBar11.Size = New System.Drawing.Size(1283, 27) Me.RibbonStatusBar11.Size = New System.Drawing.Size(1283, 22)
' '
'DropDownButton2 'DropDownButton2
' '
@ -386,7 +386,7 @@ Partial Class frmSQLEditor
Me.Root.GroupBordersVisible = False Me.Root.GroupBordersVisible = False
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem3, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.SimpleLabelItem2, Me.LayoutControlItem1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.SimpleSeparator1, Me.SimpleLabelItem1, Me.SimpleSeparator2}) Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem3, Me.LayoutControlItem2, Me.LayoutControlItem4, Me.SimpleLabelItem2, Me.LayoutControlItem1, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem7, Me.LayoutControlItem8, Me.SimpleSeparator1, Me.SimpleLabelItem1, Me.SimpleSeparator2})
Me.Root.Name = "Root" Me.Root.Name = "Root"
Me.Root.Size = New System.Drawing.Size(1283, 605) Me.Root.Size = New System.Drawing.Size(1283, 604)
Me.Root.TextVisible = False Me.Root.TextVisible = False
' '
'LayoutControlItem3 'LayoutControlItem3
@ -400,14 +400,14 @@ Partial Class frmSQLEditor
Me.LayoutControlItem3.Size = New System.Drawing.Size(421, 59) Me.LayoutControlItem3.Size = New System.Drawing.Size(421, 59)
Me.LayoutControlItem3.Text = "SQL Verbindung" Me.LayoutControlItem3.Text = "SQL Verbindung"
Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top
Me.LayoutControlItem3.TextSize = New System.Drawing.Size(97, 16) Me.LayoutControlItem3.TextSize = New System.Drawing.Size(105, 16)
' '
'LayoutControlItem2 'LayoutControlItem2
' '
Me.LayoutControlItem2.Control = Me.GridControlResult Me.LayoutControlItem2.Control = Me.GridControlResult
Me.LayoutControlItem2.Location = New System.Drawing.Point(421, 335) Me.LayoutControlItem2.Location = New System.Drawing.Point(421, 335)
Me.LayoutControlItem2.Name = "LayoutControlItem2" Me.LayoutControlItem2.Name = "LayoutControlItem2"
Me.LayoutControlItem2.Size = New System.Drawing.Size(842, 250) Me.LayoutControlItem2.Size = New System.Drawing.Size(842, 249)
Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem2.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem2.TextVisible = False Me.LayoutControlItem2.TextVisible = False
' '
@ -416,7 +416,7 @@ Partial Class frmSQLEditor
Me.LayoutControlItem4.Control = Me.GridControlPlaceholders Me.LayoutControlItem4.Control = Me.GridControlPlaceholders
Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 335) Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 335)
Me.LayoutControlItem4.Name = "LayoutControlItem4" Me.LayoutControlItem4.Name = "LayoutControlItem4"
Me.LayoutControlItem4.Size = New System.Drawing.Size(421, 250) Me.LayoutControlItem4.Size = New System.Drawing.Size(421, 249)
Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0) Me.LayoutControlItem4.TextSize = New System.Drawing.Size(0, 0)
Me.LayoutControlItem4.TextVisible = False Me.LayoutControlItem4.TextVisible = False
' '
@ -430,7 +430,7 @@ Partial Class frmSQLEditor
Me.SimpleLabelItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.SimpleLabelItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.SimpleLabelItem2.Size = New System.Drawing.Size(842, 36) Me.SimpleLabelItem2.Size = New System.Drawing.Size(842, 36)
Me.SimpleLabelItem2.Text = "Ergebnis" Me.SimpleLabelItem2.Text = "Ergebnis"
Me.SimpleLabelItem2.TextSize = New System.Drawing.Size(97, 16) Me.SimpleLabelItem2.TextSize = New System.Drawing.Size(105, 16)
' '
'LayoutControlItem1 'LayoutControlItem1
' '
@ -443,7 +443,7 @@ Partial Class frmSQLEditor
Me.LayoutControlItem1.Size = New System.Drawing.Size(1263, 238) Me.LayoutControlItem1.Size = New System.Drawing.Size(1263, 238)
Me.LayoutControlItem1.Text = "SQL Abfrage" Me.LayoutControlItem1.Text = "SQL Abfrage"
Me.LayoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top
Me.LayoutControlItem1.TextSize = New System.Drawing.Size(97, 16) Me.LayoutControlItem1.TextSize = New System.Drawing.Size(105, 16)
' '
'LayoutControlItem5 'LayoutControlItem5
' '
@ -501,7 +501,7 @@ Partial Class frmSQLEditor
Me.SimpleLabelItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) Me.SimpleLabelItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10)
Me.SimpleLabelItem1.Size = New System.Drawing.Size(421, 36) Me.SimpleLabelItem1.Size = New System.Drawing.Size(421, 36)
Me.SimpleLabelItem1.Text = "Platzhalter" Me.SimpleLabelItem1.Text = "Platzhalter"
Me.SimpleLabelItem1.TextSize = New System.Drawing.Size(97, 16) Me.SimpleLabelItem1.TextSize = New System.Drawing.Size(105, 16)
' '
'SimpleSeparator2 'SimpleSeparator2
' '

2
Controls.SQLEditor/frmSQLEditor.resx
View File

@ -118,7 +118,7 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="EditorButtonImageOptions3.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="EditorButtonImageOptions1.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl

18
Controls.SQLEditor/frmSQLEditor.vb
View File

@ -12,17 +12,17 @@ Public Class frmSQLEditor
Private SQLServer As MSSQLServer Private SQLServer As MSSQLServer
Private CurrentPosition As String Private CurrentPosition As String
Private Placeholders As New List(Of SqlPlaceholder) Private Placeholders As New List(Of Placeholder)
Private Connections As New List(Of SqlConnection) Private Connections As New List(Of Connection)
Private Patterns As ClassPatterns Private Patterns As ClassPatterns
Friend Class SqlPlaceholder Friend Class Placeholder
Public Property Placeholder As String Public Property Placeholder As String
Public Property Replacement As String Public Property Replacement As String
End Class End Class
Friend Class SqlConnection Friend Class Connection
Public Property Guid As Integer Public Property Guid As Integer
Public Property Name As String Public Property Name As String
Public Property Description As String Public Property Description As String
@ -74,10 +74,10 @@ Public Class frmSQLEditor
Try Try
Dim oSQL As String = "SELECT * FROM TBDD_CONNECTION" Dim oSQL As String = "SELECT * FROM TBDD_CONNECTION"
Dim oTable As DataTable = SQLServer.GetDatatable(oSQL) Dim oTable As DataTable = SQLServer.GetDatatable(oSQL)
Dim oConnections As New List(Of SqlConnection) Dim oConnections As New List(Of Connection)
For Each oRow As DataRow In oTable.Rows For Each oRow As DataRow In oTable.Rows
oConnections.Add(New SqlConnection With { oConnections.Add(New Connection With {
.Guid = NotNull(oRow.Item("GUID"), String.Empty), .Guid = NotNull(oRow.Item("GUID"), String.Empty),
.Name = NotNull(oRow.Item("BEZEICHNUNG"), String.Empty), .Name = NotNull(oRow.Item("BEZEICHNUNG"), String.Empty),
.Provider = NotNull(oRow.Item("SQL_PROVIDER"), String.Empty), .Provider = NotNull(oRow.Item("SQL_PROVIDER"), String.Empty),
@ -92,7 +92,7 @@ Public Class frmSQLEditor
Return oConnections Return oConnections
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) ShowErrorMessage(ex)
Return New List(Of SqlConnection) Return New List(Of Connection)
End Try End Try
End Function End Function
@ -110,7 +110,7 @@ Public Class frmSQLEditor
Try Try
Dim oSQL As String = txtSQL.EditValue.ToString Dim oSQL As String = txtSQL.EditValue.ToString
Dim oConnection As SqlConnection = cmbConnections.SelectedItem Dim oConnection As Connection = cmbConnections.SelectedItem
Dim oConnectionString = SQLServer.GetConnectionString(oConnection.Server, oConnection.Database, oConnection.Username, oConnection.Password) Dim oConnectionString = SQLServer.GetConnectionString(oConnection.Server, oConnection.Database, oConnection.Username, oConnection.Password)
Dim oTable As DataTable = SQLServer.GetDatatableWithConnection(oSQL, oConnectionString) Dim oTable As DataTable = SQLServer.GetDatatableWithConnection(oSQL, oConnectionString)
@ -136,7 +136,7 @@ Public Class frmSQLEditor
Placeholders.Clear() Placeholders.Clear()
For Each oPattern In Patterns.GetAllPatterns(Text) For Each oPattern In Patterns.GetAllPatterns(Text)
Placeholders.Add(New SqlPlaceholder With { Placeholders.Add(New Placeholder With {
.Placeholder = oPattern.ToString, .Placeholder = oPattern.ToString,
.Replacement = "" .Replacement = ""
}) })