Kod:
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Dim oTbl As New DataTable Dim YnVeri As OleDbDataAdapter = New OleDbDataAdapter Dim Kayit As String = "Select Teshis From Teshis" YnVeri.SelectCommand = New OleDbCommand(Kayit, Baglanti) YnVeri.Fill(oTbl) Dim oRow As DataRow Dim oCb As New OleDbCommandBuilder If Err.Number = YnVeri.Fill(oTbl) Then oRow = oTbl.NewRow() oRow.Item("Teshis") = TextBox6.Text oTbl.Rows.Add(oRow) oCb.DataAdapter = YnVeri YnVeri.Update(oTbl) ElseIf Err.Number YnVeri.Fill(oTbl) Then MsgBox("Girilen Teşhis Veritabanında mevcut", MsgBoxStyle.Information, "Kayıt Var !") End If DataGridView2.RefreshEdit() 'Burada datagridview in listeyi yenilemesini sağlamaya calışıyorum ancak burası da calışmadı End Sub
Arkadaşlar yukarıdaki işlemle girilen verinin veritabanında mevcut olması halinde kaydın var olduğu uyarısı verdirmek istiyorum. Ancak sorunu cozemedim yardımcı olursanız sevinirim. Teşekkurler.
__________________