With source code- Visual Basic.net project: System calculate installments and due dates in VB.net

Public Class Form5

    Dim dt As New DataTable

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

        dt.Columns.Add("Installment", GetType(String))

        dt.Columns.Add("Value", GetType(Integer))

        dt.Columns.Add("Due_date", GetType(Date))

        DataGridView1.DataSource = dt

        

    End Sub

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

        Dim price_v, adv_payment, installment_value, n_intallments, final_installment As Double

        price_v = TextBox1.Text

        adv_payment = TextBox2.Text

        installment_value = TextBox3.Text

        n_intallments = Math.Ceiling((price_v - adv_payment) / installment_value)

        final_installment = (price_v - adv_payment) Mod installment_value

        DataGridView1.DataSource = Nothing

        dt.Clear()

        DataGridView1.DataSource = dt

        DataGridView1.Columns("Due_date").DefaultCellStyle.Format = "MM-dd-yyyy"

        For i As Integer = 1 To n_intallments

            Dim date_payment = DateAdd(DateInterval.Month, i, Now)

            dt.Rows.Add("Installment" & i, TextBox3.Text, date_payment)

        Next

        If final_installment <> 0 Then

            Dim lastrow As Integer = DataGridView1.Rows.Count - 1

            DataGridView1.Rows(lastrow).Cells(1).Value = final_installment

        End If

    End Sub 

🎁🎁Full course VB.net with MySQL database(Insert, Update, Delete, and Search)🎉🎉 with code

https://youtube.com/clip/UgkxaESVafvSL8Sjake6z1v2gUA9vA1Xe-gk

Code Video

Imports MySql.Data.MySqlClient

Public Class Form1

    Dim conn As New MySqlConnection("Data Source=localhost;Database=employees;Username=root;Password=55551")

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

        OpenFileDialog1.Filter = "Image|*.jpg;*.png;*.bmp"

        If OpenFileDialog1.ShowDialog = DialogResult.OK Then

            TextBox4.Text = OpenFileDialog1.FileName

            PictureBox1.Image = Image.FromFile(TextBox4.Text)

        Else

            MessageBox.Show("Please Select Image")

        End If

    End Sub

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

        Dim cmd1 As New MySqlCommand("Insert Into names(firstname,lastname,telephone,image_path)Values(@firstname,@lastname,@telephone,@image_path)", conn)

        cmd1.Parameters.AddWithValue("firstname", TextBox1.Text.Trim)

        cmd1.Parameters.AddWithValue("lastname", TextBox2.Text.Trim)

        cmd1.Parameters.AddWithValue("telephone", TextBox3.Text.Trim)

        cmd1.Parameters.AddWithValue("image_path", TextBox4.Text.Trim)

        conn.Open()

        cmd1.ExecuteNonQuery()

        conn.Close()

        MessageBox.Show("Data Inserted Successfully")

        display_data()

    End Sub

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        PictureBox1.Image = Nothing

    End Sub

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

        display_data()

    End Sub

    Private Sub display_data()

        Dim cmd2 As New MySqlCommand("Select * From names Order By id desc", conn)

        Dim da As New MySqlDataAdapter(cmd2)

        Dim dt As New DataTable

        dt.Clear()

        da.Fill(dt)

        DataGridView1.DataSource = dt

    End Sub

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

        idlbl.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString

        TextBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString

        TextBox2.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString

        TextBox3.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString

        TextBox4.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString

        PictureBox1.Image = Image.FromFile(TextBox4.Text)

    End Sub

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

        Dim cmd3 As New MySqlCommand("Update names Set firstname=@firstname,lastname=@lastname,telephone=@telephone,image_path=@image_path Where id=@id", conn)

        cmd3.Parameters.AddWithValue("firstname", TextBox1.Text.Trim)

        cmd3.Parameters.AddWithValue("lastname", TextBox2.Text.Trim)

        cmd3.Parameters.AddWithValue("telephone", TextBox3.Text.Trim)

        cmd3.Parameters.AddWithValue("image_path", TextBox4.Text)

        cmd3.Parameters.AddWithValue("id", idlbl.Text)

        conn.Open()

        cmd3.ExecuteNonQuery()

        conn.Close()

        MessageBox.Show("Data Updated successfully")

        display_data()

    End Sub

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

        Dim cmd3 As New MySqlCommand("Delete From names Where id=@id", conn)

        cmd3.Parameters.AddWithValue("id", idlbl.Text)

        conn.Open()

        cmd3.ExecuteNonQuery()

        conn.Close()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        PictureBox1.Image = Nothing

        MessageBox.Show("Data Deleted successfully")

        display_data()

    End Sub

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

        Dim cmd2 As New MySqlCommand("Select * From names Where id=@id Order By id desc", conn)

        cmd2.Parameters.AddWithValue("id", TextBox5.Text.Trim)

        Dim da As New MySqlDataAdapter(cmd2)

        Dim dt As New DataTable

        dt.Clear()

        da.Fill(dt)

        DataGridView1.DataSource = dt

    End Sub

