1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23:
Private Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten Button1_Click Button1.Click 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.Text Voor Elk punt als ListViewItem in ListView1.CheckedItems cmd. Parameters.Clear () cmd. Parameters.Add („@param“, SqlDbType.NVarChar) cmd. Parameters („@param“). Waarde = punt cmd.CommandText = „SCHRAP VAN SP_EXECUTION_TIMESTAMP WAAR Naam = @param“ cmd.ExecuteNonQuery () Daarna bedrieg. Sluit () MsgBox („O.K.“) Sub van het eind