AccessTr.neT

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.

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

(01/05/2013, 22:48)C*e*l*o*y*c*e yazdı: [ -> ]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

İlk boş vaktimde eklerim. Burdan takip edersiniz

Eyvallah kardeşim,şimdiden sabırsızlıkla bekliyor ve çok teşekkür ediyorum

(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

Paylaşım ve yardımın için teşekkürler,güzel örnek bunu kendime uyarlamaya çalışacagım,hoscakalın