🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.interbase.sql
Article #11281

Re: Recompile SP

#11281
From: Bojidar Alexandrov
Date: Mon, 02 Dec 2002 17:18
54 lines
2682 bytes
Frank Gruber wrote:
>> This is done easy with many of the tools (IBExpert.com for example)
>
> Which I currently use but which does not solve my problem in this
> case. I need to supply a tool for our customers which they can use to
> update their db to a newer release our new software requires. So I
> have to do it programatically and I don't want to include the whole
> source of all depending SP.
>
> Regards,
> Frank.

Open SQL monitor from Tools, then run Recompile all strored procedures from
DataBase menu and will see what code
IBExpert actualy use.

Here one of mine:

select pr.rdb$procedure_name,
pr.rdb$procedure_source,
pp.rdb$parameter_name,
pp.rdb$parameter_type,
fs.rdb$field_name,
fs.rdb$field_type,
fs.rdb$field_length,
fs.rdb$field_scale,
fs.rdb$field_sub_type,
fs.rdb$segment_length,
fs.rdb$dimensions,
cr.rdb$character_set_name,
co.rdb$collation_name,
pp.rdb$parameter_number,
fs.rdb$character_length
,FS.RDB$FIELD_PRECISION
from rdb$procedures pr
left join rdb$procedure_parameters pp on pp.rdb$procedure_name =
pr.rdb$procedure_name
left join rdb$fields fs on fs.rdb$field_name = pp.rdb$field_source
left join rdb$character_sets cr on fs.rdb$character_set_id =
cr.rdb$character_set_id
left join rdb$collations co on ((fs.rdb$collation_id = co.rdb$collation_id)
and
(fs.rdb$character_set_id = co.rdb$character_set_id))
where pr.rdb$procedure_name = 'COPY_MATERIAL_TYPE'
order by pp.rdb$parameter_type, pp.rdb$parameter_number

Then it forms standart header Alter Procedure with the params and after that
the source of procedure.


--
Bojidar Alexanrov
Kodar Ltd.
http://www.Kodar.net
Technical Details
Message-ID: <3deb95d4@newsgroups.borland.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-04!supernews.com!news.maxwell.syr.edu!news1.optus.net.au!optus!ken-transit.news.telstra.net!news.telstra.net!newsfeeds.ihug.co.nz!ihug.co.nz!newsgroups.borland.com!not-for-mail
References: <3deb7cbc@newsgroups.borland.com> <3deb7e66@newsgroups.borland.com> <3deb929f@newsgroups.borland.com>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 114a0e,3206af6518bf1270
X-Google-Attributes: gid114a0e,public
X-Google-ArrivalTime: 2002-12-02 09:37:53 PST
From: "Bojidar Alexandrov" <bojo@kodar.net>
Newsgroups: borland.public.interbase.sql
References: <3deb7cbc@newsgroups.borland.com> <3deb7e66@newsgroups.borland.com> <3deb929f@newsgroups.borland.com>
Subject: Re: Recompile SP
Date: Mon, 2 Dec 2002 19:18:10 +0200
Lines: 56
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4920.2300
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4920.2300
NNTP-Posting-Host: 213.169.35.65
Message-ID: <3deb95d4@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1038849492 213.169.35.65 (2 Dec 2002 09:18:12 -0800)
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-04!supernews.com!news.maxwell.syr.edu!news1.optus.net.au!optus!ken-transit.news.telstra.net!news.telstra.net!newsfeeds.ihug.co.nz!ihug.co.nz!newsgroups.borland.com!not-for-mail