No value given in one or required parameter

Question

1.00/5 (1 vote)

See more:

VB

Dim importantmessage As String
      importantmessage = MsgBox("Filling Up Complete, Are you sure you want to save this?", vbYesNo)
      If importantmessage = vbYes Then
          cmdInsert.CommandText = "INSERT INTO personinfo (SurName,FirstName,MiddleName,Present_CurrentAddress,ProvincialAddress,Noofchildren,Height,weight,birthdate,age,birtrhplace,gender,civilstatus,educationalattain,schoolname,course,yearsofstudy,collegestatus,trainingschoolname,positiontrained,yearstrained,coursetrained,detachment,Region,effdate,workstatus,empnumber,positionemployed,yearsofemployed,sssnumber,tinnumber,nbi,nbidate,pnp,pnpdate,priorexp,gdexp,guardposition,uniformdate,millitary,LOS,previousemp,licno,licdate,licexp,dateofemp,badgeno,neurocenter,neuroresult,neurodate,drugcenter,marijuana,shabu,drugresult,histories) VALUES (@1,@2,@3,@4,@5,@6,@7,@8,@9,@10,@11,@12,@13,@14,@15,@16,@17,@18,@19,@20,@21,@22,@23,@24,@25,@26,@27,@28,@29,@30,@31,@32,@33,@34,@35,@36,@37,@38,@39,@40,@41,@42,@43,@44,@45,@46,@47,@48,@49,@50,@51,@52,@53,@54,@55);"
          cmd.Parameters.AddWithValue("@1", txtsurname.Text)
          cmd.Parameters.AddWithValue("@2", txtfirstname.Text)
          cmd.Parameters.AddWithValue("@3", txtmiddlename.Text)
          cmd.Parameters.AddWithValue("@4", txtaddress.Text)
          cmd.Parameters.AddWithValue("@5", txtprovince.Text)
          cmd.Parameters.AddWithValue("@6", txtchildren.Text)
          cmd.Parameters.AddWithValue("@7", txtheight.Text)
          cmd.Parameters.AddWithValue("@8", txtweight.Text)
          cmd.Parameters.AddWithValue("@9", datepicker1.Text)
          cmd.Parameters.AddWithValue("@10", txtage.Text)
          cmd.Parameters.AddWithValue("@11", txtbplace.Text)
          cmd.Parameters.AddWithValue("@12", cmbgender.Text)
          cmd.Parameters.AddWithValue("@13", cmbcivil.Text)
          cmd.Parameters.AddWithValue("@14", ComboBox4.Text)
          cmd.Parameters.AddWithValue("@15", TextBox11.Text)
          cmd.Parameters.AddWithValue("@16", TextBox10.Text)
          cmd.Parameters.AddWithValue("@17", TextBox9.Text)
          cmd.Parameters.AddWithValue("@18", TextBox8.Text)
          cmd.Parameters.AddWithValue("@19", TextBox6.Text)
          cmd.Parameters.AddWithValue("@20", ComboBox3.Text)
          cmd.Parameters.AddWithValue("@21", TextBox7.Text)
          cmd.Parameters.AddWithValue("@22", TextBox1.Text)
          cmd.Parameters.AddWithValue("@23", ComboBox2.Text)
          cmd.Parameters.AddWithValue("@24", ComboBox7.Text)
          cmd.Parameters.AddWithValue("@25", MaskedTextBox3.Text)
          cmd.Parameters.AddWithValue("@26", ComboBox1.Text)
          cmd.Parameters.AddWithValue("@27", TextBox29.Text)
          cmd.Parameters.AddWithValue("@28", TextBox30.Text)
          cmd.Parameters.AddWithValue("@29", TextBox31.Text)
          cmd.Parameters.AddWithValue("@30", TextBox5.Text)
          cmd.Parameters.AddWithValue("@31", TextBox4.Text)
          cmd.Parameters.AddWithValue("@32", TextBox3.Text)
          cmd.Parameters.AddWithValue("@33", MaskedTextBox4.Text)
          cmd.Parameters.AddWithValue("@34", TextBox2.Text)
          cmd.Parameters.AddWithValue("@35", MaskedTextBox5.Text)
          cmd.Parameters.AddWithValue("@36", TextBox24.Text)
          cmd.Parameters.AddWithValue("@37", TextBox25.Text)
          cmd.Parameters.AddWithValue("@38", ComboBox11.Text)
          cmd.Parameters.AddWithValue("@39", MaskedTextBox6.Text)
          cmd.Parameters.AddWithValue("@40", TextBox26.Text)
          cmd.Parameters.AddWithValue("@41", TextBox28.Text)
          cmd.Parameters.AddWithValue("@42", TextBox27.Text)
          cmd.Parameters.AddWithValue("@43", TextBox32.Text)
          cmd.Parameters.AddWithValue("@44", MaskedTextBox2.Text)
          cmd.Parameters.AddWithValue("@45", MaskedTextBox1.Text)
          cmd.Parameters.AddWithValue("@46", MaskedTextBox7.Text)
          cmd.Parameters.AddWithValue("@47", TextBox12.Text)
          cmd.Parameters.AddWithValue("@48", TextBox14.Text)
          cmd.Parameters.AddWithValue("@49", ComboBox6.Text)
          cmd.Parameters.AddWithValue("@50", MaskedTextBox8.Text)
          cmd.Parameters.AddWithValue("@51", TextBox15.Text)
          cmd.Parameters.AddWithValue("@52", ComboBox5.Text)
          cmd.Parameters.AddWithValue("@53", ComboBox12.Text)
          cmd.Parameters.AddWithValue("@54", MaskedTextBox9.Text)
          cmd.Parameters.AddWithValue("@55", RichTextBox1.Text)
          cmdInsert.CommandType = CommandType.Text
          cmdInsert.Connection = cnnOLEDB
          cmdInsert.ExecuteNonQuery()

