Private Okręt podwodny BackgroundWorker1_DoWork (ByVal nadawca Jako System.Object, ByVal e Jako System.ComponentModel.DoWorkEventArgs) Rękojeść BackgroundWorker1.DoWork
Ciemnawy bgw1 Jako BackgroundWorker = CType (nadawca, BackgroundWorker)
Ciemnawy clbItems Lista (Sznurek) = CType (e.Argument, Lista (Sznurek))
Ciemnawy rzecz Sznurek
Ćmić przeciw Jako Nowy SqlConnection (My.Settings.MyConnectionString)
przeciw. Otwierać ()
Ćmić cmd Jako Nowy SqlCommand ()
cmd. Związek = przeciw
cmd.CommandTimeout = (0)
cmd.CommandType = CommandType.StoredProcedure
Ciemnawy cmd1 Jako Nowy SqlCommand ()
cmd1.Connection = przeciw
cmd1.CommandTimeout = (0)
cmd1.CommandType = CommandType.StoredProcedure
Dla ClbItems rzecz W clbItems
bgw1.ReportProgress ((0), rzecz)
cmd.CommandText = rzecz
cmd.ExecuteNonQuery ()
cmd1.CommandText = "Execution_flag"
cmd1.Parameters.Add ("@stor_proc_name", SqlDbType.NVarChar)
cmd1.Parameters ("@stor_proc_name"). Wartość = rzecz
cmd1.ExecuteNonQuery ()
Następnie
przeciw. Zamykać ()
Kończyć Okręt podwodny
|