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

Open word document in RichtextBox using VB.net

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

        Dim op1 As OpenFileDialog = New OpenFileDialog() With {

            .ValidateNames = True,

            .Multiselect = False,

            .Filter = "Word|*.doc;*.docx"

                }

        If op1.ShowDialog() = DialogResult.OK Then

            Dim readonly1 As Object = True

            Dim visible As Object = True

            Dim save As Object = True

            Dim filename As Object = op1.FileName

            Dim missing As Object = Type.Missing

            Dim template As Object = False

            Dim typedoc As Object = 0

            Dim doc1 As Microsoft.Office.Interop.Word._Document = Nothing

            Dim word1 As Microsoft.Office.Interop.Word._Application = New Microsoft.Office.Interop.Word.Application() With {

              .Visible = False

            }

            doc1 = word1.Documents.Open(filename, readonly1, visible)

            doc1.ActiveWindow.Selection.WholeStory()

            doc1.ActiveWindow.Selection.Copy()

            Dim data1 As IDataObject = Clipboard.GetDataObject

            RichTextBox1.Rtf = data1.GetData(DataFormats.Rtf).ToString

            word1.Quit(missing)

        End If

End Sub

(create,delete,restore and backup database) and create,delete and display data in tables Sql server

 This program include(display databases and tables- display content tables and insert,update and Remove data- Create new database- delete database- backup database- restore database-Create new table by code)

C#: Insert all data of a dataGridView to database at once with database with source code

private void button8_Click(object sender, EventArgs e)

        {

            foreach(DataGridViewRow row in dataGridView1.Rows)

            {

                string constring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:/ddd.accdb";

                using (OleDbConnection con = new OleDbConnection(constring))

                {

                    using (OleDbCommand cmd = new OleDbCommand(" INSERT INTO table1 ([ID], [firstname],[lastname],[sum]) VALUES (@id,@firstname,@lastname,@sum)", con))

                    {

                        cmd.Parameters.AddWithValue("@id", row.Cells["ID"].Value);

                        cmd.Parameters.AddWithValue("@firstname", row.Cells["firstname"].Value);

                        cmd.Parameters.AddWithValue("@lastname", row.Cells["lastname"].Value);

                        cmd.Parameters.AddWithValue("@sum", row.Cells["sum"].Value);

                        con.Open();

                        cmd.ExecuteNonQuery();

                        con.Close();

                    }

                 

                    }

              

                }

            MessageBox.Show("All rows inserted");

         

           

        } 

Visual Basic.net: Populate Treeview in VB.Net with Access database(with Source Code)

 Imports System.Data

Imports System.Data.OleDb

Public Class Form3

    Private Function bind_data(ByVal strsql As String) As DataTable

        Dim dt As New DataTable

        Dim constr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Prog\Documents\sports.accdb"

        Using con As New OleDbConnection(constr)

            Using cmd As New OleDbCommand(strsql)

                Using sda As New OleDbDataAdapter()

                    cmd.CommandType = CommandType.Text

                    cmd.Connection = con

                    sda.SelectCommand = cmd

                    sda.Fill(dt)

                End Using

            End Using

            Return dt

        End Using

    End Function

    Private Sub ptreeview(ByVal dtparent As DataTable, ByVal parentid As Integer, ByVal tree1 As TreeNode)

        For Each row As DataRow In dtparent.Rows

            Dim child As New TreeNode() With { _

                .Text = row("name1").ToString(), _

                .Tag = row("id") _

            }

            If parentid = 0 Then

                TreeView1.Nodes.Add(child)

   Dim dtchild As DataTable = Me.bind_data("select id,name1 from names1 where id_sport=" & child.Tag)

                ptreeview(dtchild, Convert.ToInt32(child.Tag), child)

            Else

                tree1.Nodes.Add(child)

            End If

        Next

    End Sub

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

        Dim dt As DataTable = Me.bind_data("select id,name1 from sports1")

        Me.ptreeview(dt, 0, Nothing)

    End Sub

End Class