Insert (Save) record multiple times using loop in ASP.Net using C# and VB.Net

Hi ucrhlyn,

Check this example. Now please take its reference and correct your code.

HTML

<asp:Button Text="Save" runat="server" OnClick="OnInsert" />

Namespaces

C#

using System.Configuration;
using System.Data.SqlClient;

VB.Net

Imports System.Configuration
Imports System.Data.SqlClient

Code

C#

private void InsertUser(string fName, string lName, int age)
{
    string constr = ConfigurationManager.ConnectionStrings["constr"].ConnectionString;
    using (SqlConnection con = new SqlConnection(constr))
    {
        string query = "INSERT INTO tblUsers (FirstName,LastName,Age) VALUES (@FirstName, @LastName, @Age)";
        using (SqlCommand cmd = new SqlCommand(query))
        {
            cmd.Connection = con;
            cmd.Parameters.AddWithValue("@FirstName", fName);
            cmd.Parameters.AddWithValue("@LastName", lName);
            cmd.Parameters.AddWithValue("@Age", age);
            con.Open();
            cmd.ExecuteNonQuery();
            con.Close();
        }
    }
}

protected void OnInsert(object sender, EventArgs e)
{
    for (int i = 1; i <= 10; i++)
    {
        this.InsertUser("david", "John", 15);
    }
}

VB.Net

Private Sub InsertUser(ByVal fName As String, ByVal lName As String, ByVal age As Integer)
    Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
    Using con As SqlConnection = New SqlConnection(constr)
        Dim query As String = "INSERT INTO tblUsers (FirstName,LastName,Age) VALUES (@FirstName, @LastName, @Age)"
        Using cmd As SqlCommand = New SqlCommand(query)
            cmd.Connection = con
            cmd.Parameters.AddWithValue("@FirstName", fName)
            cmd.Parameters.AddWithValue("@LastName", lName)
            cmd.Parameters.AddWithValue("@Age", age)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        End Using
    End Using
End Sub

Protected Sub OnInsert(ByVal sender As Object, ByVal e As EventArgs)
    For i As Integer = 1 To 10 Step 1
        Me.InsertUser("david", "John", 15)
        Response.Write(i)
    Next
End Sub