adostored proc delphi de kullanımı

[coskun]

CREATE PROCEDURE kaydet
@tesisat varchar(10),
@firma varchar(30),
@parselno varchar(10),
@parselalan int,
@elksayac int,
@susayac int,
@aktifsayac varchar(10),
@reaktifsayac varchar(10),
@kapasitif varchar(10),
@carikodu varchar(20),
@redik int
AS
insert into firma(tesisatno, firmaad, parsno, parsal, elksay, susay, aktsayno, reaksayno, kpsayno, carikod, rediktor)
values(@tesisat, @firma, @parselno, @parselalan, @elksayac, @susayac, @aktifsayac, @reaktifsayac, @kapasitif, @carikodu, @redik)
GO


bu procedure yi delphi de nasıl kullanırım adostoredproc bileşeni ileberaber

[delphist]

Şöyle kullanabilirsin.........

Kod: Tümünü seç

var
Tmpro : Tadostoredproc;
begin

Tmpro.Connection := baglanti;
Tmpro.Parameters.ParamByName('@ADI').Value := edit1.text;
Tmpro.Parameters.Parambyname('@SOYADI').value := edit2.text;
Tmpro.execproc;

showmessage('Kolay Gelsin');
end;

   :)  Başarılar...