Visual Basic.NET: insert, update, delete and search using access database and print datagridview

 

Imports System.Data.OleDb

Public Class Form3

    Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\listview.accdb")

    Private Sub bind_data()

        Dim cmd1 As New OleDbCommand("Select * from table1", conn)

        Dim da As New OleDbDataAdapter

        da.SelectCommand = cmd1

        Dim table1 As New DataTable

        table1.Clear()

        da.Fill(table1)

        DataGridView1.DataSource = table1

    End Sub

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles Me.Load

        bind_data()

    End Sub

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

        Dim strsql As String

        strsql = "Insert into table1(id,firstname,lastname,sum1)Values(@id,@firstname,@lastname,@sum1)"

        Dim cmd2 As New OleDbCommand(strsql, conn)

        cmd2.Parameters.AddWithValue("@id", TextBox1.Text)

        cmd2.Parameters.AddWithValue("@firstname", TextBox2.Text)

        cmd2.Parameters.AddWithValue("@lastname", TextBox3.Text)

        cmd2.Parameters.AddWithValue("@sum1", TextBox4.Text)

        conn.Open()

        cmd2.ExecuteNonQuery()

        conn.Close()

        bind_data()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

    End Sub

    Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick

        Dim index As Integer

        index = e.RowIndex

        Dim selectedrow As DataGridViewRow = DataGridView1.Rows(index)

        TextBox1.Text = selectedrow.Cells(0).Value.ToString

        TextBox2.Text = selectedrow.Cells(1).Value.ToString

        TextBox3.Text = selectedrow.Cells(2).Value.ToString

        TextBox4.Text = selectedrow.Cells(3).Value.ToString

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim cmd4 As New OleDbCommand("Update table1 set firstname='" & TextBox2.Text & "',lastname='" & TextBox3.Text & "',sum1=" & TextBox4.Text & " where id=" & TextBox1.Text & "", conn)

        conn.Open()

        cmd4.ExecuteNonQuery()

        conn.Close()

        bind_data()

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Dim cmd5 As New OleDbCommand("delete from table1 where id=@id", conn)

        cmd5.Parameters.AddWithValue("@id", TextBox1.Text)

        conn.Open()

        cmd5.ExecuteNonQuery()

        conn.Close()

        bind_data()

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        PrintPreviewDialog1.Document = PrintDocument1

        PrintPreviewDialog1.PrintPreviewControl.Zoom = 1

        PrintPreviewDialog1.ShowDialog()

    End Sub

    Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        Dim imagebmp As New Bitmap(Me.DataGridView1.Width, Me.DataGridView1.Height)

        DataGridView1.DrawToBitmap(imagebmp, New Rectangle(0, 0, Me.DataGridView1.Width, Me.DataGridView1.Height))

        e.Graphics.DrawImage(imagebmp, 120, 20)

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        Dim cmd1 As New OleDbCommand("Select * from table1 where firstname like '%' +@parm1+ '%' ", conn)

        cmd1.Parameters.AddWithValue("@parm1", TextBox5.Text)

        Dim da As New OleDbDataAdapter

        da.SelectCommand = cmd1

        Dim table1 As New DataTable

        table1.Clear()

        da.Fill(table1)

        DataGridView1.DataSource = table1

    End Sub

End Class

Programming with c#: how to search data from access database and display it in textboxes with code

 using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

using System.Data.OleDb;

namespace retrieve_data_c_message_box

{

    public partial class Form5 : Form

    {

        OleDbConnection conn1 = new OleDbConnection(@"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\ddd.accdb");

        public Form5()

        {

            InitializeComponent();

        }

        private void button1_Click(object sender, EventArgs e)

        {

            conn1.Open();

            OleDbCommand cmd1 = new OleDbCommand("Select id,firstname,lastname,sum1 from table2 where id=@parm1", conn1);

            cmd1.Parameters.AddWithValue("@parm1", search1.Text);

            OleDbDataReader reader1;

            reader1 = cmd1.ExecuteReader();

         if(   reader1.Read())

            {

                textBox1.Text = reader1["id"].ToString();

                textBox2.Text = reader1["firstname"].ToString();

                textBox3.Text = reader1["lastname"].ToString();

                textBox4.Text = reader1["sum1"].ToString();

            }

         else

            {

                MessageBox.Show("No Data found");

            }

            conn1.Close();

        }

        private void button2_Click(object sender, EventArgs e)

        {

            conn1.Open();

            OleDbCommand cmd1 = new OleDbCommand("Select id,firstname,lastname,sum1 from table2 where firstname=@parm1", conn1);

            cmd1.Parameters.AddWithValue("@parm1", search1.Text);

            OleDbDataReader reader1;

            reader1 = cmd1.ExecuteReader();

            if (reader1.Read())

            {

                textBox1.Text = reader1["id"].ToString();

                textBox2.Text = reader1["firstname"].ToString();

                textBox3.Text = reader1["lastname"].ToString();

                textBox4.Text = reader1["sum1"].ToString();

            }

            else

            {

                MessageBox.Show("No data found");

            }

            conn1.Close();

        }

    }

}

Visual Basic.Net: Insert Checked rows from DataGridView to Access Database with source code

 

Imports System.Data.OleDb

Public Class Form14

    Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\hobbies.accdb")

    Private Sub load_data()

        conn.Open()

        Dim cmd As New OleDbCommand("select id,name1,telephone from names1", conn)

        Dim da As New OleDbDataAdapter

        da.SelectCommand = cmd

        Dim table1 As New DataTable

        table1.Clear()

        da.Fill(table1)

        DataGridView1.DataSource = table1

        conn.Close()

        Dim checkboxcol As New DataGridViewCheckBoxColumn

        checkboxcol.Width = 40

        checkboxcol.Name = "checkboxcol"

        checkboxcol.HeaderText = ""

        DataGridView1.Columns.Insert(0, checkboxcol)

    End Sub

     

    Private Sub Form14_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        load_data()

    End Sub

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

        For Each row As DataGridViewRow In DataGridView1.Rows

            Dim select1 As Boolean = Convert.ToBoolean(row.Cells("checkboxcol").Value)

            If select1 Then

                conn.Open()

                Dim sql As String = " insert into telephones(Id,name1,telephone) values(@id,@name1,@telephone)"

                Dim cmd1 As New OleDbCommand(sql, conn)

                cmd1.Parameters.AddWithValue("@id", row.Cells("ID").Value)

                cmd1.Parameters.AddWithValue("@name1", row.Cells("name1").Value)

                cmd1.Parameters.AddWithValue("@telephone", row.Cells("telephone").Value)

                cmd1.ExecuteNonQuery()

                conn.Close()

            End If

        Next

        MessageBox.Show("Records Inserted")

    End Sub