Programming in ASP.NET - Insert Update Delete in SQL Server in VB.NET with Source code

 

Imports System.Data

Imports System.Data.SqlClient

Imports System.Drawing

Partial Class _Default

    Inherits System.Web.UI.Page

    Dim conn As New SqlConnection("Data Source=.;Initial Catalog=students2;Integrated Security=True")

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

        Dim cmd As New SqlCommand("Insert into Table1(firstname,lastname,marks)Values(@firstname,@lastname,@marks)", conn)

        cmd.Parameters.AddWithValue("firstname", TextBox1.Text)

        cmd.Parameters.AddWithValue("lastname", TextBox2.Text)

        cmd.Parameters.AddWithValue("marks", TextBox3.Text)

        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()

        result.Text = "Data Inserted Successfully"

        result.BackColor = Color.Green

        result.ForeColor = Color.White

        result.Font.Size = 16

        GridView1.DataBind()

    End Sub

    Private Sub form1_Load(sender As Object, e As EventArgs) Handles form1.Load

        GridView1.DataBind()

    End Sub

    Private Sub GridView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GridView1.SelectedIndexChanged

        id1.Visible = True

        id1.Text = HttpUtility.HtmlDecode(GridView1.SelectedRow.Cells.Item(0).Text)

        TextBox1.Text = HttpUtility.HtmlDecode(GridView1.SelectedRow.Cells.Item(1).Text)

        TextBox2.Text = HttpUtility.HtmlDecode(GridView1.SelectedRow.Cells.Item(2).Text)

        TextBox3.Text = HttpUtility.HtmlDecode(GridView1.SelectedRow.Cells.Item(3).Text)

    End Sub

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

        Dim cmd As New SqlCommand("Update Table1 Set firstname=@firstname,lastname=@lastname,marks=@marks Where id=@id", conn)

        cmd.Parameters.AddWithValue("id", id1.Text)

        cmd.Parameters.AddWithValue("firstname", TextBox1.Text)

        cmd.Parameters.AddWithValue("lastname", TextBox2.Text)

        cmd.Parameters.AddWithValue("marks", TextBox3.Text)

        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()

        result.Text = "Data updated Successfully"

        result.BackColor = Color.Orange

        result.ForeColor = Color.White

        result.Font.Size = 16

        GridView1.DataBind()

    End Sub

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

        Dim cmd As New SqlCommand("Delete from Table1 Where id=@id", conn)

        cmd.Parameters.AddWithValue("id", id1.Text)

        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()

        result.Text = "Data Deleted Successfully"

        result.BackColor = Color.Brown

        result.ForeColor = Color.White

        result.Font.Size = 16

        GridView1.DataBind()

        id1.Visible = False

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

End Class

programming in C# : System calculates installments and due dates With Source 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;

namespace System_calculate_installments

{

    public partial class Form2 : Form

    {

        public Form2()

        {

            InitializeComponent();

        }

        DataTable dt = new DataTable();

        private void Form2_Load(object sender, EventArgs e)

        {

            dt.Columns.Add("Installment", typeof(string));

            dt.Columns.Add("Value", typeof(double));

            dt.Columns.Add("Due_date", typeof(DateTime));

            dataGridView1.DataSource = dt;

        }

        private void button1_Click(object sender, EventArgs e)

        {

            double price_v, adv_payment, installment_value, n_installments,final_installment;

            price_v = double.Parse(textBox1.Text);

            adv_payment = double.Parse(textBox2.Text);

            installment_value = double.Parse(textBox3.Text);

            n_installments = Math.Ceiling((price_v - adv_payment) / installment_value);

            final_installment = (price_v - adv_payment) % installment_value;

            dataGridView1.DataSource = null;

            dt.Clear();

            dataGridView1.DataSource = dt;

            for (int i = 1; i <= n_installments; i++)

            {

                var date_payment = (DateTime.Today.AddMonths(i)).ToString("MM-dd-yyyy");

                dt.Rows.Add("Installment" + i, textBox3.Text, date_payment);

            }

            if (final_installment != 0)

            {

                int lastrow = dataGridView1.Rows.Count - 1;

                dataGridView1.Rows[lastrow].Cells[1].Value = final_installment;

            }

        }

          

    }

}