01.Sub GridView10_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView10.RowDeleting
02.
03. Dim ConDB As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DataHead.mdb"
04. con = New OleDbConnection(ConDB)
05. con.Open()
06.
07. query = "DELETE FROM tblAbsent "
08. query &= "WHERE IDAbsent = " & GridView10.DataKeys(e.RowIndex).Value & " "
09.
10. com = New OleDbCommand(query, con)
11. com.ExecuteNonQuery()
12. con.Close()
13.
14.
15. Dim ConDB2 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TimeTemp.mdb"
16. con2 = New OleDbConnection(ConDB2)
17. con2.Open()
18.
19. query2 = "DELETE FROM tblTime "
20. query2 &= "WHERE DateKey = '" & GridView10.DataKeys(e.RowIndex).Value & "' "
21. query2 &= "AND Codeid = '" & GridView10.DataKeys(e.RowIndex).Value & "' "
22.
23. com2 = New OleDbCommand(query2, con2)
24. com2.ExecuteScalar()
25. con2.Close()
26. Response.Redirect("adminedit.aspx")
27.
28. End Sub
Quote:
