deleting a record based on name from aceess db

Thanks a lot Satyapriya nayak for your valuable and kind response. I was a great help.
The latest code you posted are working fine now with little adjustments.

But one thing I am not getting: Whenever record not found, a message is coming and after then it is closing the application, Why. I mean if no record found then it shud only pop-up a message and shud stay at the form only.

2nd thing regarding Modify the data, i am modifying the data in Datagridview control and pressing modify button, but no modification is happening in the db, here is my code:

'Modify Button code
Mycn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & System.Environment.CurrentDirectory & "\STPL.accdb")
        Command = New OleDbCommand("SELECT * FROM Equipments", Mycn)
        Mycn.Open()
        Dim myDA As New OleDbDataAdapter
        myDA = New OleDbDataAdapter(Command)
        Dim myDataSet As DataSet
        Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(myDA)
        myDataSet = New DataSet()
        myDA.Fill(myDataSet, "Equipments")
        Mycn.Close()
        DataGridView1.DataSource = myDataSet.Tables("Equipments").DefaultView
        txtMan.Focus()
        Mycn = Nothing

But when i press modify button, nothing is happening, its not modifying the data.

Thank you for the kind response.
I tried your latest code but the same thing, it is not deleting the record from the access 2007 database. It's just saying record deleted but actually it is not deleting the record from the db.

One thing whenever record not found it is just simply closing the application, why it's doing this.

The code checking the record in the database, but not deleting the record from the database.

Please help me out......

Hi Mash,


Here it is working fine.

Try this...


Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath & "\emp.mdb"
    Dim oledbda As OleDbDataAdapter
    Dim ds As DataSet
    Dim com As OleDbCommand
    Dim str As String
    Private Sub btn_delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_delete.Click
        If TextBox1.Text = "" Then
            MsgBox("Please enter Mandal name")
        Else
            namecheck()
            Try
                Dim con As New OleDbConnection(ConnectionString)
                str = "Delete  from stpl where Mandal='" & TextBox1.Text & "'"
                com = New OleDbCommand(str, con)
                con.Open()
                com.ExecuteNonQuery()
                con.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            MessageBox.Show("Would you like to delete?", "Deleting Employee Details", MessageBoxButtons.OK, MessageBoxIcon.Question)
            TextBox1.Text = ""
            binddatagridview()
        End If
    End Sub
    Private Sub namecheck()
        Dim con As New OleDbConnection(ConnectionString)
        con.Open()
        str = "Select count(*)from stpl where Mandal='" + TextBox1.Text & "'"
        com = New OleDbCommand(str, con)
        Dim count As Integer = Convert.ToInt32(com.ExecuteScalar())
        If count > 0 Then
            MessageBox.Show("Record exits")
        Else
            MessageBox.Show("Record does not exits")
            End
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       binddatagridview()
    End Sub
    Private Sub binddatagridview()
        Dim con As New OleDbConnection(ConnectionString)
        con.Open()
        str = "Select * from stpl"
        com = New OleDbCommand(str, con)
        oledbda = New OleDbDataAdapter(com)
        ds = New DataSet
        oledbda.Fill(ds, "stpl")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "stpl"
        con.Close()
    End Sub
End Class



Thanks
If this post helps you mark it as answer

Hi.
thank you very much Satyapriya nayak for ur kind response.

The code is working fine but it is not deleting any record from the access database. The code is just checking whether the record existing or not, if existing it's just saying "would you like to delete record" but when pressing ok button it is not deleting any record from the database.

If record not found, saying no record found, and closing the application, but problem with the deletion, it's not actually deleting any record.

Please look it once. Thank you.

Hi Mash,

Try this...


Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim ConnectionString As String = System.Configuration.ConfigurationSettings.AppSettings("dsn")
    Dim com As OleDbCommand
    Dim str As String
    Private Sub btn_delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_delete.Click
        If TextBox1.Text = "" Then
            MsgBox("Please enter name")
        Else
            namecheck()

            Try
                Dim con As New OleDbConnection(ConnectionString)
                str = "Delete  from stpl where Mandal='" & TextBox1.Text & "'"
                com = New OleDbCommand(str, con)
                con.Open()
                com.ExecuteNonQuery()
                con.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            MessageBox.Show("Would you like to delete?", "Deleting Employee Details", MessageBoxButtons.OK, MessageBoxIcon.Question)
            TextBox1.Text = ""
        End If
    End Sub
    Private Sub namecheck()
        Dim con As New OleDbConnection(ConnectionString)
        con.Open()
        str = "select count(*)from stpl where Mandal='" + TextBox1.Text & "'"
        com = New OleDbCommand(str, con)
        Dim count As Integer = Convert.ToInt32(com.ExecuteScalar())
        If count > 0 Then
            MessageBox.Show("Record exits")
        Else
            MessageBox.Show("Record does not exits")
            End
        End If
    End Sub
End Class



Thanks
If this post helps you mark it as answer

By using the debugger are you able to tell which variable is Nothing here?

I can't see any obvious candidates unless there's something in your ClearTextBox method.