{"id":66,"date":"2007-07-26T07:12:17","date_gmt":"2007-07-26T07:12:17","guid":{"rendered":"https:\/\/www.wapshere.com\/missmiis\/?page_id=66"},"modified":"2007-07-26T07:25:16","modified_gmt":"2007-07-26T07:25:16","slug":"miisapp-pendingexportsvb","status":"publish","type":"page","link":"https:\/\/www.wapshere.com\/missmiis\/code-snippets\/miisapp-pendingexportsvb","title":{"rendered":"MiisApp: PendingExports.vb"},"content":{"rendered":"

Imports System.Data.SqlClient<\/p>\n

Public Class PendingExports
\nInherits System.Windows.Forms.Form<\/p>\n

Public MA As String<\/p>\n

Const DISABLES = “jobRunnerDISABLES”
\nConst DB_CONNECTION_STRING As String = “Database=MIISData;Data Source=MIISSERVER;Integrated Security=TRUE;;”
\nConst MIISDB_CONNECTION_STRING As String = “Database=MicrosoftIdentityIntegrationServer;Data Source=MIISSERVER;Integrated Security=TRUE;;”
\nDim sqlQueryConnection As New SqlConnection(DB_CONNECTION_STRING)
\nDim sqlMIISConnection As New SqlConnection(MIISDB_CONNECTION_STRING)<\/p>\n

#Region ” Windows Form Designer generated code ”<\/p>\n

Public Sub New()
\n\u00c2\u00a0 MyBase.New()<\/p>\n

‘This call is required by the Windows Form Designer.
\n\u00c2\u00a0 InitializeComponent()<\/p>\n

‘Add any initialization after the InitializeComponent() call<\/p>\n

End Sub<\/p>\n

‘Form overrides dispose to clean up the component list.
\n\u00c2\u00a0 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
\n\u00c2\u00a0 If disposing Then
\n\u00c2\u00a0 If Not (components Is Nothing) Then
\n\u00c2\u00a0 components.Dispose()
\n\u00c2\u00a0 End If
\n\u00c2\u00a0 End If
\n\u00c2\u00a0 MyBase.Dispose(disposing)
\n\u00c2\u00a0 End Sub<\/p>\n

‘Required by the Windows Form Designer
\n\u00c2\u00a0 Private components As System.ComponentModel.IContainer<\/p>\n

‘NOTE: The following procedure is required by the Windows Form Designer
\n\u00c2\u00a0 ‘It can be modified using the Windows Form Designer.
\n\u00c2\u00a0 ‘Do not modify it using the code editor.
\n\u00c2\u00a0 Friend WithEvents Txt_PendingExports As System.Windows.Forms.TextBox
\n\u00c2\u00a0 <\/system.diagnostics.debuggerstepthrough()>Private Sub InitializeComponent()
\n\u00c2\u00a0 Me.Txt_PendingExports = New System.Windows.Forms.TextBox
\n\u00c2\u00a0 Me.SuspendLayout()
\n\u00c2\u00a0 ‘
\n\u00c2\u00a0 ‘Txt_PendingExports
\n\u00c2\u00a0 ‘
\n\u00c2\u00a0 Me.Txt_PendingExports.Location = New System.Drawing.Point(0, 0)
\n\u00c2\u00a0 Me.Txt_PendingExports.Multiline = True
\n\u00c2\u00a0 Me.Txt_PendingExports.Name = “Txt_PendingExports”
\n\u00c2\u00a0 Me.Txt_PendingExports.ReadOnly = True
\n\u00c2\u00a0 Me.Txt_PendingExports.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
\n\u00c2\u00a0 Me.Txt_PendingExports.Size = New System.Drawing.Size(296, 272)
\n\u00c2\u00a0 Me.Txt_PendingExports.TabIndex = 0
\n\u00c2\u00a0 Me.Txt_PendingExports.Text = “”
\n\u00c2\u00a0 ‘
\n\u00c2\u00a0 ‘PendingExports
\n\u00c2\u00a0 ‘
\n\u00c2\u00a0 Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
\n\u00c2\u00a0 Me.ClientSize = New System.Drawing.Size(292, 273)
\n\u00c2\u00a0 Me.Controls.Add(Me.Txt_PendingExports)
\n\u00c2\u00a0 Me.Name = “PendingExports”
\n\u00c2\u00a0 Me.Text = “Pending Exports”
\n\u00c2\u00a0 Me.ResumeLayout(False)<\/p>\n

End Sub<\/p>\n

#End Region<\/p>\n

Private Sub PendingExports_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
\nDisplayPendingExports(MA)
\nEnd Sub<\/p>\n

Public Sub DisplayPendingExports(ByVal MA As String)
\nDim sqlqueryString As String
\nDim rowReader As SqlDataReader
\nsqlMIISConnection.Open()<\/p>\n

‘ADD
\nsqlqueryString = “select rdn from dbo.mms_connectorspace cs ” & _
\n“join dbo.mms_management_agent ma ” & _
\n“on cs.ma_id=ma.ma_id ” & _
\n“where ma.ma_name='” & MA & “‘ and cs.export_operation = 1”<\/p>\n

Dim sqlAddQuery As New SqlCommand(sqlqueryString, sqlMIISConnection)
\nrowReader = sqlAddQuery.ExecuteReader
\nWhile rowReader.Read()
\nMe.Txt_PendingExports.AppendText(“add ” & rowReader.GetString(0) & vbCrLf)
\nEnd While
\nrowReader.Close()<\/p>\n

‘UPDATE
\nsqlqueryString = “select rdn from dbo.mms_connectorspace cs ” & _
\n“join dbo.mms_management_agent ma ” & _
\n“on cs.ma_id=ma.ma_id ” & _
\n“where ma.ma_name='” & MA & “‘ and cs.export_operation = 2”<\/p>\n

Dim sqlUpdateQuery As New SqlCommand(sqlqueryString, sqlMIISConnection)
\nrowReader = sqlUpdateQuery.ExecuteReader
\nWhile rowReader.Read()
\nMe.Txt_PendingExports.AppendText(“update ” & rowReader.GetString(0) & vbCrLf)
\nEnd While
\nrowReader.Close()<\/p>\n

‘DELETE
\nsqlqueryString = “select rdn from dbo.mms_connectorspace cs ” & _
\n“join dbo.mms_management_agent ma ” & _
\n“on cs.ma_id=ma.ma_id ” & _
\n“where ma.ma_name='” & MA & “‘ and cs.export_operation = 4”<\/p>\n

Dim sqlDeleteQuery As New SqlCommand(sqlqueryString, sqlMIISConnection)
\nrowReader = sqlDeleteQuery.ExecuteReader
\nWhile rowReader.Read()
\nMe.Txt_PendingExports.AppendText(“delete ” & rowReader.GetString(0) & vbCrLf)
\nEnd While
\nrowReader.Close()<\/p>\n

sqlMIISConnection.Close()
\nEnd Sub<\/p>\n

End Class<\/p>\n","protected":false},"excerpt":{"rendered":"

Imports System.Data.SqlClient Public Class PendingExports Inherits System.Windows.Forms.Form Public MA As String Const DISABLES = “jobRunnerDISABLES” Const DB_CONNECTION_STRING As String = “Database=MIISData;Data Source=MIISSERVER;Integrated Security=TRUE;;” Const MIISDB_CONNECTION_STRING As String = “Database=MicrosoftIdentityIntegrationServer;Data Source=MIISSERVER;Integrated Security=TRUE;;” Dim sqlQueryConnection As New SqlConnection(DB_CONNECTION_STRING) Dim sqlMIISConnection As New SqlConnection(MIISDB_CONNECTION_STRING) #Region ” Windows Form Designer generated code ” Public Sub New() \u00c2\u00a0 MyBase.New() ‘This…<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":30,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"jetpack_post_was_ever_published":false,"footnotes":""},"class_list":["post-66","page","type-page","status-publish","hentry"],"jetpack_shortlink":"https:\/\/wp.me\/Pkp1o-14","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/66","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/comments?post=66"}],"version-history":[{"count":0,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/66\/revisions"}],"up":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/30"}],"wp:attachment":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/media?parent=66"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}