Start New Discussion within our Software Development Community

i trying to make a code to Delete and Update Access 2007 database after remove a selected item from a listbox in VB 2008. [using "Remove" button that i create]
pervious i already make a button to View data from database and Remove from listbox. but i don't know how to delete and update in database. hope someone can help me..

the code i using now:

Imports System.Data.OleDb

Public Class Form1
    Dim cn As OleDbConnection
    Dim cmd As OleDbCommand
    Dim cmd2 As OleDbCommand
    Dim dr As OleDbDataReader
    Dim str As String

    Private Sub btmView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btmView.Click
        
        cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database11.mdb")

        cn.Open()
        cmd = New OleDbCommand("select * from Test1", cn)
        dr = cmd.ExecuteReader

        While dr.Read()
            ListBox1.Items.Add(dr(0) & vbTab & dr(1) & vbTab & dr(2))
        End While
        dr.Close()
        cn.Close()
    End Sub


    Private Sub btmSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btmSave.Click

        cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database11.mdb")
        cn.Open()
        str = "insert into Test1 (Name, Age) values ('" & txtName.Text & "','" & CInt(txtAge.Text) & "')"

        cmd = New OleDbCommand(str, cn)
        cmd.ExecuteNonQuery()
        MessageBox.Show("Saved")
        cn.Close()

    End Sub
End Class

--------------------------------------------------------

in the database, i have ID,Name and Age
(simple database)

This article has been dead for over six months. Start a new discussion instead.