Oledbexception was unhandled parameter @lastname has no default value.

Question

1.00/5 (1 vote)

See more:

Imports System.Data.DataTable
Imports System.Data.OleDb
Imports System.IO
Imports System.Data

Public Class Form1
    Dim table As New DataTable("table")
    Dim index As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'ENROLLDBDataSet1.Table1' table. You can move, or remove it, as needed.
        Me.Table1TableAdapter2.Fill(Me.ENROLLDBDataSet1.Table1)
        'TODO: This line of code loads data into the 'ENROLLDBDataSet.Table1' table. You can move, or remove it, as needed.
        Me.Table1TableAdapter1.Fill(Me.ENROLLDBDataSet.Table1)
        'TODO: This line of code loads data into the 'Database189DataSet.Table_Database' table. You can move, or remove it, as needed.
        Me.Table_DatabaseTableAdapter.Fill(Me.Database189DataSet.Table_Database)


        table.Columns.Add("LAST NAME", Type.GetType("System.String"))


        table.Columns.Add("FIRST NAME", Type.GetType("System.String"))


        table.Columns.Add("MIDDLE NAME", Type.GetType("System.String"))


        table.Columns.Add("ADDRESS", Type.GetType("System.String"))


        table.Columns.Add("LRN", Type.GetType("System.String"))


        table.Columns.Add("SCHOOLYEAR", Type.GetType("System.String"))


        table.Columns.Add("RELIGION", Type.GetType("System.String"))


        table.Columns.Add("GRADE LEVEL", Type.GetType("System.String"))


        table.Columns.Add("GENDER", Type.GetType("System.String"))

        table.Columns.Add("BIRTHDAY", Type.GetType("System.String"))

        table.Columns.Add("BIRTHPLACE", Type.GetType("System.String"))

        table.Columns.Add("NATIONALITY", Type.GetType("System.String"))

        table.Columns.Add("FATHER", Type.GetType("System.String"))

        table.Columns.Add("OCCUPATION", Type.GetType("System.String"))

        table.Columns.Add("CONTACT", Type.GetType("System.String"))

        table.Columns.Add("MOTHER", Type.GetType("System.String"))

        table.Columns.Add("OCCUPATION1", Type.GetType("System.String"))

        table.Columns.Add("CONTACT2", Type.GetType("System.String"))

        table.Columns.Add("GUARDIAN", Type.GetType("System.String"))

        table.Columns.Add("RELATIONSHIP", Type.GetType("System.String"))

        table.Columns.Add("ADDRESSs", Type.GetType("System.String"))

        table.Columns.Add("CONTACT3", Type.GetType("System.String"))



        DataGridView1.DataSource = table
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If (TextBox1.Text = "") Then

            MsgBox("Please enter your Last name")

        ElseIf (TextBox2.Text = "") Then

            MsgBox("Please enter your First name")

        ElseIf (TextBox3.Text = "") Then

            MsgBox("Please enter your Middle name")

        ElseIf (TextBox4.Text = "") Then

            MsgBox("Please enter your LRN")

        ElseIf (TextBox5.Text = "") Then

            MsgBox("Please enter School Year")

        ElseIf (TextBox7.Text = "") Then

            MsgBox("Please enter your Address")

        ElseIf (TextBox8.Text = "") Then

            MsgBox("Please enter your Religion")

        ElseIf (TextBox6.Text = "") Then

            MsgBox("Please enter your Birthday")

        ElseIf (TextBox9.Text = "") Then

            MsgBox("Please enter your Birthplace")

        ElseIf (TextBox10.Text = "") Then

            MsgBox("Please enter your Nationality")

        ElseIf (TextBox11.Text = "") Then

            MsgBox("Please enter your Father's Name")

        ElseIf (TextBox12.Text = "") Then

            MsgBox("Please enter your Occupation")

        ElseIf (TextBox13.Text = "") Then

            MsgBox("Please enter your Contact number")

        ElseIf (TextBox14.Text = "") Then

            MsgBox("Please enter your Mother's Name")

        ElseIf (TextBox15.Text = "") Then

            MsgBox("Please enter your Occupation")

        ElseIf (TextBox16.Text = "") Then

            MsgBox("Please enter your Contact number")

        ElseIf (TextBox17.Text = "") Then

            MsgBox("Please enter your Guardian's Name")

        ElseIf (TextBox18.Text = "") Then

            MsgBox("Please enter your Relationship")

        ElseIf (TextBox19.Text = "") Then

            MsgBox("Please enter your Address")

        ElseIf (TextBox20.Text = "") Then

            MsgBox("Please enter your Contact number")



        ElseIf RadioButton1.Checked And ComboBox1.Text = "Grade 1" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 1", "M", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)


        ElseIf RadioButton1.Checked And ComboBox1.Text = "Grade 2" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 2", "M", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)



        ElseIf RadioButton1.Checked And ComboBox1.SelectedItem = "Grade 3" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 3", "M", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)


        ElseIf RadioButton1.Checked And ComboBox1.SelectedItem = "Grade 4" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 4", "M", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)


        ElseIf RadioButton1.Checked And ComboBox1.SelectedItem = "Grade 5" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 5", "M", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)


        ElseIf RadioButton1.Checked And ComboBox1.SelectedItem = "Grade 6" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 6", "M", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)

        ElseIf RadioButton1.Checked And ComboBox1.SelectedItem = "Grade 7" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 7", "M", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)


        ElseIf RadioButton1.Checked And ComboBox1.SelectedItem = "Grade 8" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 8", "M", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)


        ElseIf RadioButton1.Checked And ComboBox1.SelectedItem = "Grade 9" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 9", "M", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)


        ElseIf RadioButton1.Checked And ComboBox1.SelectedItem = "Grade 10" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 10", "M", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)

        ElseIf RadioButton1.Checked And ComboBox1.SelectedItem = "Grade 11" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 11", "M", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)


        ElseIf RadioButton1.Checked And ComboBox1.SelectedItem = "Grade 12" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 12", "M", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)


        ElseIf RadioButton2.Checked And ComboBox1.SelectedItem = "Grade 1" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 1", "F", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)


        ElseIf RadioButton2.Checked And ComboBox1.SelectedItem = "Grade 2" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 2", "F", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)

        ElseIf RadioButton2.Checked And ComboBox1.SelectedItem = "Grade 3" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 3", "F", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)

        ElseIf RadioButton2.Checked And ComboBox1.SelectedItem = "Grade 4" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 4", "F", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)

        ElseIf RadioButton2.Checked And ComboBox1.SelectedItem = "Grade 5" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 5", "F", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)

        ElseIf RadioButton2.Checked And ComboBox1.SelectedItem = "Grade 6" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 6", "F", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)

        ElseIf RadioButton2.Checked And ComboBox1.SelectedItem = "Grade 7" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 7", "F", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)

        ElseIf RadioButton2.Checked And ComboBox1.SelectedItem = "Grade 8" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 8", "F", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)

        ElseIf RadioButton2.Checked And ComboBox1.SelectedItem = "Grade 9" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 9", "F", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)

        ElseIf RadioButton2.Checked And ComboBox1.SelectedItem = "Grade 10" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 10", "F", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)

        ElseIf RadioButton2.Checked And ComboBox1.SelectedItem = "Grade 11" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 11", "F", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)

        ElseIf RadioButton2.Checked And ComboBox1.SelectedItem = "Grade 12" Then
            table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text, TextBox5.Text, TextBox8.Text, "Grade 12", "F", TextBox6.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text, TextBox20.Text)

        ElseIf (TextBox1.Text = Nothing) Then


            MessageBox.Show("Cannot leave blank")



        Else
            MsgBox("Cannot leave blank")


        End If






        DataGridView1.DataSource = table
    End Sub


    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)

        index = e.RowIndex
        Dim selectedrow As DataGridViewRow
        selectedrow = DataGridView1.Rows(index)

        TextBox1.Text = selectedrow.Cells(0).Value.ToString

        TextBox2.Text = selectedrow.Cells(1).Value.ToString

        TextBox3.Text = selectedrow.Cells(2).Value.ToString

        TextBox7.Text = selectedrow.Cells(3).Value.ToString

        TextBox4.Text = selectedrow.Cells(4).Value.ToString

        TextBox5.Text = selectedrow.Cells(5).Value.ToString

        TextBox8.Text = selectedrow.Cells(6).Value.ToString

        TextBox6.Text = selectedrow.Cells(7).Value.ToString

        TextBox9.Text = selectedrow.Cells(8).Value.ToString

        TextBox10.Text = selectedrow.Cells(9).Value.ToString

        TextBox11.Text = selectedrow.Cells(10).Value.ToString

        TextBox12.Text = selectedrow.Cells(11).Value.ToString

        TextBox13.Text = selectedrow.Cells(12).Value.ToString

        TextBox14.Text = selectedrow.Cells(13).Value.ToString

        TextBox15.Text = selectedrow.Cells(14).Value.ToString

        TextBox16.Text = selectedrow.Cells(15).Value.ToString

        TextBox17.Text = selectedrow.Cells(16).Value.ToString

        TextBox18.Text = selectedrow.Cells(17).Value.ToString

        TextBox19.Text = selectedrow.Cells(18).Value.ToString

        TextBox20.Text = selectedrow.Cells(19).Value.ToString


        ComboBox1.Text = selectedrow.Cells(7).Value.ToString









    End Sub

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

        Dim newdatarow As DataGridViewRow

        newdatarow = DataGridView1.Rows(index)

        newdatarow.Cells(0).Value = TextBox1.Text

        newdatarow.Cells(1).Value = TextBox2.Text

        newdatarow.Cells(2).Value = TextBox3.Text

        newdatarow.Cells(3).Value = TextBox7.Text

        newdatarow.Cells(4).Value = TextBox4.Text

        newdatarow.Cells(5).Value = TextBox5.Text

        newdatarow.Cells(6).Value = TextBox8.Text

        newdatarow.Cells(7).Value = ComboBox1.Text






    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        For Each row As DataGridViewRow In DataGridView1.SelectedRows()

            DataGridView1.Rows.Remove(row)


        Next

        
    End Sub

   

    
   
   
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        For Each row As DataGridViewRow In DataGridView1.Rows

            Dim constring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Gray\Documents\ENROLLDB.accdb"


            Using con As New OleDbConnection(constring)


                Using cmd As New OleDbCommand("INSERT INTO table1 values  (@LastName, @FirstName, @MiddleName, @Address, @LRN, @SchoolYear, @Religion, @GradeLevel, @Gender, @Birthday, @Birthplace, @Nationality, @Father, @Occupation, @Contact, @Mother, @Occupation1, @Contact1, @Guardian, @Relationship, @Addresss, @Contact3)", con)

                    cmd.Parameters.AddWithValue("@Lastname", row.Cells("LAST NAME").Value)

                    cmd.Parameters.AddWithValue("@Firstname", row.Cells("FIRST NAME").Value)

                    cmd.Parameters.AddWithValue("@Middlename", row.Cells("MIDDLE NAME").Value)

                    cmd.Parameters.AddWithValue("@Address", row.Cells("ADDRESS").Value)

                    cmd.Parameters.AddWithValue("@LRN", row.Cells("LRN").Value)

                    cmd.Parameters.AddWithValue("@SchoolYear", row.Cells("SCHOOLYEAR").Value)

                    cmd.Parameters.AddWithValue("@Religion", row.Cells("RELIGION").Value)

                    cmd.Parameters.AddWithValue("@GradeLevel", row.Cells("GRADE LEVEL").Value)

                    cmd.Parameters.AddWithValue("@Gender", row.Cells("GENDER").Value)

                    cmd.Parameters.AddWithValue("@Birthday", row.Cells("BIRTHDAY").Value)

                    cmd.Parameters.AddWithValue("@Birthplace", row.Cells("BIRTHPLACE").Value)

                    cmd.Parameters.AddWithValue("@Nationality", row.Cells("NATIONALITY").Value)

                    cmd.Parameters.AddWithValue("@Father", row.Cells("FATHER").Value)

                    cmd.Parameters.AddWithValue("@Occupation", row.Cells("OCCUPATION").Value)

                    cmd.Parameters.AddWithValue("@Contact", row.Cells("CONTACT").Value)

                    cmd.Parameters.AddWithValue("@Mother", row.Cells("MOTHER").Value)

                    cmd.Parameters.AddWithValue("@Occupation1", row.Cells("OCCUPATION1").Value)

                    cmd.Parameters.AddWithValue("@Contact1", row.Cells("CONTACT2").Value)

                    cmd.Parameters.AddWithValue("@Guardian", row.Cells("GUARDIAN").Value)

                    cmd.Parameters.AddWithValue("@Relationship", row.Cells("RELATIONSHIP").Value)

                    cmd.Parameters.AddWithValue("@Addresss", row.Cells("ADDRESSs").Value)

                    cmd.Parameters.AddWithValue("@Contact3", row.Cells("CONTACT3").Value)

                    con.Open()
                    cmd.ExecuteNonQuery()
                    con.Close()



                End Using
            End Using
        Next
        MessageBox.Show("Data has been saved")



    End Sub

    

End Class

What I have tried:

my head is going to booom pls help :(

Posted 24-Mar-21 23:27pm

John Rommel Austria

Updated 24-Mar-21 23:33pm

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Answer 1 · 2021-03-24T23:33:00

The cell in your table - at least one of them - is empty, probably at the bottom for the user to enter a new row. Use the debugger to check exactly what the row at fault contains, and you'll probably find all the columns are empty.

But ... do yourself (and everyone else) a favour: stop using Visual Studio default names for everything - you may remember that "TextBox8" is the mobile number today, but when you have to modify it in three weeks time, will you then? Use descriptive names - "tbMobileNo" for example - and your code becomes easier to read, more self documenting, easier to maintain - and surprisingly quicker to code because Intellisense can get to to "tbMobile" in three keystrokes, where "TextBox8" takes thinking about and 8 keystrokes...

Any form with magic numbers all over the place, at least 20 textboxes using default names, and suchlike is very prone to errors and makes future maintenance an real PITA...