Imports System.Data.OleDb
Public Class FormAttacheeInfo
Dim con As New OleDbConnection
Private Sub FormAttacheeInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.AllowUserToAddRows = False
con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\TONYMA\Documents\RegistrationDB.accdb"
con.Open()
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter
da = New OleDbDataAdapter("SELECT * FROM TblAttachee", con)
da.Fill(dt)
DataGridView1.DataSource = dt.DefaultView
con.Close()
End Sub
Private Sub BtnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUpdate.Click
If DataGridView1.SelectedCells.Count > 0 Then
If MessageBox.Show("You want to Makes changes to this Record ?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter
con.Open()
da = New OleDbDataAdapter("SELECT * FROM TblAttachee", con)
da.Fill(dt)
Dim i As Integer = DataGridView1.SelectedCells(0).IsInEditMode
dt.Rows(i).BeginEdit()
'which code am i missing here so as to update changes into database when cell content has been changed
dt.Rows(i).EndEdit()
'code for refreshing datagridview1 that user can see the updated cell content
con.Close()
MessageBox.Show("Attachee's record successfully updated", "Confirmation", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Me.Focus()
End If
End If
End Sub
Private Sub BtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDelete.Click
If DataGridView1.SelectedRows.Count > 0 Then
If MessageBox.Show("You want to Clear this Record ?", "ATTACHEES RECORD", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes Then
Dim dt As New DataTable
Dim ds As New DataSet
ds.Tables.Add(dt)
Dim da As New OleDbDataAdapter
con.Open()
da = New OleDbDataAdapter("SELECT * FROM TblAttachee", con)
da.Fill(dt)
Dim i As Integer = DataGridView1.SelectedRows(0).Index
dt.Rows(i).BeginEdit()
DataGridView1.Rows.Remove(DataGridView1.SelectedRows(0))
dt.Rows(i).Delete()
dt.Rows(i).EndEdit()
Dim cmd As New OleDbCommandBuilder(da)
' Can't understand this exception , guys please help with a delete code ?
da.Update(dt)
DataGridView1.DataSource = dt.DefaultView
con.Close()
MessageBox.Show("Attachee deleted", "Confirmation", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Me.Focus()
End If
End If
End Sub
End Class
What I have tried:
i have tried even google . NO ANSWER SO FAR