Programming for Everybody

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;

            }

        }

          

    }

}


📊 Filter RDLC Report Between Two Dates in C# | Step-by-Step Tutorial

 


code in Video:

private void button1_Click(object sender, EventArgs e)

        {

            this.Table_reg3TableAdapter.filterbydate(this.sportsDataSet.Table_reg3,Convert.ToDateTime(d1.Value).ToString(), Convert.ToDateTime(d2.Value).ToString());


            this.reportViewer1.RefreshReport();

        }


C# DataGridView Paging | WinForms Pagination Step-by-Step (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.Threading.Tasks;

using System.Windows.Forms;

using System.Data.SqlClient;

namespace WindowsFormsApplication2

{

    public partial class Form2 : Form

    {

        public Form2()

        {

            InitializeComponent();

        }

        SqlConnection conn = new SqlConnection("Data Source=.;Initial Catalog=sports;Integrated Security=true");

        int pagerows;

        private void count_pages()

        {

            SqlCommand cmd = new SqlCommand("Select Count(*) From Table_reg3", conn);

            conn.Open();

            int count1;

            count1 = int.Parse(cmd.ExecuteScalar().ToString());

            pagerows = Convert.ToInt32(Math.Ceiling(count1 / (double)10));

            label3.Text = pagerows.ToString();

        }

        private void load_data()

        {

            int f1 = Convert.ToInt32(label1.Text) * (int)10 - Convert.ToInt32(10 + 1);

            int t1 = Convert.ToInt32(label1.Text) * (int)10;

            SqlCommand cmd2 = new SqlCommand("Select * From(Select Row_Number() Over(Order By id) As rownumber,id,name1,age,sport,points From Table_reg3) tablerow Where rownumber Between " + f1 + "And " + t1 + "", conn);

            SqlDataAdapter da = new SqlDataAdapter(cmd2);

            DataTable dt = new DataTable();

            da.Fill(dt);

            dataGridView1.DataSource = dt;

        }

        private void Form2_Load(object sender, EventArgs e)

        {

            count_pages();

        }


        private void button1_Click(object sender, EventArgs e)

        {

            label1.Text = 1.ToString();

            load_data();

        }


        private void button2_Click(object sender, EventArgs e)

        {

            if(Convert.ToInt32(label1.Text)< pagerows)

            {

                label1.Text = (Convert.ToInt32(label1.Text) + (int)1).ToString();

                load_data();

            }

        }


        private void button3_Click(object sender, EventArgs e)

        {

            if (Convert.ToInt32(label1.Text) > (int)1)

            {

                label1.Text = (Convert.ToInt32(label1.Text) - (int)1).ToString();

                load_data();

            }

        }


        private void button4_Click(object sender, EventArgs e)

        {

            label1.Text = pagerows.ToString();

            load_data();

        }

    }

}




How to display data excel sheet in userform VBA Using navigation buttons




Dim row_num As Integer
 Private Sub CommandButton2_Click()
row_num = Sheet5.range("A2").End(xlUp).Row + 1
Me.idtxt = Sheet5.Cells(row_num, 1)
load_data
End Sub

Private Sub load_data()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet5")
Dim i As Long
For i = 1 To Sheet5.UsedRange.Rows.Count
If idtxt.Text = Sheet5.Cells(i, 1).Value Then
ftxt.Text = Sheet5.Cells(i, 2).Value
ltxt.Text = Sheet5.Cells(i, 3).Value
sporttxt.Text = Sheet5.Cells(i, 4).Value
pointtxt.Text = Sheet5.Cells(i, 5).Value
Exit Sub
Else
ftxt.Text = ""
ltxt.Text = ""
sporttxt.Text = ""
pointtxt.Text = ""
End If
Next i

End Sub

Private Sub CommandButton3_Click()
If row_num < Sheet5.Cells(Rows.Count, 1).End(xlUp).Row Then
row_num = row_num + 1
Me.idtxt = Sheet5.Cells(row_num, 1)
load_data
End If
End Sub

Private Sub CommandButton4_Click()
If row_num > Sheet5.range("A2").End(xlUp).Row + 1 Then
row_num = row_num - 1
Me.idtxt = Sheet5.Cells(row_num, 1)
load_data
Exit Sub

Else
End If
End Sub

Private Sub CommandButton5_Click()
row_num = Sheet5.Cells(Rows.Count, 1).End(xlUp).Row
Me.idtxt = Sheet5.Cells(row_num, 1)
load_data
End Sub

Private Sub UserForm_Click()

End Sub

c# tutorial for beginners: How to connect Microsoft access database to C#

c# tutorial for beginners: Connect access database (connection-insert-update-delete - search in database) with create access database and add images .
Subscribe to @programmingforeverybody
https://www.youtube.com/@programmingcode2025/?sub_confirmation=1
Contents:
Add controls to your form 00:00
Delete last blank row in datagridview 09:26
Browse button 09:42
Create table database 14:21
Add Dataset and relate it with controls 15:37
change columns header text datagridview 20:52
New button 23:16
Format DateTime column in a DataGridView 25:04
Save or update button 26:17
Search button 29:34
Reset button 32:26
Remove button 33:24
Previous button 34:16
Next button 34:48
First button 35:06
Last button 35:25
Close button 35:41