SQL Veritabanı Tablosuna Yeni Kayıt Ekleme
'Aşağıdaki kod Tablo1 isimli bir SQL veritabanı tablosuna windows form'da
önceden oluşturulmuş textbox1, textbox2, textbox3, textbox4, textbox5, textbox6, textbox7 ve textbox8 kutularındaki
verileri alarak ekler...
1. Windows formda Button1 oluşturulmalı ve Click eylemine eklenmelidir...
2. veritabanı katalog adı ve veritabanı kendi değerlerinizle değiştirilmelidir...
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Baglanti= New SqlConnection("Initial Catalog=VeritabaniKatalogAdi;" & "Server=localhost\SQLEXPRESS;Database=VeriTabani;Trusted_Connection=True;")
Komut = Baglanti.CreateCommand
Baglanti.Open()
Komut.CommandText = "INSERT INTO Tablo1 VALUES ('" & TextBox2.Text & "','" & TextBox1.Text & "', '" & TextBox3.Text & "','" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "')"
Komut.ExecuteNonQuery()
Catch ex As Exception
MsgBox("Kayıt eklenirken hata oluştu..." & ex.Message, "Kayıt Eklenmedi") Finally Baglanti.Close()
MsgBox("Kayıt Başarıyla Eklendi")
End Try
End Sub
1. Windows formda Button1 oluşturulmalı ve Click eylemine eklenmelidir...
2. veritabanı katalog adı ve veritabanı kendi değerlerinizle değiştirilmelidir...
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Baglanti= New SqlConnection("Initial Catalog=VeritabaniKatalogAdi;" & "Server=localhost\SQLEXPRESS;Database=VeriTabani;Trusted_Connection=True;")
Komut = Baglanti.CreateCommand
Baglanti.Open()
Komut.CommandText = "INSERT INTO Tablo1 VALUES ('" & TextBox2.Text & "','" & TextBox1.Text & "', '" & TextBox3.Text & "','" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "')"
Komut.ExecuteNonQuery()
Catch ex As Exception
MsgBox("Kayıt eklenirken hata oluştu..." & ex.Message, "Kayıt Eklenmedi") Finally Baglanti.Close()
MsgBox("Kayıt Başarıyla Eklendi")
End Try
End Sub
Yorumlar
Yorum Gönder