Click here to Skip to main content
15,392,078 members
Articles / Desktop Programming / Windows Forms
Posted 9 Jun 2008


34 bookmarked

Insert, Update, Delete & Search Values in MS Access 2003 with VB.NET 2005

Rate me:
Please Sign up or sign in to vote.
3.25/5 (14 votes)
9 Jun 2008CPOL
How to Insert, Update, Delete & Search Values in MS Access 2003 with VB.NET 2005

Download WithAccess - 143.91 KB

Shahzad Mahmood
Netsol Technologies Limited
Safari Villas,
Rawalpindi, Pakistan


This article and sample covers that "How to Insert, Update, Delete and Search Values to/from MS Access database 2003 with VB.NET 2005", Although VB.NET 2005 gives lot more methodologies to do this same job but I find this more easier, simplest and understandable for a beginner.


Learner must have little bit programming experience of VB.NET 2005 and MS Access 2003

Using the Code

Follow the steps:

  1. Create a VB.NET 2005 Windows Project,
  2. Place 3 Labels on form.
  3. Place 3 TextBoxes, Rename them txtAu_ID, txtAuthor, txtSearchResult
  4. Place 4 Buttons, Rename them btnInsert, btnUpdate, btnDelet, btnSearch
  5. Create MS Access Database "TestDB.mdb"
  6. Create a Table "Authors" with 2 fields "Au_ID" and "Author"

Copy and Pate the following code:

Imports System.Data

Imports System.Data.OleDb 

