Same as previous commit - take routine type into account. This time for an existence check.

This commit is contained in:
Ansgar Becker
2009-05-24 11:49:15 +00:00
parent b79ddd2260
commit 6f411f7ae4

View File

@ -454,7 +454,10 @@ begin
if AlterRoutineName <> '' then begin
// Create temp name
i := 0;
allRoutineNames := Mainform.GetCol('SELECT ROUTINE_NAME FROM '+Mainform.mask(DBNAME_INFORMATION_SCHEMA)+'.'+Mainform.mask('ROUTINES')+' WHERE ROUTINE_SCHEMA = '+esc(Mainform.ActiveDatabase));
allRoutineNames := Mainform.GetCol('SELECT ROUTINE_NAME FROM '+Mainform.mask(DBNAME_INFORMATION_SCHEMA)+'.'+Mainform.mask('ROUTINES')+
' WHERE ROUTINE_SCHEMA = '+esc(Mainform.ActiveDatabase)+
' AND ROUTINE_TYPE = '+esc(ProcOrFunc)
);
while True do begin
inc(i);
TempName := APPNAME + '_temproutine_' + IntToStr(i);