whats the error in this?

Posted 3-Jun-13 18:35pm

Crixalis Paul

Add a Solution

Comments

Sergey Alexandrovich Kryukov 4-Jun-13 0:39am

What problem are you facing?
—SA

Crixalis Paul 4-Jun-13 1:32am

Maybe the reason of my problem is too much tiredness, Sir Sergey the code you see at the top is my latest code, but before that i declared a cmdinsert like this

dim cmdinsert as new oledbcommand

but on the top you will only see is cmd in addwithvalue
it also shows errors so i declared the cmd to address this issue

dim cmd as new oledbcommand

but the error is no value given in required parameters.

My solution is I delete what i declared "cmd" and change all the cmd's to cmdinsert's and it works well.

Menthor Sergey: Thank you for your Intention to Help

2 solutions

Solution 1

the error message say it clear that you have not passed one of the required parameters. Please check that you are getting values in textboxes, combobox etc.

Print the SQL and identify the missing value.

Posted 3-Jun-13 18:38pm

Om Prakash Pant

Comments

Crixalis Paul 4-Jun-13 0:41am

So you mean i need to filled up all the necessary fields? and dont leave any blank textboxes?

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)

Crixalis Paul · Accepted Answer · 2013-06-03T19:34:00

heres my code that is correct

Dim importantmessage As String
importantmessage = MsgBox("Filling Up Complete, Are you sure you want to save this?", vbYesNo)
If importantmessage = vbYes Then
cmdInsert.CommandText = "INSERT INTO [personinfo] (SurName,FirstName,MiddleName,Present_CurrentAddress,ProvincialAddress,Noofchildren,Height,weight,birthdate,age,birtrhplace,gender,civilstatus,educationalattain,schoolname,course,yearsofstudy,collegestatus,trainingschoolname,positiontrained,yearstrained,coursetrained,detachment,Region,effdate,workstatus,empnumber,positionemployed,yearsofemployed,sssnumber,tinnumber,nbi,nbidate,pnp,pnpdate,priorexp,gdexp,guardposition,uniformdate,millitary,LOS,previousemp,licno,licdate,licexp,dateofemp,badgeno,neurocenter,neuroresult,neurodate,drugcenter,marijuana,shabu,drugresult,histories) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?);"
cmdInsert.Parameters.AddWithValue("surname", txtsurname.Text)
cmdInsert.Parameters.AddWithValue("firstname", txtfirstname.Text)
cmdInsert.Parameters.AddWithValue("middlename", txtmiddlename.Text)
cmdInsert.Parameters.AddWithValue("present_currentaddress", txtaddress.Text)
cmdInsert.Parameters.AddWithValue("provincialaddress", txtprovince.Text)
cmdInsert.Parameters.AddWithValue("noofchildren", txtchildren.Text)
cmdInsert.Parameters.AddWithValue("height", txtheight.Text)
cmdInsert.Parameters.AddWithValue("weight", txtweight.Text)
cmdInsert.Parameters.AddWithValue("birthdate", datepicker1.Text)
cmdInsert.Parameters.AddWithValue("age", txtage.Text)
cmdInsert.Parameters.AddWithValue("birthplace", txtbplace.Text)
cmdInsert.Parameters.AddWithValue("gender", cmbgender.Text)
cmdInsert.Parameters.AddWithValue("civilstatus", cmbcivil.Text)
cmdInsert.Parameters.AddWithValue("educationalattain", ComboBox4.Text)
cmdInsert.Parameters.AddWithValue("schoolname", TextBox11.Text)
cmdInsert.Parameters.AddWithValue("course", TextBox10.Text)
cmdInsert.Parameters.AddWithValue("years of study", TextBox9.Text)
cmdInsert.Parameters.AddWithValue("collegestatus", TextBox8.Text)
cmdInsert.Parameters.AddWithValue("trainingschoolname", TextBox6.Text)
cmdInsert.Parameters.AddWithValue("positiontrained", ComboBox3.Text)
cmdInsert.Parameters.AddWithValue("yearstrained", TextBox7.Text)
cmdInsert.Parameters.AddWithValue("coursetrined", TextBox1.Text)
cmdInsert.Parameters.AddWithValue("coursetrained", ComboBox2.Text)
cmdInsert.Parameters.AddWithValue("detachment", ComboBox7.Text)
cmdInsert.Parameters.AddWithValue("region", MaskedTextBox3.Text)
cmdInsert.Parameters.AddWithValue("effdate", ComboBox1.Text)
cmdInsert.Parameters.AddWithValue("workstatus", TextBox29.Text)
cmdInsert.Parameters.AddWithValue("empnumber", TextBox30.Text)
cmdInsert.Parameters.AddWithValue("positionemployed", TextBox31.Text)
cmdInsert.Parameters.AddWithValue("yearsemployed", TextBox5.Text)
cmdInsert.Parameters.AddWithValue("sssnumber", TextBox4.Text)
cmdInsert.Parameters.AddWithValue("tinnumber", TextBox3.Text)
cmdInsert.Parameters.AddWithValue("nbi", MaskedTextBox4.Text)
cmdInsert.Parameters.AddWithValue("nbidate", TextBox2.Text)
cmdInsert.Parameters.AddWithValue("pnpdate", MaskedTextBox5.Text)
cmdInsert.Parameters.AddWithValue("priorexp", TextBox24.Text)
cmdInsert.Parameters.AddWithValue("gdexp", TextBox25.Text)
cmdInsert.Parameters.AddWithValue("guardposition", ComboBox11.Text)
cmdInsert.Parameters.AddWithValue("uniformdate", MaskedTextBox6.Text)
cmdInsert.Parameters.AddWithValue("millitary", TextBox26.Text)
cmdInsert.Parameters.AddWithValue("LOS", TextBox28.Text)
cmdInsert.Parameters.AddWithValue("previousemp", TextBox27.Text)
cmdInsert.Parameters.AddWithValue("licno", TextBox32.Text)
cmdInsert.Parameters.AddWithValue("licdate", MaskedTextBox2.Text)
cmdInsert.Parameters.AddWithValue("licexp", MaskedTextBox1.Text)
cmdInsert.Parameters.AddWithValue("dateofemp", MaskedTextBox7.Text)
cmdInsert.Parameters.AddWithValue("badgeno", TextBox12.Text)
cmdInsert.Parameters.AddWithValue("neurocenter", TextBox14.Text)
cmdInsert.Parameters.AddWithValue("neuroresult", ComboBox6.Text)
cmdInsert.Parameters.AddWithValue("neurodate", MaskedTextBox8.Text)
cmdInsert.Parameters.AddWithValue("drugcenter", TextBox15.Text)
cmdInsert.Parameters.AddWithValue("marijuana", ComboBox5.Text)
cmdInsert.Parameters.AddWithValue("shabu", ComboBox12.Text)
cmdInsert.Parameters.AddWithValue("drugresult", MaskedTextBox9.Text)
cmdInsert.Parameters.AddWithValue("histories", RichTextBox1.Text)
cmdInsert.CommandType = CommandType.Text
cmdInsert.Connection = cnnOLEDB
cmdInsert.ExecuteNonQuery()
End If
If importantmessage = vbNo Then
Me.Show()
End If