Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class FunDeletedLocalData
Public Event ProgressDeleted(ByVal value As Integer)
Public Event MaxProgressDeleted(value As Integer)
Shared DataStartAppList As List(Of DataStartAppCS)
Shared DataEndAppList As List(Of DataEndAppCS)
Public Sub DeleteAllDataApp()
Dim i As Integer = 0
'**** Preparo lista Record StartApp
'DataStartAppList = New List(Of DataStartAppCS)
ReadDataStartAppFromDBLocaleForDelete()
RaiseEvent MaxProgressDeleted(DataStartAppList.Count)
For Each item As DataStartAppCS In DataStartAppList
Try
DataStartAppDB.DeleteDataStart(item.IdStartApp)
Catch ex As Exception
MessageBox.Show("error transfer data to Server: " & ex.ToString, "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
i += 1
RaiseEvent ProgressDeleted(i)
Next
'**** Preparo lista Record EndApp
DataEndAppList = New List(Of DataEndAppCS)
ReadDataEndAppFromDBLocaleForDelete()
RaiseEvent MaxProgressDeleted(i + DataEndAppList.Count)
For Each item As DataEndAppCS In DataEndAppList
Try
DataEndAppDB.DeleteDataEnd(item.IdEndApp)
Catch ex As Exception
MessageBox.Show("error transfer data to Server: " & ex.ToString, "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
i += 1
RaiseEvent ProgressDeleted(i)
Next
End Sub
Public Sub DeleteOnlyDataStartApp()
DataStartAppList = New List(Of DataStartAppCS)
ReadDataStartAppFromDBLocaleForDelete()
RaiseEvent MaxProgressDeleted(DataStartAppList.Count)
Dim i As Integer = 0
For Each item As DataStartAppCS In DataStartAppList
Try
DataStartAppDB.DeleteDataStart(item.IdStartApp)
Catch ex As Exception
MessageBox.Show("error transfer data to Server: " & ex.ToString, "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
i += 1
RaiseEvent ProgressDeleted(i)
Next
End Sub
Sub DeleteOnlyDataEndApp()
DataEndAppList = New List(Of DataEndAppCS)
ReadDataEndAppFromDBLocaleForDelete()
RaiseEvent MaxProgressDeleted(DataEndAppList.Count)
Dim i As Integer = 0
For Each item As DataEndAppCS In DataEndAppList
Try
DataEndAppDB.DeleteDataEnd(item.IdEndApp)
Catch ex As Exception
MessageBox.Show("error transfer data to Server: " & ex.ToString, "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
i += 1
RaiseEvent ProgressDeleted(i)
Next
End Sub
#Region "ReadDataFromDBLocaleForDelete"
Public Shared Function ReadDataStartAppFromDBLocaleForDelete() As Boolean
Dim stReturn As Boolean = True
Try
DataStartAppList = DataStartAppDB.GetDataStartListForDelete
Catch ex As SqlException
stReturn = False
Throw ex
End Try
Return stReturn
End Function
Public Shared Function ReadDataEndAppFromDBLocaleForDelete() As Boolean
Dim stReturn As Boolean = True
Try
DataEndAppList = DataEndAppDB.GetDataEndListForDelete
Catch ex As SqlException
stReturn = False
Throw ex
End Try
Return stReturn
End Function
#End Region
Sub New()
End Sub
End Class