Stored Procedure DataSet Gönderme

Makale

Stored Procedure DataSet Gönderme

Kayıt işlemi gerçekleştirdiğiniz bir sayfa var; bir komutta önce ana tabloya kayıt sonra dönen Id değeri ile ana tabloya bağlı alt tablolara birden fazla kayıt yaptırıyorsunuz. Bu örnek sanırım her yazılım geliştiricinin hemen hemen karşılaştığı bir durum. Peki, bu işlemleri nasıl yapıyorsunuz; iki stored procedure kullanarak mı? Eğer evetse bu makaleyi okumanızı öneririm.

Bu makalede, bir biri ile bire çok ilişkili iki tabloya tek bir stored procedure ile kayıt işlemini gerçekleştireceğiz. Internetten sipariş verilen basit bir uygulama yapacağız.

Uygulamamızda ana tablomuz tbl_Siparis bu tabloya sadece tek bir kayıt gönderilebilir. Ana tabloya bağlı olan tbl_SiparisAlt tablosu, bir ya da birden çok kayıt gönderilebilir.

Sayfa tasarımı aşağıdaki gibidir;

Page Source için Tıklayınız

Siparişe Ürün ekle düğmesine tıklanıldığında alttaki ürün kayıt penceresi açılmaktadır. Böylece kullanıcı bir siparişe birden fazla ürün ekleyebilir.

Siparişe eklenen ürünleri veritabanından önce (siparisId bilmiyoruz ve henüz sipariş kesin değil) datasete aktarmak için sayfa açılışına dataset üreten prosedürü yazmamız gerekiyor. Burada dikkat edilmesi gereken nokta datasetin içerisinde oluşturulacak her alanın string olmasıdır. Çünkü stored prosedure oluşturduğumuz dataseti gönderirken string dönüşümü yapılacaktır. Ayrıca dataset içerisinde oluşturulan tabloya mutlaka bir ad verilmelidir.

Sub DatasetOlustur()

Me.ViewState("dtUrunler") = Nothing

Dim dtUrunler As New DataTable

dtUrunler.TableName = "siparisAlt"

dtUrunler.Columns.Add(New DataColumn("Urun", GetType(String)))

dtUrunler.Columns.Add(New DataColumn("Adet", GetType(String)))

Me.ViewState("dtUrunler") = dtUrunler

End Sub

Ürün Ekle düğmesine tıklanıldığında ürün kayıt penceresindeki bilgileri datasete aktarmak için aşağıdaki kod satırını kullanıyoruz.

Protected Sub btnUrunEkle_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnUrunEkle.Click

Try

Dim dt As DataTable = Me.ViewState("dtUrunler")

Dim dr As DataRow

dr = dt.NewRow

dr("Urun") = txtUrun.Text

dr("Adet") = txtAdet.Text

dt.Rows.Add(dr)

Me.ViewState("dtUrunler") = dt

pnlUrunEkle.Visible = False

grdUrunler.DataSource = dt

grdUrunler.DataBind()

Catch ex As Exception

lblHata.Visible = True

lblHata.Text = "HATA : " & ex.Message

End Try

End Sub

Stored procedure atayacağımız dataseti tamamladıktan sonra, stored procedure yazımını yapabiliriz. Stored procedurede istenen parametre değerlerine bakarsanız alt tablo kaydı için xml veri türünde bir değer istenmekte. Kod sayfasında oluşturduğumuz dataseti xml türündeki parametreye atayacağız.

Öncelikle ana tabloya kayıt yapıyor ve oluşan SiparisId (Identity) değerini okuyoruz. Böylelikle alt tabloya atayacağımız ilişkili Idyi elde ediyoruz. Xml ’in içerisindeki (kod sayfasında datatable verdiğimiz ad) her bir değeri okuyarak template tablosuna kayıt ediyoruz. Burada dikkat edersiniz ki; string olarak yarattığımız datasetin içerisindeki alanları, kendi türlerine dönüştürebiliyoruz. Ve template dosyasına node ‘un içerisindeki alanlar dışında da yeni üretilen Id değerini atayabiliyoruz. Son olarak da template tablosundaki kayıtları SiparisAlt tablosuna kayıt ediyoruz.
Bu işlemin bir diğer özelliği de, tüm kayıt kodları aynı begin tran da olduğu için commit ve rollback işlemleri çok daha basit gerçekleştirilir.

