авторuse tempdb -- peredaj nazvanie database iz VB 6.0 procedure
DECLARE @myStr nvarchar (4000)
DECLARE @TabName nvarchar (128)
DECLARE @ColName nvarchar (128)
DECLARE @SearchString nvarchar (3500) -- peredaj stroku poiska iz VB 6.0 procedure

IF EXISTS (SELECT * FROM sysobjects WHERE type = 'U' AND name = 'Ergebnis') DROP TABLE Ergebnis
CREATE TABLE Ergebnis (TabName nvarchar (128), ColName nvarchar (128))

DECLARE curTabCol CURSOR FOR
SELECT sysobjects.name AS TabName, syscolumns.name AS ColName
FROM syscolumns INNER JOIN sysobjects ON syscolumns.id = sysobjects.id
WHERE sysobjects.type = 'U' AND syscolumns.xtype IN (34, 231, 99, 35, 175, 239, 167) AND sysobjects.name <> 'dtproperties' AND sysobjects.name NOT LIKE N'#%'
ORDER BY sysobjects.id, syscolumns.colid

OPEN curTabCol
FETCH NEXT FROM curTabCol INTO @TabName, @ColName
WHILE @@FETCH_STATUS = 0
BEGIN
SET @myStr = 'IF EXISTS (SELECT * FROM ' + @TabName + ' WHERE ' + @ColName + ' LIKE ''%' + @SearchString + '%'') INSERT INTO Ergebnis(TabName, ColName) VALUES(''' + @TabName + ''',''' + @ColName + ''')'
EXEC (@myStr)
FETCH NEXT FROM curTabCol INTO @TabName, @ColName
END
CLOSE curTabCol
DEALLOCATE curTabCol

-- Rezultat poluchish' v tablice Ergebnis
-- Oformi kak procedure sam