在一个或必需参数中没有给出值 [英] No value given in one or required parameter
本文介绍了在一个或必需参数中没有给出值的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
Dim importantmessage 作为 字符串
importantmessage = MsgBox（ 填写完整，你确定要保存这个？，vbYesNo）
如果 importantmessage = vbYes 那么
cmdInsert.CommandText = INSERT INTO personinfo（SurName，FirstName，MiddleName，Present_CurrentAddress，ProvincialAddress，Noofchildren，Height，weight ，出生日期，年龄，birtrhplace，性别，civilstatus，educationalattain，schoolname，当然，yearsofstudy，collegestatus，trainingschoolname，positiontrained，yearstrained，coursetrained，支队，区，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，neurotate，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（ < span class =code-string> @ 18，TextBox8.Text）
cmd.Parameters.AddWithValue（ @ 19，TextBox6.Text）
cmd.Parameters.AddWithValue（ @ 20，ComboBox3。文本）
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（ < span class =code-string> @ 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 。文本）
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（）
这是什么错误？
解决方案
错误信息说清楚你没有过路d所需参数之一。请检查您是否在文本框，组合框等中获取值。
打印SQL并识别缺失值。
继承人我的代码是正确的
Dim importantmessage As String
importantmessage = MsgBox（填写完成，你确定要保存吗？，vbYesNo）
如果importantmessage = vbYes那么
cmdInsert.CommandText =INSERT INTO [ personinfo]（SurName，FirstName，MiddleName，Present_CurrentAddress，ProvincialAddress，Noofchildren，Height，weight，birthdate，age，birtrhplace，gender，civilstatus，educationalattain，schoolname，course，studyofstudy，collegestatus，trainingschoolname，positiontrained，annualtrained，coursetrained，detachment，Region ，effdate，workstatus，empnumber，positionemployed，yearsofemployed，sssnumber，tinnumber，NBI，nbidate，PNP，pnpdate，priorexp，gdexp，guardposition，uniformdate，millitary，LOS，previousemp，licno，licdate，licex p，dateofemp，badgeno，neurocenter，neuroresult，neurodate，drugcenter，mabejuana，shabu，drugresult，histories）VALUES（？，？，？，？，？，？，？，？，？，？，？，？，？， ？，？，？，？，？，？，？，？，？，？，？，？，？，？，？，？，？，？，？，？，？，？，？，？，？， ？，？，？，？，？，？，？，？，？，？，？，？，？，？，？，？，？）;
cmdInsert.Parameters.AddWithValue（ surname，txtsurname.Text）
cmdInsert.Parameters.AddWithValue（firstname，txtfirstname.Text）
cmdInsert.Parameters.AddWithValue（middlename，txtmiddlename。文字）
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（学习年限，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.Parameter s.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。文字）
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.Ad dWithValue（histories，RichTextBox1.Text）
cmdInsert.CommandType = CommandType.Text
cmdInsert.Connection = cnnOLEDB
cmdInsert.ExecuteNonQuery（ ）
结束如果
如果importantmessage = vbNo那么
Me.Show（）
结束如果
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?
解决方案
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.
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
这篇关于在一个或必需参数中没有给出值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
