Insert (Save) dynamically added Label and TextBox value in Database using C# and VB.Net in ASP.Net

Hi learningmrs,

Refer below code.

C#

SqlConnection con = new SqlConnection(ConfigurationManager.ConnectionStrings["constr"].ConnectionString);
protected void Page_Load(object sender, EventArgs e)
{
    using (SqlCommand cmd = new SqlCommand("Select Qstnno,qstndesc from QuestionList order by Qstnno"))
    {
        using (SqlDataAdapter sda = new SqlDataAdapter())
        {
            cmd.Connection = con;
            sda.SelectCommand = cmd;
            using (DataTable dt = new DataTable())
            {
                sda.Fill(dt);
                if (dt.Rows.Count > 0)
                {
                    for (int i = 0; i < dt.Rows.Count; i++)
                    {
                        Label lb = new Label();
                        lb.ID = "lbl" + i;
                        lb.Text = "<br/><br/> QuestionNo:-   " + dt.Rows[i]["Qstnno"].ToString() + "-" + dt.Rows[i]["qstndesc"].ToString();
                        pnlLabel.Controls.Add(lb);

                        TextBox tx = new TextBox();
                        tx.ID = "txt" + i;
                        tx.Text = string.Empty;
                        pnlLabel.Controls.Add(tx);
                    }
                }
            }
        }
    }
}

protected void btnSubmit_Click(object sender, EventArgs e)
{
    for (int i = 0; i < pnlLabel.Controls.Count / 2; i++)
    {
        Label lbl = pnlLabel.FindControl("lbl" + i) as Label;
        TextBox txtbx = pnlLabel.FindControl("txt" + i) as TextBox;
        SqlCommand cmd = new SqlCommand("Insert into QuesionList(Effdt,[Year],Mnth,UDIN,qstnno,RatingGiven,Comments) values (@Effdt, @Year, @Mnth, @UDIN, @qstnno, @RatingGiven, @Comments);");
        cmd.Connection = con;
        cmd.Parameters.AddWithValue("@Effdt", DateTime.Now);
        cmd.Parameters.AddWithValue("@Year", DateTime.Now.Year);
        cmd.Parameters.AddWithValue("@Mnth", DateTime.Now.Month);
        cmd.Parameters.AddWithValue("@UDIN", 5);
        cmd.Parameters.AddWithValue("@qstnno", lbl.Text.Replace("<br/><br/> QuestionNo:-   ", ""));
        cmd.Parameters.AddWithValue("@RatingGiven", txtbx.Text);
        cmd.Parameters.AddWithValue("@Comments", "Test");
        con.Open();
        cmd.ExecuteNonQuery();
        con.Close();

    }
}

VB.Net

    Private con As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("constr").ConnectionString)
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        Using cmd As SqlCommand = New SqlCommand("Select Qstnno,qstndesc from QuestionList order by Qstnno")
            Using sda As SqlDataAdapter = New SqlDataAdapter()
                cmd.Connection = con
                sda.SelectCommand = cmd
                Using dt As DataTable = New DataTable()
                    sda.Fill(dt)
                    If dt.Rows.Count > 0 Then
                        For i As Integer = 0 To dt.Rows.Count - 1
                            Dim lb As Label = New Label()
                            lb.ID = "lbl" & i
                            lb.Text = "<br/><br/> QuestionNo:-   " & dt.Rows(i)("Qstnno").ToString() & "-" + dt.Rows(i)("qstndesc").ToString()
                            pnlLabel.Controls.Add(lb)
                            Dim tx As TextBox = New TextBox()
                            tx.ID = "txt" & i
                            tx.Text = String.Empty
                            pnlLabel.Controls.Add(tx)
                        Next
                    End If
                End Using
            End Using
        End Using
    End Sub

    Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As EventArgs)
        For i As Integer = 0 To pnlLabel.Controls.Count / 2 - 1
            Dim lbl As Label = TryCast(pnlLabel.FindControl("lbl" & i), Label)
            Dim txtbx As TextBox = TryCast(pnlLabel.FindControl("txt" & i), TextBox)
            Dim cmd As SqlCommand = New SqlCommand("Insert into QuesionList(Effdt,[Year],Mnth,UDIN,qstnno,RatingGiven,Comments) values (@Effdt, @Year, @Mnth, @UDIN, @qstnno, @RatingGiven, @Comments);")
            cmd.Connection = con
            cmd.Parameters.AddWithValue("@Effdt", DateTime.Now)
            cmd.Parameters.AddWithValue("@Year", DateTime.Now.Year)
            cmd.Parameters.AddWithValue("@Mnth", DateTime.Now.Month)
            cmd.Parameters.AddWithValue("@UDIN", 5)
            cmd.Parameters.AddWithValue("@qstnno", lbl.Text.Replace("<br/><br/> QuestionNo:-   ", ""))
            cmd.Parameters.AddWithValue("@RatingGiven", txtbx.Text)
            cmd.Parameters.AddWithValue("@Comments", "Test")
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Next
    End Sub