Sp'nin Delphi tarafı

[dost]

Merhaba,
gkimirti'nin hocamın yazmış olduğu sp'yi öğrenme amaçlı denedim.
Ancak delphi tarafında ibquery ile execute statement ifadesini kullanarak yapamadım. Konunun uzmanları olan üstatlarım bu konuyu basit bir örnekle açıklayabilirlerse, ben ve benim gibi olan bir çok arkadaş konuyu netleştirebilir.

Teşekkürler,

Kod: Tümünü seç

Kod: 
CREATE PROCEDURE CARI_IU ( 
  ID INTEGER, 
  CARIKOD VARCHAR(10), 
  UNVANI VARCHAR(100), 
  YETKILI VARCHAR(50), 
  ADRES VARCHAR(100), 
  TELNO VARCHAR(20), 
  VD VARCHAR(20), 
  VN VARCHAR(20), 
  AKTIF SMALLINT) 
AS 
BEGIN 
  IF (EXISTS(SELECT ID FROM CARI WHERE (ID = :ID))) THEN 
    UPDATE CARI 
    SET CARIKOD = :CARIKOD, 
        UNVANI = :UNVANI, 
        YETKILI = :YETKILI, 
        ADRES = :ADRES, 
        TELNO = :TELNO, 
        VD = :VD, 
        VN = :VN, 
        AKTIF = :AKTIF 
    WHERE (ID = :ID); 
  ELSE 
    INSERT INTO CARI ( 
        ID, 
        CARIKOD, 
        UNVANI, 
        YETKILI, 
        ADRES, 
        TELNO, 
        VD, 
        VN, 
        AKTIF) 
    VALUES ( 
        :ID, 
        :CARIKOD, 
        :UNVANI, 
        :YETKILI, 
        :ADRES, 
        :TELNO, 
        :VD, 
        :VN, 
        :AKTIF); 
END 

[selm@n]

SP Adı :sp_maas_geri_al_sicil
Giriş Parametrelerim ;
İlkSicil
SonSicil
Yıl
Ay
bunları Sp ye göndererek bir takım işlemler yapıyorum..

Kod: Tümünü seç

With dm.maasgerial do
 Begin
 Sql.Clear;
 Sql.Add('execute procedure sp_maas_geri_al_sicil('''+DBEdit9.Text+''', '''+dbedit9.Text+''', '''+dbedit8.Text+''', '''+dbedit14.Text+''')');
ExecQuery;

gibi delphi tarafından procedure'lerini execute edebilirsin.

[dost]

Merhaba,

Hocam ilginize teşekkür ederim.

Kod: Tümünü seç

  with DM.IBQuery1 do
  begin
    Sql.Clear;
    Sql.Add('execute procedure SP_INSERT_UPDATE(GEN_ID(GEN_MASTER_ID,1),'''+Edit1.Text+''','''+Edit2.Text+''','''+Edit3.Text+''','''+Edit4.Text+''')');
    //ExecQuery;
    ExecSQL;
  end;

şeklinde çalıştırdım.