Oracle Session Kill PLSQL Code

 

BEGIN

  FOR REC_ IN (select sid,serial# from v$session where username='ABC' AND status='INACTIVE')

  LOOP

      EXECUTE IMMEDIATE 'alter system kill session ''' || REC_ .sid  || ',' 

        || REC_ .serial# || ''' immediate';

  END LOOP;

END;

Detaylar

Fastreport TfrxBarcode2DView not found

 Arkadaşlar çFastreport derleme sırasında TfrxBarcode2DView  veya tfrx ile başlayan dosya bulunamadı hatasının çözümünü kurulum klasörü içerisindeki FAQ "Sık sorulan sorular" dosyasında  aşağıdaki şekilde açıklamışlar. Bu sorun ile karşılaşanlar için paylaşıyorum;

Add the component TfrxDialogControls (TfrxRichObject, TfrxCrossObject, TfrxOLEObject, TfrxBarCodeObject, TfrxCheckBoxObject, TfrxGradientObject, frxChartObject, TfrxADOComponents, etc.) from FR component panel into the project or add in the uses section the following modules: frxDCtrl, frxRich, frxCross, frxOLE, frxBarcode, frxChBox, frxGradient, frxChart, frxADOComponents.  

 Uses kısmına aşağıdaki satırı eklemeniz yeterli.

frxDCtrl, frxRich, frxCross, frxOLE, frxBarcode, frxChBox, frxGradient, frxChart, frxADOComponents

Detaylar

PLSQL % _ ' ÖZEL KARAKTER İLE ARAMA (ESCAPE)

 Veritabanında  % , _ ‘ , gibi değerler ile sorgulama yapabilmek için escape karakteri kullanımımıza sunulmuştur.

% ve _ (yüzde ve alt tire) aratırken uygulama aşağıdaki şekilde olmalıdır. 

%’nin veya _’nin başına * , / , \  gibi herhangi bir karakter eklenir. 

Where koşulunun sonuna ESCAPE metni yazılarak tırnak içinde arattığınız özel kelimenin önüne eklediğiniz karakteri belirtmemiz yeterlidir.

Örnek Kullanım ;

_ (alt çizgi) geçen kayıtlar.

SELECT * FROM ADRESLER WHERE CADDE LIKE '%*_%' ESCAPE '*';

SELECT * FROM ADRESLER WHERE CADDE LIKE '%/_%' ESCAPE '/';

% (yüzde) geçen kayıtları sorgulamak için

SELECT * FROM ADRESLER WHERE CADDE LIKE '%*%%' ESCAPE '*';

SELECT * FROM ADRESLER WHERE CADDE LIKE '%/%%' ESCAPE '/';

Tırnakta (') kullanım şekli uygulamada farklıdır. Arka arkaya iki tek tırnak ile ('') ile içinde ' (tırnak) geçen ifadeler aranabilir (tırnak=quote)

İçerisinde tek tırnak geçen kayıtları bulmak için; 

SELECT * FROM ADRESLER WHERE CADDE LIKE '%''%';

Not: ESCAPE karakteri olarak 1 karakter belirlenebilir.. Eğer 1 den fazla ESCAPE karakteri girilir ise aşağıdaki hatayı almanıza sebep olur.. 

ORA-01425: escape character must be character string of length 1

Detaylar

How to debug your Delphi application code?

You should type DEBUG in the same way as in this picture.

Delphi CPU debug seçeneğini kapatıp DCU olarak debug yapmak istiyorsanız aşağıdaki resimdeki ayarların karşısına aynı şekilde DEBUG yazarak kaydederseniz problem giderilmektedir.

Tools / Options / Building / Delphi Compiler

If you have any problems, please write to me. I try to help.

Detaylar

Oracle tüm tablo kolonlarında text arama

 SQL> variable val varchar2(10)

  SQL> exec :val := 'Caddesi'

PL/SQL procedure successfully completed.

SQL> SELECT DISTINCT SUBSTR (:val, 1, 11) "ArananKelime",
  2    SUBSTR (table_name, 1, 14) "Tablo",
  3    SUBSTR (column_name, 1, 14) "Kolon"
  4  FROM cols,
  5    TABLE (xmlsequence (dbms_xmlgen.getxmltype ('select '
  6    || column_name
  7    || ' from '
  8    || table_name
  9    || ' where upper('
 10    || column_name
 11    || ') like upper(''%'
 12    || :val
 13    || '%'')' ).extract ('ROWSET/ROW/*') ) ) t
 14  ORDER BY "Table"
 15  /

ArananKelime Tablo          Kolon
-----------  -------------- --------------
CADDESI      CALISAN        ADRES

Detaylar

Searching text in the SQL all tables columns

 EXEC SearchAllTables 'test'

GO

CREATE PROC SearchAllTables
(
	@SearchStr nvarchar(100)
)
AS
BEGIN


	CREATE TABLE #Results (ColumnName nvarchar(370), ColumnValue nvarchar(3630))

	SET NOCOUNT ON

	DECLARE @TableName nvarchar(256), @ColumnName nvarchar(128), @SearchStr2 nvarchar(110)
	SET  @TableName = ''
	SET @SearchStr2 = QUOTENAME('%' + @SearchStr + '%','''')

	WHILE @TableName IS NOT NULL
	BEGIN
		SET @ColumnName = ''
		SET @TableName = 
		(
			SELECT MIN(QUOTENAME(TABLE_SCHEMA) + '.' + QUOTENAME(TABLE_NAME))
			FROM 	INFORMATION_SCHEMA.TABLES
			WHERE 		TABLE_TYPE = 'BASE TABLE'
				AND	QUOTENAME(TABLE_SCHEMA) + '.' + QUOTENAME(TABLE_NAME) > @TableName
				AND	OBJECTPROPERTY(
						OBJECT_ID(
							QUOTENAME(TABLE_SCHEMA) + '.' + QUOTENAME(TABLE_NAME)
							 ), 'IsMSShipped'
						       ) = 0
		)

		WHILE (@TableName IS NOT NULL) AND (@ColumnName IS NOT NULL)
		BEGIN
			SET @ColumnName =
			(
				SELECT MIN(QUOTENAME(COLUMN_NAME))
				FROM 	INFORMATION_SCHEMA.COLUMNS
				WHERE 		TABLE_SCHEMA	= PARSENAME(@TableName, 2)
					AND	TABLE_NAME	= PARSENAME(@TableName, 1)
					AND	DATA_TYPE IN ('char', 'varchar', 'nchar', 'nvarchar')
					AND	QUOTENAME(COLUMN_NAME) > @ColumnName
			)
	
			IF @ColumnName IS NOT NULL
			BEGIN
				INSERT INTO #Results
				EXEC
				(
					'SELECT ''' + @TableName + '.' + @ColumnName + ''', LEFT(' + @ColumnName + ', 3630) 
					FROM ' + @TableName + ' (NOLOCK) ' +
					' WHERE ' + @ColumnName + ' LIKE ' + @SearchStr2
				)
			END
		END	
	END

	SELECT ColumnName, ColumnValue FROM #Results
END

Detaylar