Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting Dim connStr As String = ConfigurationManager.ConnectionStrings("Connstr").ConnectionString Dim cnn As SqlConnection Dim cmd As SqlCommand Dim sql As String = "" ' Indicate whether the delete operation succeeded by grabbing the ID of last deleted record. Dim ID As Integer = CInt(e.Keys(0)) 'So, who deleted a record?. We will find out by looking at the History table sql += "Insert into DEDS ([employee_ID],[charity_code],[check_amt],[one_time],[bi_weekly],[cash],[donate_choice],[date_stamp],[amb_approved],[chcknum]) " sql += " SELECT History.[employee_ID],[charity_code],[check_amt],[one_time],[bi_weekly],[cash],[donate_choice],[date_stamp],[amb_approved],[chcknum] from History where employee_id ='" & tmpEmplID & "' and year(date_stamp) = year(getdate()) and [ID] = " & ID & " " cnn = New SqlConnection(connStr) cnn.Open() cmd = New SqlCommand(sql, cnn) cmd.ExecuteNonQuery() cmd.Dispose() cnn.Close() End Sub
Join the community of 500,000 technology professionals and ask your questions.