Manijas privadas BackgroundWorker1.DoWork del submarino BackgroundWorker1_DoWork (remitente de ByVal como System.Object, ByVal e como System.ComponentModel.DoWorkEventArgs)
Bgw1 dévil como BackgroundWorker = C (remitente, BackgroundWorker)
clbItems déviles como lista (de secuencia) = C (e.Argument, lista (de secuencia))
Artículo dévil como secuencia
Amortiguar la estafa como nuevo SqlConnection (My.Settings.MyConnectionString)
estafa. Abrirse ()
Amortiguar el cmd como nuevo SqlCommand ()
cmd. Conexión = estafa
cmd.CommandTimeout = 0
cmd.CommandType = CommandType.StoredProcedure
Cmd1 déviles como nuevo SqlCommand ()
cmd1.Connection = estafa
cmd1.CommandTimeout = 0
cmd1.CommandType = CommandType.StoredProcedure
cmd1.CommandText = “Execution_flag”
cmd1.Parameters.Add (“@stor_proc_name”, SqlDbType.NVarChar)
Para cada artículo en clbItems
bgw1.ReportProgress (0, artículo)
cmd.CommandText = artículo
cmd.ExecuteNonQuery ()
cmd1.Parameters (“@stor_proc_name”). Valor = artículo
cmd1.ExecuteNonQuery ()
Después
estafa. Cerrarse ()
Terminar el submarino
|