Write a VB.NET program to accept the details of a product (PID, PName, expiry_date, price). Store it in the database and display it on a DataGridView. 

Answer:

Imports System

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Saurabh\Desktop\New folder\product.accdb")

    Dim adpt As New OleDbDataAdapter("Select * from product", con)

    Dim cmd As New OleDbCommand

    Dim ds As New DataSet

    Public Function display()

        adpt.Fill(ds, "product")

        DataGridView1.DataSource = ds

        DataGridView1.DataMember = "product"

        Return ds

    End Function

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

        display()

    End Sub

 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

 

        cmd.Connection = con

        cmd.CommandType = CommandType.Text

        cmd.CommandText = "insert into product values(" & TextBox1.Text & ",'" & TextBox2.Text & "','" & DateTimePicker1.Value & "'," & TextBox4.Text & ")"

        con.Open()

        If cmd.ExecuteNonQuery() Then

            MessageBox.Show("Inserted Successfully...!")

        End If

        con.Close()

        ds.Clear()

        display()

    End Sub


End Class