列表框项目到ms访问第一项是重复的vb.net
提问于 2020-05-07 22:48:21
我正在尝试将这些项目从一个列表框(总共19)转移到MS Access数据库。
以下代码
For i = 0 To Me.lstResourceTypes.Items.Count - 1
command.Parameters.AddWithValue("@ResourceType", lstResourceTypes.Items(i).ToString)
MsgBox(lstResourceTypes.Items(i).ToString)
command.ExecuteNonQuery()
Next在Access表中创建19个记录，但每个记录都填充了列表框中的第一个项。
messagebox确实显示了代码循环通过列表框，那么为什么它不反映在access表中呢？
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-05-07 22:49:49
这是因为您继续在每个循环中向集合添加一个新参数。该方法不会用相同的ParameterName替换以前的参数。因此，查询只使用第一个查询。
您需要清除循环中的参数。
For i = 0 To Me.lstResourceTypes.Items.Count - 1
command.Parameters.AddWithValue("@ResourceType", lstResourceTypes.Items(i).ToString)
MsgBox(lstResourceTypes.Items(i).ToString)
command.ExecuteNonQuery()
command.Parameters.Clear()
Next但是，完成此任务的一种更正确的方法是在循环之外定义参数，并且只更改循环中的参数值。因此，假设参数引用的是字符串类型列，则可以编写
command.Parameters.Add("@ResourceType", OleDbType.VarWChar)
For i = 0 To Me.lstResourceTypes.Items.Count - 1
command.Parameters("@ResourceType").Value = lstResourceTypes.Items(i).ToString
command.ExecuteNonQuery()
Next注意，我使用的是Add，而不是AddWithValue。第二个问题有许多缺点，如这里所解释的：AddWithValue是邪恶的
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/61673579
复制相关文章
![利用selenium webdriver下载不同类型的文件（pdf,txt等等）[通俗易懂]](https://ask.qcloudimg.com/http-save/yehe-8223537/466a410735fe38a445de3d7660595943.png)
![什么使DevOps中的代码审查良好？[DevOps]](https://ask.qcloudimg.com/http-save/6790159/lcwsskhvy2.png)
![[Error] invalid use of incomplete type 使用了未定义的类型](https://developer.qcloudimg.com/http-save/yehe-10659154/cc2e77954d437a61c8a8ce7f8b44ca62.png)
腾讯云开发者
