Maniglie riservate BackgroundWorker1.DoWork del sommergibile BackgroundWorker1_DoWork (mittente di ByVal come System.Object, ByVal e come System.ComponentModel.DoWorkEventArgs)
Bgw1 fioco come BackgroundWorker = l$tipo C (mittente, BackgroundWorker)
clbItems fiochi come lista (di stringa) = l$tipo C (e.Argument, lista (di stringa))
Articolo fioco come stringa
Oscurare l'imbroglione come nuovo SqlConnection (My.Settings.MyConnectionString)
imbroglione. Aprir ()
Oscurare il cmd come nuovo SqlCommand ()
cmd. Collegamento = imbroglione
cmd.CommandTimeout = 0
cmd.CommandType = CommandType.StoredProcedure
Cmd1 fiochi come nuovo SqlCommand ()
cmd1.Connection = imbroglione
cmd1.CommandTimeout = 0
cmd1.CommandType = CommandType.StoredProcedure
cmd1.CommandText = “Execution_flag„
cmd1.Parameters.Add (“@stor_proc_name„, SqlDbType.NVarChar)
Per ogni articolo nei clbItems
bgw1.ReportProgress (0, articolo)
cmd.CommandText = articolo
cmd.ExecuteNonQuery ()
cmd1.Parameters (“@stor_proc_name„). Valore = articolo
cmd1.ExecuteNonQuery ()
Dopo
imbroglione. Chiuder ()
Concludere il sommergibile
|