How to search for a string in the whole database?

If exists (select * From DBO. sysobjects where id = object_id (n' [DBO]. [p_search] ') and objectproperty (ID, n' isprocedure') = 1)
Drop procedure [DBO]. [p_search]
Go

/* -- Search for a string in the field of the table


/* -- Call example
Use pubs
Exec p_search n 'search characters'
--*/
Create proc p_search
@ STR nvarchar (1000) -- string to be searched
As
If @ STR = ''return

Declare @ s nvarchar (4000)
Create Table # T (Table Name: sysname; field name: sysname)

Declare TB cursor local
Select S = 'if exists (select 1 from ['+ Replace (B. name, ']', ']') + '] Where [' +. name + '] Like n'' %' + @ STR + '% '')
Print ''table and field: ['+ B. Name +']. ['+ A. Name +'] '''
From syscolumns a join sysobjects B on A. ID = B. ID
Where B. xtype = 'U' and A. Status> = 0
And a. xtype in (175,239, 231,167)
Open TB
Fetch next from TB into @ s
While @ fetch_status = 0
Begin
Exec (@ s)
Fetch next from TB into @ s
End
Close TB
Deallocate TB

/* -- Test Result

Table and field: [authors]. [au_lname]

--*/