Private Okręt podwodny Execute_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się Execute.Click
Ciemnawy rzecz Sznurek
Ciemnawy guzek Jako TreeNode
guzek = TreeView1.SelectedNode
Dla CheckedListBox1.CheckedItems rzecz W CheckedListBox1.CheckedItems
Me.Label4.Visible = Prawdziwy
Me.PictureBox1.Visible = Prawdziwy
Me.Label7.Visible = Prawdziwy
Me.Label8.Visible = Prawdziwy
Me.Label7.Text = guzek. Tekst
Me.Label8.Text = rzecz
Ćmić przeciw Jako Nowy SqlConnection (My.Settings.MyConnectionString)
przeciw. Otwierać ()
Ćmić cmd Jako Nowy SqlCommand ()
cmd. Związek = przeciw
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = rzecz
cmd.CommandTimeout = (0)
cmd.ExecuteNonQuery ()
Następnie
MessageBox.Show ("Wszystkie wybrany procedura pomyślnie wykonywać! ", "Status", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly, Fałszywy)
Końcówka Okręt podwodny
|