End Class

 

VB.net: filter dates from access database between two datetimepickers and display in datagridview with source code

 Imports System.Data.OleDb

Public Class Form4

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

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

        d1.Format = DateTimePickerFormat.Custom

        d1.CustomFormat = "MM/dd/yyyy"

        d2.Format = DateTimePickerFormat.Custom

        d2.CustomFormat = "MM/dd/yyyy"

        DataGridView1.BackgroundColor = System.Drawing.SystemColors.Control

        If conn.State = ConnectionState.Closed Then

            conn.Open()

        End If

        Dim cmd1 As New OleDbCommand(" select id,date1,username from table1", conn)

        Dim da As New OleDbDataAdapter

        Dim dt As New DataTable

        da.SelectCommand = cmd1

        dt.Clear()

        da.Fill(dt)

        DataGridView1.DataSource = dt

        DataGridView1.Columns(1).DefaultCellStyle.Format = "dd/MM/yyyy"

        DataGridView1.Columns(0).HeaderText = "ID"

        DataGridView1.Columns(1).HeaderText = "Start date"

        DataGridView1.Columns(2).HeaderText = "Username"

        DataGridView1.EnableHeadersVisualStyles = False

        With DataGridView1.ColumnHeadersDefaultCellStyle

            .Font = New Font("arial", 12, FontStyle.Italic)

            .BackColor = Color.Black

            .ForeColor = Color.White

        End With

        DataGridView1.Columns(0).DefaultCellStyle.Font = New Font("tahoma", 10, FontStyle.Bold)

        DataGridView1.Columns(1).DefaultCellStyle.Font = New Font("tahoma", 10, FontStyle.Italic)

        DataGridView1.Columns(2).DefaultCellStyle.Font = New Font("tahoma", 10, FontStyle.Underline)

        DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter

        DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter

        DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter

        DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter

        DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter

        DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter

        DataGridView1.Columns(0).DefaultCellStyle.BackColor = Color.Yellow

        DataGridView1.Columns(1).DefaultCellStyle.BackColor = Color.Brown

        DataGridView1.Columns(2).DefaultCellStyle.BackColor = Color.Green

        DataGridView1.Rows(0).Cells(0).Selected = False

        DataGridView1.Rows(2).Cells(1).Selected = False

    End Sub

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

         If conn.State = ConnectionState.Closed Then

            conn.Open()

        End If

        Dim dtdate1 As DateTime = DateTime.Parse(d1.Text)

        Dim dtdate2 As DateTime = DateTime.Parse(d2.Text)

        Dim cmd1 As OleDbCommand = New OleDbCommand("select id,date1,username from table1 where date1 between #" &

        dtdate1.ToString("MM/dd/yyyy") & "# and #" &

dtdate2.ToString("MM/dd/yyyy") & "# order by date1 desc", conn)

        Dim da As New OleDbDataAdapter

        da.SelectCommand = cmd1

        Dim dt As New DataTable

        dt.Clear()

        da.Fill(dt)

        DataGridView1.DataSource = dt

        conn.Close()

    End Sub

End Class