Sql Veritabanına Kayıt Ekleme

Bu makalemizde SQL veritabanımıza kayıt ekleme konusunu inceleyeceğiz. SQL veritabanının nasıl oluşturulacağı konusunu önceki makaleler de anlatmıştım.
Şimdi formumuzu Şekil 1 deki gibi oluşturalım.(şekil alt kısımda)
Daha sonra veritabanımızı oluşturacağız. Bu örnek için veritabanımızı bilgiler.mdf olarak oluşturduk. Tablo ismi kisibilgi.

Kayıt eklemek için Insert Into sql komutundan yararlanacağız.

Örnek: INSERT INTO tablo adınız (kolon1(column1), kolon2,...)
VALUES (deger1(value1), deger2,....)



Şekil 1



Forma yazılacak kodlar:

Private Sub btnKaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaydet.Click

Dim baglan As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\bilgiler.mdf;Integrated Security=True;User Instance=True")

Dim adp As New SqlClient.SqlDataAdapter

adp.SelectCommand = New SqlClient.SqlCommand("Select * From kisibilgi", baglan)

Dim CB As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(adp)

baglan.Open()‘Veritabanı bağlantısı açıldı

Dim ds1 As New DataSet()
adp.Fill(ds1)

Dim rw1 As DataRow
rw1 = ds1.Tables(0).NewRow
‘Datasetimiz için yeni bir satır tanımlıyoruz

Dim x1 As Integer
x1 = ds1.Tables(0).Rows.Count ‘Veritabanımızdaki kayıt sayısı

‘ TextBox daki bilgilerimizi rw1 nesnesi ile DataGridView satırlarına ekliyoruz.

rw1.Item("id") = txtid.Text
rw1.Item("ad") = txtAd.Text
rw1.Item("soyad") = txtSoyad.Text
rw1.Item("adet") = txtAdet.Text
rw1.Item("fiyat") = txtFiyat.Text
rw1.Item("toplam") = txtToplam.Text



ds1.Tables(0).Rows.InsertAt(rw1, x1 + 1)

‘Dataset nesnesi yardımıyla bilgiler tabloya girildi.

adp.Update(ds1)


adp.InsertCommand = New SqlClient.SqlCommand("Insert into kisibilgi ad= ‘" & txtAd.Text & "‘,Soyad = ‘" & txtSoyad.Text & "‘,adet = ‘" & txtAdet.Text & "‘,fiyat = ‘" & txtFiyat.Text & "‘,toplam = ‘" & txtToplam.Text & "‘", baglan) ‘Insert Into ile kayıt ekleme islemi

‘adp.UpdateCommand = New SqlClient.SqlCommand("Update * From kisibilgi", baglan)

Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand("Select * From kisibilgi", baglan)

Try

cmd.ExecuteNonQuery()


Catch

MessageBox.Show("Veritabanynda Hata...Bahadirsa")

Finally

cmd.Dispose()

End Try


DataGridView1.DataSource = ds1.Tables(0)


baglan.Close()

txtid.Clear()
txtAd.Clear()
txtSoyad.Clear()
txtAdet.Clear()
txtFiyat.Clear()
txtToplam.Clear()

End Sub

Bu makalemizde SQL veritabanına kayıt eklemeyi konusunu inceledik. Bir sonraki makalemizde veritabanından Kayıt Silme konusunu inceleyeceğiz.

Herkese bol kod‘lu günler…Bahadirsa