MS Access Veritabanı Tablosuna Visual Basic ile Veri Eklemek
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sql As New String("INSERT INTO @tabloadı (@alan1, @alan2, @alan3, @alan4, @alan5, @alan5, @alan6) values
('" + Text1.Text + "','" + DateTimePicker1.Text + "','" + ComboBox1.Text + "','" + Text2.Text + "','" + Text3.Text + Text4.Text + "')
")
'Altı alanı olan bir access veritabanı dosyası için ekranda iki değeri combobox'tan, bir tarih değeri 'datetimepicker'dan, kalan üç öge textbox'lardan alınmıştır bu örnekte.
Dim baglanti As New OleDbConnection("Provider=Microsoft.ace.OLEDB.12.0;Data Source= 'E:\@accessveritabanıadı.accdb'")
'E sürücüsünde bir access veri tabanı adresi verilmiştir
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
End Sub
Yorumlar
Yorum Gönder