HELIOS Green – Prohledání všech tabulek

Někdy potřebuji HELIOS Green prohledat fulltextově.

Jestli je v něm kdekoli konkrétní text/číslo.
Kdekoli = ve všech tabulkách.

Třeba dnes jsem hledal konkrétní mail. Abych věděl, kde všude v Heliosu ho musím změnit.

Používám proceduru staženou ze stackoverflow.com upravenou pro potřeby HELIOS Green.

Procedura je EXTRÉMNĚ náročná a trvá dlouho. Pouštím ji na testovacím serveru (tož je normální PC), kam obnovuji denní zálohy.

• Prohledání databáze velikosti 33G (bez logu) trvá vyhledání mailu 29minut.
• Prohledání databáze velikosti 160G (bez logu) trvá vyhledání mailu 129minut.

/*
--******************************************************************************************************
ÚČEL:	Prohledá databázi na výskyt řetezce. Tedy všechny tabulky s textovým sloupcem. Vyhledávaný text může být kdekoli v textu (doplňuje se % na začátek a na konec)
POPIS:  Najde v databázi všechny tabulky, které mají nějaký textový sloupec. 
		Pro každou tabulku a sloupec dělá v cyklu samostatný select.
		Nalezené výsledky strká do pomocné tabulky.
POZOR:	EXTRÉMNĚ ZATĚZUJE, je třeba pouštět na testovacím serveru.
ZDROJ:	Původně: https://stackoverflow.com/questions/15757263/find-a-string-by-searching-all-tables-in-sql-server-management-studio-2008
		Aktuální verze: https://pankostka.cz/
VOLÁNÍ:
exec PanKostkaSearchAllTablesCHAR 'brno'
--******************************************************************************************************
*/
DROP PROCEDURE IF EXISTS PanKostkaSearchAllTablesCHAR
go
CREATE PROCEDURE PanKostkaSearchAllTablesCHAR
(
    @SearchStr nvarchar(100)
)
AS
BEGIN
    CREATE TABLE #Results (ColumnName nvarchar(370), ColumnValue nvarchar(3630))
    SET NOCOUNT ON
    DECLARE @TableName nvarchar(256), @ColumnName nvarchar(128), @SearchStr2 nvarchar(110)
    SET  @TableName = ''
    SET @SearchStr2 = QUOTENAME('%' + @SearchStr + '%','''')
    WHILE @TableName IS NOT NULL
    BEGIN
        SET @ColumnName = ''
        SET @TableName = 
        (
            SELECT MIN(QUOTENAME(TABLE_SCHEMA) + '.' + QUOTENAME(TABLE_NAME))
            FROM     INFORMATION_SCHEMA.TABLES
            WHERE         TABLE_TYPE = 'BASE TABLE'
                AND    QUOTENAME(TABLE_SCHEMA) + '.' + QUOTENAME(TABLE_NAME) > @TableName
                AND    OBJECTPROPERTY(
                        OBJECT_ID(
                            QUOTENAME(TABLE_SCHEMA) + '.' + QUOTENAME(TABLE_NAME)
                             ), 'IsMSShipped'
                               ) = 0
				--ZDE JSOU TABULKY HELIOS Green které se NEMAJÍ prohledávat.
				AND QUOTENAME(TABLE_NAME) not like '%auditlog%' -- Auditlog určitě ne.
				and QUOTENAME(TABLE_NAME) not like '%$%' --Tabulky obsahující $ vynechat 
				and QUOTENAME(TABLE_NAME) not like '%log_distribuce_dokladu%' --log distribuce dokladů ne
				and QUOTENAME(TABLE_NAME) not like '%cmon_data%' -- lcs.cmon_data obsahuje změny atributů (modifikace)
				
        )
        WHILE (@TableName IS NOT NULL) AND (@ColumnName IS NOT NULL)
        BEGIN
            SET @ColumnName =
            (
                SELECT MIN(QUOTENAME(COLUMN_NAME))
                FROM     INFORMATION_SCHEMA.COLUMNS
                WHERE         TABLE_SCHEMA    = PARSENAME(@TableName, 2)
                    AND    TABLE_NAME    = PARSENAME(@TableName, 1)
                    AND    DATA_TYPE IN ('char', 'varchar', 'nchar', 'nvarchar') --,int ani decimalnechci
                    AND    QUOTENAME(COLUMN_NAME) > @ColumnName
            )
            IF @ColumnName IS NOT NULL
            BEGIN
                -- PRINT pro ladění. Zakomentovat další dva řádky
				INSERT INTO #Results
                EXEC
                (
                    --Přidávám top 100 abych z tabulky měl max 100 výsledků. Jde i Zagrupovat ale to by bylo náročnější.
					'SELECT TOP 100 ''' + @TableName + '.' + @ColumnName + ''', LEFT(' + @ColumnName + ', 3630) 
                    FROM ' + @TableName + ' (NOLOCK) ' +
                    ' WHERE ' + @ColumnName + ' LIKE ' + @SearchStr2
                )
            END
        END    
    END
    SELECT ColumnName, ColumnValue FROM #Results
END

Ještě mám mírně modifikovanou proceduru která vyhledává pro změnu číslo. To se hodí pokud mám číslo subjektu záznamu a potřebuji vědět kde všude je záznam navázaný. Až to použiji, tak to sem hodím.