You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
79 lines
2.4 KiB
79 lines
2.4 KiB
Imports System.Data.Sql
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
|
|
|
|
Public Class frmDataReplikation
|
|
|
|
Dim partnernr As Integer
|
|
Sub New()
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Sub New(ByVal partnernr As Integer)
|
|
InitializeComponent()
|
|
Me.partnernr = partnernr
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Me.DialogResult = Windows.Forms.DialogResult.Cancel
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub frmDataReplikation_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Timer1.Interval = 2000
|
|
Timer1.Enabled = True
|
|
Me.ProgressBar1.Minimum = 0
|
|
Me.ProgressBar1.Maximum = 100
|
|
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Try
|
|
Me.ProgressBar1.Value = Me.ProgressBar1.Value + 20
|
|
Catch
|
|
Me.ProgressBar1.Value = 0
|
|
End Try
|
|
|
|
If checkPartnerNr(Me.partnernr) = True Then
|
|
Timer1.Enabled = False
|
|
Timer1.Stop()
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
End If
|
|
End Sub
|
|
|
|
Function checkPartnerNr(ByVal partnernr As String) As Boolean
|
|
Dim ret As Boolean = True
|
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.sp_checkPartnerNr"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
|
If dtToReturn.Rows.Count > 0 Then
|
|
ret = True
|
|
Else
|
|
|
|
ret = False
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
dtToReturn.Dispose()
|
|
End Try
|
|
Return ret
|
|
End Function
|
|
End Class |