Sp_Procedure Kontrol Etmek

[OZCANK]

Bu şekilde Var sada VAR yoksa da VAR diyor.

TrkK := POS('SELECT TrkK=count(*) as Sonuc FROM sys.objects WHERE object_id = OBJECT_ID(N''dbo.SP_EMANETTRK'')', sList) >= -1;
IF NOT TrkK then
Begin
  GroupBox1.Visible := True;
  Button7.Enabled := True;
  // Mesaj;
  Abort;
End
else
  GroupBox1.Visible := False;
  Button7.Enabled := False;
  ShowMessage('VAR');

Tablo Kontrolü yapıyor ben Object nasıl dahil edebilirim ?

sList := '';
WHILE NOT KONTROL.Eof  DO
 BEGIN
sList := sList +  KONTROL.FieldByName('Table_Name').ASString + '###';
 KONTROL.NEXT;
End;

[bibilen]

else den sonra begin end yok gibi o yüzden hep VAR diyor sanırım

[frmman]

POS('SELECT TrkK=count(*) as Sonuc FROM sys.objects WHERE object_id = OBJECT_ID(N''dbo.SP_EMANETTRK'')', sList) >= -1;

Yazdığınız SQL cümlesini POS ile kullanımınızda hata var. Sizin önce bu cümleyi bir Query nesnesinde çalıştırıp, geri dönen sonuç listesinde POS ile arama yapmanız gerekiyor.  Sizin kullanımınızda bu SQL cümlesi veritabanı tarafında çalıştırılmayacaktır. Sadece  sList içinde bu cümle metin olarak aranacaktır.

if .....
Begin
.......
End
Else 
Begin // <<-- Buralar eksik
  GroupBox1.Visible := False;
  Button7.Enabled := False;
  ShowMessage('VAR');
End;//<--- Buralar eksik

if else kullanımındaki eksikliğe bir önceki mesajda dikkat çekildi. O kısmıda yukarıdaki gibi düzeltmeniz gerekmektedir.

[OZCANK]

frmman ben dediğiniz gibi düzelttim denedim sonuç değişmedi.

TrkK := POS('SELECT TrkK=count(*) as Sonuc FROM sys.objects WHERE object_id = OBJECT_ID(N''dbo.SP_EMANETTRK'')', sList) >= -1;
IF NOT TrkK then
Begin
  GroupBox1.Visible := True;
  Button7.Enabled := True;
  // Mesaj;
  Abort;
End
else
  Begin
  GroupBox1.Visible := False;
  Button7.Enabled := False;
  ShowMessage('VAR');
End;

Bu şekilde query de denediğimde sonuç "0" veya "1" olarak dönüyor.

SELECT count(*) as SONUC FROM sys.objects WHERE object_id = OBJECT_ID(N'dbo.SP_EMANETTRK') 

[hi_selamlar]

(17-09-2020, Saat: 10:40)OZCANK Adlı Kullanıcıdan Alıntı: frmman ben dediğiniz gibi düzelttim denedim sonuç değişmedi.

TrkK := POS('SELECT TrkK=count(*) as Sonuc FROM sys.objects WHERE object_id = OBJECT_ID(N''dbo.SP_EMANETTRK'')', sList) >= -1;
IF NOT TrkK then
Begin
  GroupBox1.Visible := True;
  Button7.Enabled := True;
  // Mesaj;
  Abort;
End
else
  Begin
  GroupBox1.Visible := False;
  Button7.Enabled := False;
  ShowMessage('VAR');
End;

Bu şekilde query de denediğimde sonuç "0" veya "1" olarak dönüyor.

SELECT count(*) as SONUC FROM sys.objects WHERE object_id = OBJECT_ID(N'dbo.SP_EMANETTRK') 

Merhabalar,

Yazılanları sanırım tam olarak okumadınız. Tekrar gözden geçirmenizi öneririm.

(17-09-2020, Saat: 10:31)frmman Adlı Kullanıcıdan Alıntı: Yazdığınız SQL cümlesini POS ile kullanımınızda hata var. Sizin önce bu cümleyi bir Query nesnesinde çalıştırıp, geri dönen sonuç listesinde POS ile arama yapmanız gerekiyor.  Sizin kullanımınızda bu SQL cümlesi veritabanı tarafında çalıştırılmayacaktır. Sadece  sList içinde bu cümle metin olarak aranacaktır.


if else kullanımındaki eksikliğe bir önceki mesajda dikkat çekildi. O kısmıda yukarıdaki gibi düzeltmeniz gerekmektedir.

Kolay gelsin.

[OZCANK]

(17-09-2020, Saat: 11:02)hi_selamlar Adlı Kullanıcıdan Alıntı:

(17-09-2020, Saat: 10:40)OZCANK Adlı Kullanıcıdan Alıntı: frmman ben dediğiniz gibi düzelttim denedim sonuç değişmedi.

TrkK := POS('SELECT TrkK=count(*) as Sonuc FROM sys.objects WHERE object_id = OBJECT_ID(N''dbo.SP_EMANETTRK'')', sList) >= -1;
IF NOT TrkK then
Begin
  GroupBox1.Visible := True;
  Button7.Enabled := True;
  // Mesaj;
  Abort;