Public Class Form1 

    Dim cnnOLEDB As New OleDbConnection

    Dim cmdOLEDB As New OleDbCommand
    Dim cmdInsert As New OleDbCommand

    Dim cmdUpdate As New OleDbCommand

    Dim cmdDelete As New OleDbCommand

    Dim strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 
        System.Environment.CurrentDirectory & "\TestDB.mdb" 

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

        cnnOLEDB.ConnectionString = strConnectionString


    End Sub 

    Private Sub btnSearch_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles btnSearch.Click 

    txtAearchResult.Text = "" 

    Dim vSearch As String = InputBox("Enter Integer number to search name:") 

    If vSearch <> "" Then 

        cmdOLEDB.CommandText = "SELECT Au_ID,
            Author FROM Authors WHERE Au_ID=" & CInt(vSearch) 

        cmdOLEDB.Connection = cnnOLEDB

        Dim rdrOLEDB As OleDbDataReader = cmdOLEDB.ExecuteReader

        If rdrOLEDB.Read = True Then
        txtAearchResult.Text &= rdrOLEDB.Item(0).ToString & " " & 


        Exit Sub



            "Record not found")

            Exit Sub 

        End If


        MsgBox("Enter search value.") 

        Exit Sub 

    End If 

    End Sub

    Private Sub btnInsert_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles btnInsert.Click 

    If txtAu_ID.Text <> "" And txtAuthor.Text <> "" Then 

        cmdInsert.CommandText = "INSERT INTO Authors (Au_ID, Author) VALUES (" & 
            xtAu_ID.Text & ", '" & txtAuthor.Text & "');" 


         cmdInsert.CommandType = CommandType.Text

         cmdInsert.Connection = cnnOLEDB


         MsgBox(txtAu_ID.Text = "Record inserted.")"" 

         txtAuthor.Text = "" 


        MsgBox("Enter the required values:" & 
            vbNewLine & "1. Au_ID" & vbNewLine & "2.Author")

    End If 


    End Sub

    Private Sub btnUpdate_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles btnUpdate.Click

    If txtAu_ID.Text <> "" And txtAuthor.Text <> "" Then

        cmdUpdate.CommandText = "UPDATE Authors SET Author = '" & txtAuthor.Text & "' 
        WHERE Au_ID = " & txtAu_ID.Text & ";" 


        cmdUpdate.CommandType = CommandType.Text

        cmdUpdate.Connection = cnnOLEDB


        MsgBox(txtAu_ID.Text = "Record updated.")"" 

        txtAuthor.Text = "" 


        MsgBox("Enter the required values:" & vbNewLine & "1. Au_ID" & vbNewLine & 

    End If


    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles btnDelete.Click 

    If txtAu_ID.Text <> "" Then 

        cmdDelete.CommandText = "DELETE FROM Authors WHERE Au_ID = " &
            txtAu_ID.Text  & ";" 


        cmdDelete.CommandType = CommandType.Text

        cmdDelete.Connection = cnnOLEDB


        MsgBox(txtAu_ID.Text = "Record deleted.")"" 

        txtAuthor.Text = "" 



        MsgBox("Enter the required values:" & vbNewLine & "1. Au_ID") 

    End If


    End Sub

End Class

For further details send leave me a message on the messaged board below


This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


About the Author

Member 3931606
Pakistan Pakistan
No Biography provided

Comments and Discussions

Controller St.Joseph's17-Feb-22 1:14
MemberController St.Joseph's17-Feb-22 1:14 
QuestionError in UPDATE Syntax query Pin
Gautam_Gstar25-Aug-15 21:09
MemberGautam_Gstar25-Aug-15 21:09 
QuestionConnection Error Pin
Member 111344556-Oct-14 21:56
MemberMember 111344556-Oct-14 21:56 
QuestioncnnOLEDB.Open error Pin
Member 1081656513-May-14 15:15
MemberMember 1081656513-May-14 15:15 
GeneralMy vote of 5 Pin
Vishal I. Sahuji21-Dec-12 4:14
MemberVishal I. Sahuji21-Dec-12 4:14 
Questioncopy this code place of above coding its working...!!!! Pin
Haresh Prajapati4-Dec-12 21:24
MemberHaresh Prajapati4-Dec-12 21:24 
QuestionAbout Search Button Pin
Haresh Prajapati3-Dec-12 2:51
MemberHaresh Prajapati3-Dec-12 2:51 
QuestionI want to disable the message INSERT INTO Authors (Au_ID, Author,Gender)..... when i insert data in the form Pin
Sachinwei23-May-12 18:39
MemberSachinwei23-May-12 18:39 
QuestionHelp me how to have a perfect location of database on the project i publish Pin
Sachinwei22-May-12 19:30
MemberSachinwei22-May-12 19:30 
QuestionHelp Pin
AmeeR-8922-May-12 0:31
MemberAmeeR-8922-May-12 0:31 
Questionupdate database Pin
bill clift23-Mar-12 7:10
Memberbill clift23-Mar-12 7:10 
Questionneed help Pin
alom_9320-Feb-12 12:32
Memberalom_9320-Feb-12 12:32 
GeneralMy vote of 5 Pin
manish100028-Sep-10 4:24
Membermanish100028-Sep-10 4:24 
Generalprint Pin
Mohamed Safi Samsudeen6-Jan-09 22:24
MemberMohamed Safi Samsudeen6-Jan-09 22:24 
GeneralRe: print Pin
Mohamed Safi Samsudeen11-Jan-09 22:47
MemberMohamed Safi Samsudeen11-Jan-09 22:47 
GeneralRe: print Pin
Member 393160612-Jan-09 16:22
MemberMember 393160612-Jan-09 16:22 
GeneralRe: print Pin
Mohamed Safi Samsudeen14-Jan-09 20:54
MemberMohamed Safi Samsudeen14-Jan-09 20:54 
Generalfocus false Pin
Mohamed Safi Samsudeen12-Dec-08 3:20
MemberMohamed Safi Samsudeen12-Dec-08 3:20 
Generalexe file Pin
Mohamed Safi Samsudeen28-Nov-08 19:53
MemberMohamed Safi Samsudeen28-Nov-08 19:53 
GeneralRe: exe file Pin
Member 393160630-Nov-08 19:38
MemberMember 393160630-Nov-08 19:38 
GeneralRe: exe file Pin
Mohamed Safi Samsudeen2-Dec-08 22:31
MemberMohamed Safi Samsudeen2-Dec-08 22:31 
GeneralRe: exe file Pin
Member 39316062-Dec-08 23:53
MemberMember 39316062-Dec-08 23:53 
Generalhi Pin
Mohamed Safi Samsudeen10-Nov-08 22:47
MemberMohamed Safi Samsudeen10-Nov-08 22:47 
GeneralRe: hi Pin
Member 393160611-Nov-08 0:12
MemberMember 393160611-Nov-08 0:12 
GeneralHi Pin
Mohamed Safi Samsudeen4-Nov-08 1:29
MemberMohamed Safi Samsudeen4-Nov-08 1:29 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.