本文介绍了VB.NET：Ms Access Update Query @Parameter没有默认值的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
这在我的编码中似乎是一个非常普遍的问题，每次都是一个不同的问题。我试图制作的代码采用各种控件的值并将它们保存到数据库中，以便在它再次打开时重新加载到表单上。我认为创建一个更新命令，给参数赋值，执行查询，给参数赋值，再次执行执行是一件简单的事情。但是，该命令无法识别我提供了一个值。
This seems to be a very common problem in my coding, and it's a different problem every time. The code I am trying to make takes the values of various controls and saves them into a database, to be reloaded onto the form when it's opened again. I thought it would be a simple matter of creating an Update command, give the parameters a value, executenonquery, give the parameters new values, and executenonquery again. However, the command is not recognizing that I have supplied a value.
Dim DbConnection As New OleDbConnection(SaveString)
Dim SaveValuesCmd As New OleDbCommand("UPDATE Field_Values SET Selected_Item = ? WHERE Field_Value = ?", DbConnection)
DbConnection.Open()
Dim FieldValueParam As New OleDbParameter("?", OleDbType.Integer)
SaveValuesCmd.Parameters.Add(FieldValueParam)
Dim FieldNameParam As New OleDbParameter("?", OleDbType.VarChar)
SaveValuesCmd.Parameters.Add(FieldNameParam)
FieldNameParam.Value = "PlayHP"
FieldValueParam.Value = PlayHP.Value
'the error pops up in this first ExecuteNonQuery
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlaySP"
FieldValueParam.Value = PlaySP.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlaySTR"
FieldValueParam.Value = PlaySTR.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayLUC"
FieldValueParam.Value = PlayLUC.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayAGI"
FieldValueParam.Value = PlayAGI.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayINT"
FieldValueParam.Value = PlayINT.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlaySpirit"
FieldValueParam.Value = PlaySpirit.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayLife"
FieldValueParam.Value = PlayLife.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayMDEF"
FieldValueParam.Value = PlayMDEF.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayPDEF"
FieldValueParam.Value = PlayPDEF.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayRDEF"
FieldValueParam.Value = PlayRDEF.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayMATK"
FieldValueParam.Value = PlayMATK.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayPATK"
FieldValueParam.Value = PlayPATK.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayRATK"
FieldValueParam.Value = PlayRATK.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "WpnMinDmg"
FieldValueParam.Value = RWpnMinDmg.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "WpnMaxDmg"
FieldValueParam.Value = RWpnMaxDmg.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlaySkillDmg"
FieldValueParam.Value = PlaySkillDmg.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayMAcc"
FieldValueParam.Value = PlayMAcc.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayPAcc"
FieldValueParam.Value = PlayPAcc.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayRAcc"
FieldValueParam.Value = PlayRAcc.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayCritChance"
FieldValueParam.Value = PlayCritChance.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayCritMult"
FieldValueParam.Value = PlayCritMult.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "BlockValue"
FieldValueParam.Value = BlockValue.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayDodge"
FieldValueParam.Value = PlayDodge.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetSTR"
FieldValueParam.Value = PetSTR.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetLUC"
FieldValueParam.Value = PetLUC.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetAGI"
FieldValueParam.Value = PetAGI.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetINT"
FieldValueParam.Value = PetINT.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetSpirit"
FieldValueParam.Value = PetSpirit.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetHP"
FieldValueParam.Value = PetHP.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetSP"
FieldValueParam.Value = PetSP.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetMDEF"
FieldValueParam.Value = PetMDEF.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetPDEF"
FieldValueParam.Value = PetPDEF.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetRDEF"
FieldValueParam.Value = PetRDEF.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetMATK"
FieldValueParam.Value = PetMATK.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetPATK"
FieldValueParam.Value = PetPATK.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetRATK"
FieldValueParam.Value = PetRATK.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetMAcc"
FieldValueParam.Value = PetMAcc.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetPAcc"
FieldValueParam.Value = PetPAcc.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetRAcc"
FieldValueParam.Value = PetRAcc.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetCritChance"
FieldValueParam.Value = PetCritChance.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetCritMult"
FieldValueParam.Value = PetCritMult.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetDodge"
FieldValueParam.Value = PetDodge.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetSkillDmg"
FieldValueParam.Value = PetSkillDmg.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "MobHP"
FieldValueParam.Value = MobHP.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "MobSP"
FieldValueParam.Value = MobSP.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "MobMDEF"
FieldValueParam.Value = MobMDEF.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "MobPDEF"
FieldValueParam.Value = MobPDEF.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "MobRDEF"
FieldValueParam.Value = MobRDEF.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "MobMATK"
FieldValueParam.Value = MobMATK.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "MobPATK"
FieldValueParam.Value = MobPATK.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "MobRATK"
FieldValueParam.Value = MobRATK.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "MobMAcc"
FieldValueParam.Value = MobMAcc.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "MobPAcc"
FieldValueParam.Value = MobPAcc.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "MobRAcc"
FieldValueParam.Value = MobRAcc.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "MobCritChance"
FieldValueParam.Value = MobCritChance.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "MobCritMult"
FieldValueParam.Value = MobCritMult.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "MobDodge"
FieldValueParam.Value = MobDodge.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlayskillLvl"
FieldValueParam.Value = PlaySkillLvl.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetSkillLvl"
FieldValueParam.Value = PetSkillLvl.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PetLevelNum"
FieldValueParam.Value = PetLevelNum.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "GoldValue"
FieldValueParam.Value = GoldValue.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "SilverValue"
FieldValueParam.Value = SilverValue.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "CopperValue"
FieldValueParam.Value = CopperValue.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "SkillLvl1"
FieldValueParam.Value = SkillLvl1.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "SkillLvl2"
FieldValueParam.Value = SkillLvl2.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "SkillLvl3"
FieldValueParam.Value = SkillLvl3.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "SkillLvl4"
FieldValueParam.Value = SkillLvl4.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "SkillLvl5"
FieldValueParam.Value = SkillLvl5.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "SkillLvl6"
FieldValueParam.Value = SkillLvl6.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "SkillLvl7"
FieldValueParam.Value = SkillLvl7.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "SkillLvl8"
FieldValueParam.Value = SkillLvl8.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "SkillLvl9"
FieldValueParam.Value = SkillLvl9.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "SkillLvl10"
FieldValueParam.Value = SkillLvl10.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "StrExp"
FieldValueParam.Value = StrExp.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "AgiExp"
FieldValueParam.Value = AgiExp.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "LucExp"
FieldValueParam.Value = LucExp.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "IntExp"
FieldValueParam.Value = IntExp.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "SpiritExp"
FieldValueParam.Value = SpiritExp.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "LifeExp"
FieldValueParam.Value = LifeExp.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "SkillsExp"
FieldValueParam.Value = SkillsExp.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "ClothExp"
FieldValueParam.Value = ClothExp.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "LeatherExp"
FieldValueParam.Value = LeatherExp.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "ChainExp"
FieldValueParam.Value = ChainExp.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "PlateExp"
FieldValueParam.Value = PlateExp.Value
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "BaseStrLbl"
FieldValueParam.Value = BaseStatForm.BaseStrLbl.Text
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "BaseAgiLbl"
FieldValueParam.Value = BaseStatForm.BaseAgiLbl.Text
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "BaseLucLbl"
FieldValueParam.Value = BaseStatForm.BaseLucLbl.Text
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "BaseIntLbl"
FieldValueParam.Value = BaseStatForm.BaseIntLbl.Text
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "BaseSpiritLbl"
FieldValueParam.Value = BaseStatForm.BaseSpiritLbl.Text
SaveValuesCmd.ExecuteNonQuery()
FieldNameParam.Value = "BaseLifeLbl"
FieldValueParam.Value = BaseStatForm.BaseLifeLbl.Text
SaveValuesCmd.ExecuteNonQuery()
DbConnection.Close()
我想这个问题可能与我格式化代码的方式有关，因为这似乎是我收到错误的首要原因，但我没有在我的bing搜索中找到任何东西这会告诉我是否是这种情况（这很难说，因为大多数收到此错误的人似乎都有大量的参数，并且他们都有自己的格式，但语法与我自己的格式相似）。
I imagine the problem may have something to do with the way I formatted the code, as that seems to be the number one reason why I receive errors, but I haven't found anything in my bing search that would tell me if that was the case (it's hard to tell because most people who receive this error seem to have large numbers of parameters and they all have their own format though with similar syntax to my own).
推荐答案
这篇关于VB.NET：Ms Access Update Query @Parameter没有默认值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！