Create procedure [dbo].[Pro]
@Adi varchar (15),
@Soyadi varchar(20)
as
begin
Declare @Mesaj varchar(30)
if exists(select * from Tbl_Maas where Adi IS NULL )
begin
insert into Tbl_Maas (Adi) VALUES (@Adi)
SET @Mesaj = 'Kayıt İşlemi Başarılı!'
end else
begin
update Tbl_Maas SET Soyadi=@Soyadi where Soyadi IS NULL
SET @Mesaj = 'Güncelleme İşlemi Başarılı!'
end
end
Merahaba Arkadaşlar
Merak ettigim birkonu hakkında yardımcı olmanızı rica ediyorum.
Stored proceduredeki @Mesaj parametresindeki Yazıyı Delphi üzerinde bir label'a yazdırabilmiyiz.
ALTER procedure [dbo].[Pro]
@Adi varchar (15),
@Soyadi varchar(20)
as
begin
Declare @Mesaj int
SET @Mesaj = 8
insert into Tbl_User (Adi,Soyadi) VALUES (@Adi,@Soyadi)
Return (@Mesaj)
end
Return Kısmına @MEsaj Atamasını Yapıyorum fakat @Mesaj int deger olursa ancak görebiliyorum delphide.
AdoStoredProc Ekledigimde Default Gelen @RETURN_VALUE parametersini kullanabiliyorum.
//--------------------------------------------------------------------------------------
CREATE PROCEDURE dbo.PSGiris
@IDSI int,
@kull nvarchar(50),
@sif nvarchar(100),
@deger int
AS
BEGIN
Select @DEGER = COUNT(ID) From TBLGIRIS Where
SUBEID=@IDSI AND KULLANICI=@kull AND SIFRE=@sif
if @deger > 0
begin
RETURN(0)
end
else
RETURN(1)
END
//--------------------------------------------------------------------------------------
var
sonuc : integer;
begin
with SP do
begin
Connection := DM.CON;
ProcedureName := 'PSGiris';
Parameters.ParamByName('@IDSI').Value := SUBEID;
Parameters.ParamByName('@KULL').Value := eduser.Items.Strings[eduser.ItemIndex];
Parameters.ParamByName('@SIF').Value := MD_5(edpass.Text);
ExecProc;
Sonuc := Parameters.ParamByName('@RETURN_VALUE').Value;
end;
case Sonuc of
0 :
Begin
FMAIN.Show;
FGIRIS.close;
FMAIN.spSUBEID.Caption := IntToStr(SUBEID);
FMAIN.SPSUBE.Caption := edsube.Text;
FMAIN.spKullanici.Caption := FMAIN.spKullanici.Caption + ' ' + eduser.Text;
End;
1 :
begin
FMAIN.msj.CustomMessageDlg('Giriş İstemi Başarısız!! Şantiye, Kullanıcı Adı veya Şifrenizi Yanlış Girdiniz.'
+ #13#10 +
'Sistem Küçük Büyük Harfe Duyarlıdır!', 'Hata', FMAIN.imgmsj, 2, FMAIN.OK, 0);
edsube.ItemIndex := -1;
eduser.ItemIndex := -1;
edpass.Clear;
edsube.SetFocus;
end;
end;
belki fikir verebilir... Sorgu sonucunu sql de koşullandırıp dönen değeri integer olarak alıyorum.. integer değeride yine delphide koşullandırıp istediğim kod bloğunu çalıştırıyorum..
merhaba
cevap için teşekkür ederim.
Amacım kullanıcıya dönen degeri koşullandırıp mesaj çıkarmak degil aslında direk olarak sql den mesaj göndermek.
Parametede yazan mesaj ne ise onu yollamak istiyorum.
Dediğiniz şekilde donen deger 1 ise şunu yap 2 ise şunu yap diyebilirim.Bu parametreyi string olarak görüntüleyemedim bi türlü,
