+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kaydet,Sil,Ara ve Listelemek (/konu-kaydet-sil-ara-ve-listelemek.html)
Cvp: Kaydet,Sil,Ara ve Listelemek - drummers - 01/05/2013
KAYDETME
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.
Cvp: Kaydet,Sil,Ara ve Listelemek - C*e*l*o*y*c*e - 01/05/2013
sayın drummers çok teşekkürler
sorunum bunu uygulamada başlıyor ,yaparken bir sorun oluyor takılıp kalıyorum,
örnek üzerinde uygulayıp yüklerseniz sevinirim
Cvp: Kaydet,Sil,Ara ve Listelemek - drummers - 02/05/2013
(01/05/2013, 22:48)C*e*l*o*y*c*e yazdı: sayın drummers çok teşekkürlerİlk boş vaktimde eklerim. Burdan takip edersiniz
sorunum bunu uygulamada başlıyor ,yaparken bir sorun oluyor takılıp kalıyorum,
örnek üzerinde uygulayıp yüklerseniz sevinirim
Cvp: Kaydet,Sil,Ara ve Listelemek - C*e*l*o*y*c*e - 02/05/2013
Eyvallah kardeşim,şimdiden sabırsızlıkla bekliyor ve çok teşekkür ediyorum
Cvp: Kaydet,Sil,Ara ve Listelemek - drummers - 02/05/2013
(02/05/2013, 00:41)C*e*l*o*y*c*e yazdı: Eyvallah kardeşim,şimdiden sabırsızlıkla bekliyor ve çok teşekkür ediyorum
Basit bir kayıt formu oldu. İncelersen sorunsuz işini görür. Çalışır durumdadır ve hata yoktur. Denedim öyle ekliyorum
Cvp: Kaydet,Sil,Ara ve Listelemek - C*e*l*o*y*c*e - 02/05/2013
Paylaşım ve yardımın için teşekkürler,güzel örnek bunu kendime uyarlamaya çalışacagım,hoscakalın