|
Public Shared Function BeforeDelete(Page As System.Web.UI.Page, where
As String) As Boolean
' strWhere - string with WHERE clause pointing to
record to be deleted.
'Check if specific record exists
Dim sSQLSelect As String = "select * from
[Order details] where " & where
Dim cn As New OleDbConnection(func.GetConnectionStr())
Dim cmdSelect As OleDbCommand = New OleDbCommand(sSQLSelect, cn)
cmdSelect.CommandType = CommandType.Text
cn.Open()
Dim dr As OleDbDataReader = cmdSelect.ExecuteReader(CommandBehavior.CloseConnection)
If dr.Read() Then
'if record exists do something
Page.Response.Write("You can't delete this
record. Try to delete all order details before")
Return False
Else
'if dont exist do something else
Return True
End If
' return true if you like to proceed with
deleting record
' return false in other case
End Function |
