Privé Sub (ByVal afzender als System.Object, ByVal e als System.ComponentModel.DoWorkEventArgs) Handvatten BackgroundWorker1_DoWork BackgroundWorker1.DoWork
Schemerige bgw1 als BackgroundWorker = C (afzender, BackgroundWorker)
Schemerige clbItems als Lijst (van Koord) = C (e.Argument, Lijst (van Koord))
Schemerig punt als Koord
Schemerig bedrieg als Nieuwe SqlConnection (My.Settings.MyConnectionString)
bedrieg. Open ()
Schemerige cmd als Nieuwe SqlCommand ()
cmd. De verbinding = bedriegt
cmd.CommandTimeout = 0
cmd.CommandType = CommandType.StoredProcedure
Schemerige cmd1 als Nieuwe SqlCommand ()
cmd1.Connection = bedrieg
cmd1.CommandTimeout = 0
cmd1.CommandType = CommandType.StoredProcedure
cmd1.CommandText = „Execution_flag“
cmd1.Parameters.Add („@stor_proc_name“, SqlDbType.NVarChar)
Voor Elk punt in clbItems
bgw1.ReportProgress (0, punt)
cmd.CommandText = punt
cmd.ExecuteNonQuery ()
cmd1.Parameters („@stor_proc_name“). Waarde = punt
cmd1.ExecuteNonQuery ()
Daarna
bedrieg. Sluit ()
Beëindig Sub
|