Dim data As New String("INSERT INTO tabloınun adı(adi,soyadi) values ('{0}','{1}')")
data = String.Format(data, TextBox1.Text, TextBox2.Text)
Dim baglanti As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(data, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Kayıt İşlemi")
baglanti.Close()
'Listele("SELECT * FROM senintablon order by adi")
End If
DÜZENLEME
Dim data As New String("UPDATE senin tablon SET adi='{0}',soyadi='{1}'WHERE adi='{2}' ")
data = String.Format(data, TextBox1.Text, TextBox2.Text, DataGridView1.CurrentRow.Cells(1).Value) ' adi alanı hangi sırada ise ona göre value değerini değiştir.
Dim baglanti As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb'")
Dim komutnesnesi1 As New OleDb.OleDbCommand(data, baglanti)
Dim sonuc1 As Integer
baglanti.Open()
sonuc1 = komutnesnesi1.ExecuteNonQuery()
If sonuc1 = 1 Then
MsgBox("Girdiğiniz Veriler Düzenlenmiştir.", MsgBoxStyle.Exclamation, "Tebrikler")
End If
baglanti.Close()
'Listele("SELECT * FROM senin tablon order by adi ")
SİLME İŞLEMİ
Dim Sql As New String("DELETE FROM senin tablon WHERE adi='" & TextBox1.Text & "' ")
Sql = String.Format(sql, DataGridView1.CurrentRow.Cells(1).Value)
Dim baglanti As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Listeden Seçmiş Olduğunuz Veriler Silinmiştir.", MsgBoxStyle.Exclamation, "Silme İşlemi")
End If
'Listele("SELECT * FROM senin tablon order by adi")
baglanti.Close()
Kodları kendine göre dizayn edersin artık.
