20-03-24, 01:18 PM
PHP كود :
Public Function CheckPermiss(ByVal ColumnName As String, ByVal UserCodeID As Integer) As Boolean
Try
Dim cmd As New SqlCommand("SELECT " & ColumnName & " FROM UserPermissionsTbl WHERE UserCodeID=@UserCodeID", conn)
cmd.Parameters.Add("@UserCodeID", SqlDbType.Int).Value = UserCodeID
If conn.State = ConnectionState.Closed Then conn.Open()
Dim result As Object = cmd.ExecuteScalar()
conn.Close()
If result IsNot Nothing AndAlso Not IsDBNull(result) Then
Return CBool(result)
End If
Catch ex As Exception
conn.Close()
Return False
End Try
End Function