End
else
  Begin
  GroupBox1.Visible := False;
  Button7.Enabled := False;
  ShowMessage('VAR');
End;

Bu şekilde query de denediğimde sonuç "0" veya "1" olarak dönüyor.

SELECT count(*) as SONUC FROM sys.objects WHERE object_id = OBJECT_ID(N'dbo.SP_EMANETTRK') 

Merhabalar,

Yazılanları sanırım tam olarak okumadınız. Tekrar gözden geçirmenizi öneririm.

(17-09-2020, Saat: 10:31)frmman Adlı Kullanıcıdan Alıntı: Yazdığınız SQL cümlesini POS ile kullanımınızda hata var. Sizin önce bu cümleyi bir Query nesnesinde çalıştırıp, geri dönen sonuç listesinde POS ile arama yapmanız gerekiyor.  Sizin kullanımınızda bu SQL cümlesi veritabanı tarafında çalıştırılmayacaktır. Sadece  sList içinde bu cümle metin olarak aranacaktır.


if else kullanımındaki eksikliğe bir önceki mesajda dikkat çekildi. O kısmıda yukarıdaki gibi düzeltmeniz gerekmektedir.

Kolay gelsin.

hi_selamlar onuda değiştirdim

 IF TrkK=('SELECT TrkK=count(*) as Sonuc FROM sys.objects WHERE object_id = OBJECT_ID(N''dbo.SP_EMANETTRK'')') Then
 Begin
  GroupBox1.Visible := True;
  Button7.Enabled := True;
  // Mesaj;
  Abort;
End
else
  Begin
  GroupBox1.Visible := False;
  Button7.Enabled := False;
  ShowMessage('VAR');
End;

ve cümle çalışiıyor query de delphide bu şekilde kullandım sonuç yok.

[hi_selamlar]

(17-09-2020, Saat: 11:27)OZCANK Adlı Kullanıcıdan Alıntı:

(17-09-2020, Saat: 11:02)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

Yazılanları sanırım tam olarak okumadınız. Tekrar gözden geçirmenizi öneririm.


Kolay gelsin.

hi_selamlar onuda değiştirdim

 IF TrkK=('SELECT TrkK=count(*) as Sonuc FROM sys.objects WHERE object_id = OBJECT_ID(N''dbo.SP_EMANETTRK'')') Then
 Begin
  GroupBox1.Visible := True;
  Button7.Enabled := True;
  // Mesaj;
  Abort;
End
else
  Begin
  GroupBox1.Visible := False;
  Button7.Enabled := False;
  ShowMessage('VAR');
End;

ve cümle çalışiıyor query de delphide bu şekilde kullandım sonuç yok.

Merhabalar,

Yazdığınız SQL'den dönen sonuçları yazarmısınız lütfen. (Alan isimleri ve verileri).

Kolay gelsin.

[OZCANK]

Arkadaşlar eğer SP_EMANETTRK procedure ve EMANETTRK function kontrol de  var  , yok  kontrolü yaptırmak istiyorum. Eğer var ise Button false olacak , yok ise Button true olacak bunu nasıl yapabilirim? Yardımcı olur musunuz? 

KONTROL.SQL.Text:='IF EXISTS (SELECT type_desc, type FROM sys.procedures WITH(NOLOCK) WHERE NAME =' + ''SP_EMANETTRK'' AND type = ''P'') '+  
 'DROP PROCEDURE dbo.SP_EMANETTRK '+
'GO '+
'  CREATE PROC [dbo].[SP_EMANETTRK]'+  
' (@STOK_KODU Nvarchar(150) = null ,  '+
' @GRUP_KODU Nvarchar(150) = null ,  '+
' @KOD_1 Nvarchar(80) = null ,  '+
' @KOD_2 Nvarchar(80) = null ,  '+
' @KOD_3 Nvarchar(80) = null ,  '+
' @KOD_4 Nvarchar(80) = null ,  '+
' @KOD_5 Nvarchar(80) = null ,  '+
' @DEPO_KODU smallint = null ,  '+
' @SUBE_KODU smallint = null )  '+
' AS '+
...
..

KONTROL.SQL.Text:='CREATE FUNCTION [dbo].[EMANETTRK] (' +
                 '@STR NVARCHAR(MAX)) '+
                 'RETURNS NVARCHAR(MAX) '+
                 'AS '+
                 'BEGIN '+
                 'DECLARE @TMP NVARCHAR(MAX) '+
                 'IF @STR IS NULL '+
                 'SET @TMP = NULL '+
                 'ELSE '+

[OZCANK]

Yardım edebilecek kimse yok mu?

[hi_selamlar]

(21-09-2020, Saat: 10:45)OZCANK Adlı Kullanıcıdan Alıntı: Yardım edebilecek kimse yok mu?

Merhabalar,

https://sqlhints.com/2014/04/13/how-to-c...ql-server/

Link'i inceleyin.

Kolay gelsin.

IF EXISTS(SELECT 1 AS DURUM FROM sys.procedures 
          WHERE Name = 'BILESENUYUMTEST1')
BEGIN
   select 1 as durum; -- var
END
else
begin
select 0 as durum; -- yok
end