Kod:
Public Class Form1
Private Sub BtnKaydet_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles BtnKaydet.Click
Dim baglanti_metni1, baglanti_metni2 As String
baglanti_metni1 = "Provider=Microsoft.ACE.OLEDB.12.0; Data
Source=|DataDirectory|\vt2.accdb; Persist Security Info=False;"
baglanti_metni2 = "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=|DataDirectory|\vt2.mdb; Persist Security Info=False;"
Dim baglanti1 As New Data.OleDb.OleDbConnection(baglanti_metni2)
baglanti1.Open()
Dim sql1 As String
sql1 = "insert into anatablo (ad,soyad,fakulte,bolum) values ('" +
TxtAd.Text + "','" + TxtSoyad.Text + "','" + CmbFakulte.Text + "','" +
CmbBolum.Text + "')"
‘Veritabanı tablosuna satır eklemek için kullanılacak SQL cümlesi
Dim komut1 As New System.Data.OleDb.OleDbCommand(sql1, baglanti1)
komut1.ExecuteNonQuery()‘SQL sorgusu burada çalıştırılıyor.
baglanti1.Close()
MsgBox("Veriler Kaydedildi")
TxtAd.Clear()
TxtSoyad.Clear()
TxtAd.Focus()
CmbBolum.ResetText()
CmbFakulte.ResetText()
End Sub
End Class