Privata handtag BackgroundWorker1.DoWork för Sub BackgroundWorker1_DoWork (den ByVal avsändaren som System.Object, ByVal e som System.ComponentModel.DoWorkEventArgs)
Dunkel bgw1 som BackgroundWorker = cTypen (avsändaren, BackgroundWorker)
Dunkla clbItems som listar (av stränga), = CType (e.Argument, listar (av stränga)),
Dunkelt objekt som stränger
Dunkelt lura som nya SqlConnection (My.Settings.MyConnectionString)
lura. Öppna ()
Dunkel cmd som nya SqlCommand ()
cmd. Anslutning = lurar
cmd.CommandTimeout = 0
cmd.CommandType = CommandType.StoredProcedure
Dunkla cmd1 som nya SqlCommand ()
cmd1.Connection = lurar
cmd1.CommandTimeout = 0
cmd1.CommandType = CommandType.StoredProcedure
cmd1.CommandText = ”Execution_flag”,
cmd1.Parameters.Add (”@stor_proc_name”, SqlDbType.NVarChar)
För varje objekt i clbItems
bgw1.ReportProgress (0, objekt)
cmd.CommandText = objekt
cmd.ExecuteNonQuery ()
cmd1.Parameters (”@stor_proc_name”). Värdera = objektet
cmd1.ExecuteNonQuery ()
Därefter
lura. Nära ()
Avsluta suben
|