fcl-db: sqldb: add PROCEDURE_NAME column as alias to ROUTINE_NAME column in schema view ROUTINES query. GetProcedureNames method expects column named PROCEDURE_NAME, which is not a part of SQL standard INFORMATION_SCHEMA.ROUTINES view.

git-svn-id: trunk@27783 -

packages/fcl-db/src/sqldb/sqldb.pp

@@ -1641,7 +1641,7 @@ function TSQLConnection.GetSchemaInfoSQL( SchemaType : TSchemaType; SchemaObject
 
 begin
   case SchemaType of
-    stProcedures: Result := 'SELECT * FROM INFORMATION_SCHEMA.ROUTINES';
+    stProcedures: Result := 'SELECT *, ROUTINE_NAME AS PROCEDURE_NAME FROM INFORMATION_SCHEMA.ROUTINES';
     stSchemata  : Result := 'SELECT * FROM INFORMATION_SCHEMA.SCHEMATA';
     else DatabaseError(SMetadataUnavailable);
   end;