VB.NET CODE USING GRIDVIEW AND ACCESS DATABASE

Imports System.Data
Imports System.Data.OleDb

Public Class MAIN
    Public connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=GAURAV_DATABASE.mdb"
    Public OleDBConn1 As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(connString)
    Public SQLString As String
    Public OleDbDataAdapter1 As New OleDbDataAdapter()
    Public DataSet1 As New DataSet()
    Public cb As New OleDb.OleDbCommandBuilder()
    'myConnection = new SqlConnection("server=(local)\VSdotNET;Trusted_Connection=yes;database=northwind")
    ' da = new SqlDataAdapter("Select * from Customers", thisConnection)
    'Public thisConnection As New SqlConnection("server=(local);Trusted_Connection=yes;database=GAURAV_DATABASE.mdb")
    'Public cb As New SqlCommandBuilder()
    'Public da As New SqlDataAdapter()
    'Public SqlCommand1 As New SqlCommand()
    '' Sql Query
    'Public sql As String = "SELECT * FROM IMPORTANT"
    '' Create a Command
    '' Create SqlDataAdapter
    ''da = New SqlDataAdapter
    ''da.SelectCommand = SqlCommand1

    Private Sub BTN_EXIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_EXIT.Click
        login.Close()
        Me.Close()
    End Sub

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

        'If InputBox("ENTER PASSWORD:", "GAURAV DETAILS", "**********") <> "vikas" Then
        '    MessageBox.Show("INCORRECT PASSWORD!!!!!!!", "GAURAV DETAILS", MessageBoxButtons.OK, MessageBoxIcon.Error)
        '    Me.Close()
        'End If
        'Dim myConnection As OleDbConnection = New OleDbConnection
        'myConnection.ConnectionString = connString
        '' create a data adapter
        'Dim da As OleDbDataAdapter = New OleDbDataAdapter("Select * from IMPORTANT", myConnection)

        'Dim ds As DataSet = New DataSet
        'da.Fill(ds, "Customers")
        'DATA_GRID.DataSource = ds.DefaultViewManager
        '  Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MyMDB.mdb"
        '  OleDBConn1.Open()
    End Sub

    Private Sub BTN_IMPORTANT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_IMPORTANT.Click
        DataSet1.Clear()
        SQLString = "SELECT * FROM IMPORTANT"
        OleDbDataAdapter1 = New OleDbDataAdapter(SQLString, OleDBConn1)
        'OleDBConn1.Open()
        OleDbDataAdapter1.Fill(DataSet1, "IMPORTANT")
        DATA_GRID.DataSource = DataSet1.Tables("IMPORTANT")
        'OleDBConn1.Close()
        cb = New OleDb.OleDbCommandBuilder(OleDbDataAdapter1)

        'Dim sql As String = "SELECT * FROM IMPORTANT"
        'SqlCommand1 = New SqlCommand(sql, thisConnection)
        'da = New SqlDataAdapter
        'da.SelectCommand = SqlCommand1
        'cb = New SqlCommandBuilder(da)
        'da.Fill(DataSet1, "IMPORTANT")
        'DATA_GRID.DataSource = DataSet1.Tables("IMPORTANT")
        'DATA_GRID.SetDataBinding(DataSet1, "IMPORTANT")
        'Try
        '    da = New SqlDataAdapter("select * from IMPORTANT", thisConnection)
        '    'da.SelectCommand = New SqlCommand()
        '    'da.SelectCommand.Connection = thisConnection
        '    'da.SelectCommand.CommandText = "select * from IMPORTANT"
        '    'da.SelectCommand.CommandType = CommandType.Text
        '    thisConnection.Open()
        '    cb = New SqlCommandBuilder(da)
        '    ' Set the MissingSchemaAction property to AddWithKey because Fill will not cause primary
        '    ' key & unique key information to be retrieved unless AddWithKey is specified.
        '    da.MissingSchemaAction = MissingSchemaAction.AddWithKey
        '    da.Fill(DataSet1, "IMPORTANT")
        '    DATA_GRID.DataSource = DataSet1.Tables("IMPORTANT")
        '    'DATA_GRID.AutoGenerateColumns = True
        '    'DATA_GRID.DataSource = DataSet1
        '    'DATA_GRID.DataMember = "IMPORTANT"
        '    thisConnection.Close()
        'Catch ex As Exception
        '    MessageBox.Show(ex.ToString)
        'End Try
    End Sub

    Private Sub BTN_INVESTMENT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_INVESTMENT.Click
        DataSet1.Clear()
        SQLString = "SELECT * FROM INVESTMENTS"
        OleDbDataAdapter1 = New OleDbDataAdapter(SQLString, OleDBConn1)
        'OleDBConn1.Open()
        OleDbDataAdapter1.Fill(DataSet1, "INVESTMENTS")
        DATA_GRID.DataSource = DataSet1.Tables("INVESTMENTS")
        cb = New OleDb.OleDbCommandBuilder(OleDbDataAdapter1)
        ' OleDBConn1.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            '   Dim cb As New OleDb.OleDbCommandBuilder(OleDbDataAdapter1)
            ' DataSet1.Tables("IMPORTANT").Rows(0).Item(1) = "vvvvvvvvv"
            'DataSet1.Tables("IMPORTANT").Rows(0).Item(2) = "99999999"
           
            OleDbDataAdapter1.Update(DataSet1, DATA_GRID.DataSource.ToString)
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
        MessageBox.Show("UPDATE " & DATA_GRID.DataSource.ToString & " DATABASE")


        'SQLString = "UPDATE TABLE INVESTMENTS"
        'OleDbDataAdapter1 = New OleDbDataAdapter(SQLString, OleDBConn1)
        'OleDBConn1.Open()

        'DATA_GRID.DataSource = DataSet1.Tables(0)
        'MessageBox.Show(DataSet1.Tables(1).ToString)
        ' DATA_GRID.DataSource = DataSet1.Tables("IMPORTANT")
        ' OleDbDataAdapter1.Update(DataSet1)
        ' OleDbDataAdapter1.InsertCommand = New OleDbCommand("Insert into IMPORTANT (ID,NAME,PH) VALUES()", OleDBConn1)
        ' OleDbDataAdapter1 = New OleDbDataAdapter(SQLString, OleDBConn1)
        ' OleDbDataAdapter1.Update(DataSet1)
        'DATA_GRID.DataSource = DataSet1.Tables(" IMPORTANT")
        'OleDBConn1.Close()
    End Sub

    Private Sub BTN_REMINDERS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_REMINDERS.Click
        DataSet1.Clear()
        SQLString = "SELECT * FROM REMINDERS"
        OleDbDataAdapter1 = New OleDbDataAdapter(SQLString, OleDBConn1)
        'OleDBConn1.Open()
        OleDbDataAdapter1.Fill(DataSet1, "REMINDERS")
        DATA_GRID.DataSource = DataSet1.Tables("REMINDERS")
        cb = New OleDb.OleDbCommandBuilder(OleDbDataAdapter1)
    End Sub

    Private Sub BTN_VAULT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_VAULT.Click
        DataSet1.Clear()
        SQLString = "SELECT * FROM VAULT"
        OleDbDataAdapter1 = New OleDbDataAdapter(SQLString, OleDBConn1)
        'OleDBConn1.Open()
        OleDbDataAdapter1.Fill(DataSet1, "VAULT")
        DATA_GRID.DataSource = DataSet1.Tables("VAULT")
        cb = New OleDb.OleDbCommandBuilder(OleDbDataAdapter1)
    End Sub

    Private Sub BTN_BANKING_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_BANKING.Click
        DataSet1.Clear()
        SQLString = "SELECT * FROM BANKING"
        OleDbDataAdapter1 = New OleDbDataAdapter(SQLString, OleDBConn1)
        'OleDBConn1.Open()
        OleDbDataAdapter1.Fill(DataSet1, "BANKING")
        DATA_GRID.DataSource = DataSet1.Tables("BANKING")
        cb = New OleDb.OleDbCommandBuilder(OleDbDataAdapter1)
    End Sub

    Private Sub BTN_PLANS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_PLANS.Click
        DataSet1.Clear()
        SQLString = "SELECT * FROM PLANS"
        OleDbDataAdapter1 = New OleDbDataAdapter(SQLString, OleDBConn1)
        'OleDBConn1.Open()
        OleDbDataAdapter1.Fill(DataSet1, "PLANS")
        DATA_GRID.DataSource = DataSet1.Tables("PLANS")
        cb = New OleDb.OleDbCommandBuilder(OleDbDataAdapter1)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DataSet1.Clear()
        SQLString = "SELECT * FROM CONTACTS"
        OleDbDataAdapter1 = New OleDbDataAdapter(SQLString, OleDBConn1)
        'OleDBConn1.Open()
        OleDbDataAdapter1.Fill(DataSet1, "CONTACTS")
        DATA_GRID.DataSource = DataSet1.Tables("CONTACTS")
        cb = New OleDb.OleDbCommandBuilder(OleDbDataAdapter1)
    End Sub
End Class