Arkadaşlar merhaba bir konuda acil yardımlarınızı bekliyorum ;

currency manager yontemi ile vb.net te veri tabanına kayıt yapmak istiyorum ancak
yaptığım kayıt datagridview e ekleniyor ama veri tabanında hic bir değişiklik olmuyor
veritabanına elle kayıt yapıyorum bu seferde datagridviewda gorunmuyor.İşin icinde cıkamadım yardım ederseniz cok memnun olurum .Şimdiden cok teşekkur ederim.

Butun kodları yazıyorum;


Public Class Form1


Dim yeni As CurrencyManager


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OleDbDataAdapter1.Fill(DataSet11.PERSONEL)


End Sub
Private Sub olay()
yeni = CType(Me.BindingContext(DataView1), CurrencyManager)
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
olay()
yeni.AddNew()

OleDbDataAdapter1.Update(Me.DataSet11.PERSONEL)
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
olay()
yeni.EndCurrentEdit()
OleDbDataAdapter1.Update(Me.DataSet11.PERSONEL)
MsgBox("KAYDINIZ TAMAMLANMIŞTIR")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
olay()
If yeni.Position = 0 Then
MsgBox("ZATEN İLK KAYITTASINIZ")
Else
yeni.Position = 0

End If
OleDbDataAdapter1.Update(Me.DataSet11.PERSONEL)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
olay()
If yeni.Position = 0 Then
MsgBox("ZATEN İLK KAYITTASINIZ")
Else
yeni.Position -= 1

End If
OleDbDataAdapter1.Update(Me.DataSet11.PERSONEL)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
olay()
If yeni.Position = yeni.Count - 1 Then
MsgBox("ZATEN SON KAYITTASINIZ")
Else
yeni.Position += 1

End If
OleDbDataAdapter1.Update(Me.DataSet11.PERSONEL)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
olay()
If yeni.Position = yeni.Count - 1 Then
MsgBox("ZATEN SON KAYITTASINIZ")
Else
yeni.Position = yeni.Count - 1

End If
OleDbDataAdapter1.Update(Me.DataSet11.PERSONEL)
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
olay()
If yeni.Count = 0 Then
MsgBox("SİLİNECEK KAYIT YOKTUR")
Else
yeni.RemoveAt(yeni.Position)
End If
OleDbDataAdapter1.Update(Me.DataSet11.PERSONEL)
End Sub

Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub
End Class

kodlar bu şekilde arkadaşlar bir turlu yapamadım .
__________________