Back to OIM Explorer

dbo.CCC_VBScriptFind

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 1.930 characters

Interpretation

  • Database routine. Review parameters, called procedures, DBQueue inserts, and QBM_PJobCreate helper calls before assuming side effects.

Relations

  • No extracted relations.

Typed Edges

  • references source dbo.QBM_PCursorDrop source text reference
  • references source dbo.QBM_PExecuteSQLWithRetry_LLP source text reference

References

Referenced By

  • No direct source references extracted.

Complete Source

SQL83 lines
1CREATE PROCEDURE [dbo] . [CCC_VBScriptFind](2  @vOld nvarchar(255)3)4AS5BEGIN6  SET nocount7    ON8  DECLARE @old nvarchar(255)9  DECLARE @oldvgl nvarchar(255)10  BEGIN TRY11    SELECT12      @old = replace(@vold,13      N '''',14      N '''''')15    SELECT16      @oldvgl = replace(@old,17      N '[',18      N '[[]')19    DECLARE @cmdMuster nvarchar(max)20    SELECT21      @cmdMuster = N 'select * from  %TableName%  where %ColumnName% like N''%%oldvgl%%'''22    DECLARE @SQLcmd nvarchar(max)23    DECLARE @tablename nvarchar(64)24    DECLARE @columnname nvarchar(64)25    DECLARE schr_VBNetCode CURSOR LOCAL FORWARD_ONLY FAST_FORWARD READ_ONLY FOR26    SELECT27      t.TableName,28      c.ColumnName29    FROM Dialogcolumn c30    JOIN DialogTable t31      ON c.UID_DialogTable = t.UID_DialogTable32    WHERE33      SyntaxType LIKE N 'VB.%'34    OPEN schr_VBNetCode35    FETCH NEXT36    FROM schr_VBNetCode INTO @tablename,37    @columnname38    WHILE(@@fetch_status <> -1)39    BEGIN40      print @tablename + N ', ' + @columnname41      SELECT42        @SQLcmd = replace(@cmdMuster,43        N '%TableName%',44        @tablename)45      SELECT46        @SQLcmd = replace(@SQLcmd,47        N '%ColumnName%',48        @ColumnName)49      SELECT50        @SQLcmd = replace(@SQLcmd,51        N '%old%',52        @old)53      SELECT54        @SQLcmd = replace(@SQLcmd,55        N '%oldvgl%',56        @oldvgl)57        -- exec QBM_PExecuteSQL @SQLcmd, @@procid58      EXEC QBM_PExecuteSQLWithRetry_LLP @SQLcmd59      FETCH NEXT60      FROM schr_VBNetCode INTO @tablename,61      @columnname62    END63    CLOSE schr_VBNetCode deallocate schr_VBNetCode64  END TRY65  BEGIN CATCH66    DECLARE @ErrorMessage nvarchar(4000)67    DECLARE @ErrorSeverity int68    DECLARE @ErrorState int69    SELECT @ErrorSeverity = ERROR_SEVERITY()70    SELECT @ErrorState = 171    SELECT72      @ErrorMessage = dbo.QBM_FGIErrorMessage_Code(Substring(@SQLcmd, 1, 2000))73    EXEC QBM_PCursorDrop N 'schr_VBNetCode'74    EXEC QBM_PRollbackIfAllowed75    RAISERROR(@ErrorMessage,76    @ErrorSeverity,77    @ErrorState)78      WITH NOWAIT79  END CATCH80  ende:81  SET nocount off82  RETURN83END
Open raw exported source
SQL ยท Raw70 lines
12CREATE procedure [dbo].[CCC_VBScriptFind] (@vOld nvarchar(255)) as3begin45 set nocount on67 declare @old nvarchar(255)8 declare @oldvgl nvarchar(255)9BEGIN TRY101112 select @old = replace (@vold, N'''', N'''''')13 select @oldvgl = replace(@old, N'[', N'[[]')1415 declare @cmdMuster  nvarchar(max)16 select @cmdMuster = N'select * from  %TableName%  where %ColumnName% like N''%%oldvgl%%'''17 18 declare @SQLcmd nvarchar(max)1920 declare @tablename nvarchar(64)21 declare @columnname nvarchar(64)22 23 DECLARE schr_VBNetCode CURSOR LOCAL FORWARD_ONLY FAST_FORWARD READ_ONLY FOR 24    select t.TableName, c.ColumnName25 from Dialogcolumn c26 join DialogTable t on c.UID_DialogTable = t.UID_DialogTable27 where SyntaxType like N'VB.%'28  29  OPEN schr_VBNetCode30  FETCH NEXT FROM schr_VBNetCode into @tablename, @columnname 31  WHILE (@@fetch_status <> -1)32  BEGIN33 print @tablename + N', ' + @columnname3435 select @SQLcmd = replace(@cmdMuster, N'%TableName%', @tablename) 36    select @SQLcmd = replace(@SQLcmd, N'%ColumnName%', @ColumnName) 37    select @SQLcmd = replace(@SQLcmd, N'%old%', @old) 38    select @SQLcmd = replace(@SQLcmd, N'%oldvgl%', @oldvgl) 3940     -- exec QBM_PExecuteSQL @SQLcmd, @@procid41     exec QBM_PExecuteSQLWithRetry_LLP @SQLcmd4243     FETCH NEXT FROM schr_VBNetCode INTO @tablename, @columnname 44  END45 close schr_VBNetCode46 deallocate schr_VBNetCode4748END TRY49BEGIN CATCH50 declare @ErrorMessage nvarchar(4000)51    declare @ErrorSeverity int52    declare @ErrorState int5354 select @ErrorSeverity = ERROR_SEVERITY()55    select @ErrorState = 156    select @ErrorMessage = dbo.QBM_FGIErrorMessage_Code(Substring(@SQLcmd,1,2000))5758 exec QBM_PCursorDrop N'schr_VBNetCode'59 exec QBM_PRollbackIfAllowed6061 RAISERROR (@ErrorMessage, @ErrorSeverity, @ErrorState)  WITH NOWAIT62END CATCH6364ende:65 set nocount off66 return                                                 6768 end6970