CREATE PROCEDURE [dbo].[proc_SiparisKayit]

@SiparisAdresi nvarchar(Max),

@SiparisTel nvarchar(50),

@siparisAlt xml

BEGIN

Begin Tran

INSERT INTO tbl_Siparis

(SiparisAdresi, SiparisTel, SiparisTarihi)

VALUES (@SiparisAdresi,@SiparisTel, GETDATE())

Declare @SiparisId int

Select @SiparisId = @@Identity

SELECT

Cast(convert(varchar(36), @SiparisId ) as integer ) as SiparisId,

Cast(colx.query('data(Urun) ') as varchar) as Urun,

Cast(convert(varchar(36), colx.query('data(Adet) ') ) as integer ) as Adet

INTo #TMP FROM @siparisAlt.nodes('DocumentElement/siparisAlt') AS Tabx(Colx)

INSERT INTO tbl_SiparisAlt

(SiparisId, Urun, Adet)

SELECT * FROM #TMP

if @@error = 0

Commit Tran

Else

Rollback Tran

END

Siparişi Kapat düğmesine tıklanıldığında, datatable içersindeki verileri, string veri türündeki siparisAltTablosu adındaki değişkene WriteXml metodunu kullanarak aktarıyoruz. Veritabanı ve stored procedure bağlantılarını yaptıktan sonra prosedurun xml veri türündeki parametresine, siparisAltTablosu değişkenini atıyoruz.

Protected Sub btnSiparisiKapat_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSiparisiKapat.Click

Try

Dim connSTR As String = "data source=.;initial Catalog=Siparis;uId=sa;pwd=1234"

Dim dt As DataTable = Me.ViewState("dtUrunler")

Dim siparisAltTablosu As String

Using sw As New StringWriter()

dt.WriteXml(sw)

siparisAltTablosu = sw.ToString()

End Using

Using conn As New SqlConnection(connSTR)

conn.Open()

Dim cmd As New SqlCommand()

cmd.Connection = conn

cmd.CommandType = CommandType.StoredProcedure

cmd.CommandText = "proc_SiparisKayit"

Dim param0 As New SqlParameter("@SiparisAdresi", SqlDbType.NVarChar)

param0.Value = txtAdres.Text

cmd.Parameters.Add(param0)

Dim param1 As New SqlParameter("@SiparisTel", SqlDbType.NVarChar)

param1.Value = txtTel.Text

cmd.Parameters.Add(param1)

Dim param As New SqlParameter("@siparisAlt", SqlDbType.Xml)

param.Value = siparisAltTablosu

cmd.Parameters.Add(param)

cmd.ExecuteNonQuery()

End Using

Catch ex As Exception

lblHata.Visible = True

lblHata.Text = "HATA : " & ex.Message

End Try

Konuyu özetlemek gerekirse; diğer kayıt işlemlerinden farklı olarak stored procedurede xml veri türünde bir parametre tanımladık. Stored procedure içerisinde xml node özelliğini kullanarak datatable içerisindeki alanları okuduk. Ve parametreye değer atamak için, datatable ‘ın içeriğini xml olarak yazdırdık. Bu üç farkın yazılımlarınızda yararlı olması dileğiyle…

Code Source için Tıklayınız

Yorumlarınız/sorularınız için incilay.cilesizoglu@msn.com adresine mail gönderebilirsiniz.

Makaleyi nasıl buldunuz?

Makaleyi nasıl buldunuz?
Çok Kötü		Çok Yararlı

Görüşleriniz : (opsiyonel)

Stored Procedure DataSet GöndermePrint Versiyonu

Stored Procedure DataSet Gönderme

Print Versiyonu