Code Vb.net Connect with Access (Basic)

 

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

    Dim con As OleDbConnection

    Dim cmd As OleDbCommand

    Dim ds As DataSet

    Dim dr As DataRow

    Dim da As OleDbDataAdapter

    Dim strcon As String = "Provider=Microsoft.jet.oledb.4.0; Data source=StuInfo.mdb"

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

    Private Sub btnadd_Click() Handles btnadd.Click

        con = New OleDbConnection(strcon)

        con.Open()

        Dim str As String = "Insert into tblStuInfo Values(" & txtid.Text & ",'" & txtname.Text & "','" & txtsex.Text & "')"

        cmd = New OleDbCommand(str, con)

        cmd.ExecuteNonQuery()

        MsgBox("Has been add to database")

        cmd.Dispose()

        con.Close()

    End Sub

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

    Private Sub btnupdate_Click() Handles btnsearch.Click

        con = New OleDbConnection(strcon)

        con.Open()

        Dim str As String = "Select * from tblStuInfo where id=" & txtid.Text

        cmd = New OleDbCommand(str, con)

        da = New OleDbDataAdapter

        ds = New DataSet

        da.SelectCommand = cmd

        da.Fill(ds, "tblStuInfo")

        Dim dr As DataRow

        dr = ds.Tables(0).Rows(0)

        txtname.Text = dr.Item(1)

        txtsex.Text = dr.Item(2)

        da.Dispose()

        cmd.Dispose()

        con.Close()

    End Sub

    Private Sub btnupdate_Click1() Handles btnupdate.Click

        con = New OleDbConnection(strcon)

        con.Open()

        Dim str As String

        str = "Update tblStuInfo SET Name='" & txtname.Text & "',sex='" & txtsex.Text & "' where id=" & txtid.Text

        cmd = New OleDbCommand(str, con)

        cmd.ExecuteNonQuery()

        cmd.Dispose()

        con.Close()

        MsgBox("Has been update")

    End Sub

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

    Private Sub btndelete_Click() Handles btndelete.Click

        con = New OleDbConnection(strcon)

        con.Open()

        Dim str As String = "Delete from tblStuInfo where id=" & txtid.Text

        cmd = New OleDbCommand(str, con)

        cmd.ExecuteNonQuery()

        MsgBox("Has been delete")

        cmd.Dispose()

        con.Close()

    End Sub

End Class