将所选记录插入 VB.Net 中的另一个表并访问答案

【问题标题】：Insert selected records to another table in VB.Net and access将所选记录插入 VB.Net 中的另一个表并访问
【发布时间】：2014-04-29 16:18:14
【问题描述】：

我的名字是萨法拉兹。我正在 VB.Net 和 MSAccess 2007 中开发一个项目。我有一个列表框控件，它是从 Access 中名为 items 的表中填充的。我正在使用两个列表框的组合来选择不同的值。当我点击保存按钮时，我想获得单个项目的费率。这些值存储在客户表中。我正在存储 Sugar=5 Biscuits=10 等数据。

我正在使用 VB6 文本框和 Recordset，需要知道如何在 VB.Net 中实现相同的功能

【问题讨论】：

我真的很喜欢 Access (Jet/ACE)，但它不是存放病历的地方。

标签： vb.net ms-access vb6

【解决方案1】：

我已经找到了答案，但执行任务需要很长时间，而且我的系统处于忙碌模式将近 10 秒。这段代码有什么问题吗请看一下谢谢你。这是我的代码

Con.Open()
For l_index = 0 To ListBox2.Items.Count - 1

query = ("select Investigation.rate " & _
"from Investigation WHERE (((Investigation.Investigation) = '" & ListBox2.Items(l_index) & "'));")

Dim cmd2 As New OleDbCommand(query, Con)
'Con.Open()

Dim reader As OleDbDataReader = cmd2.ExecuteReader

reader.Read()
'Console.WriteLine(reader(0))
txtrate.Text = reader.GetString(0)


reader.Close()
'Con.Close()

' Con.Close()

'End If

Dim SqlString As String = "Insert Into patients (Receipt_No, OPD_MRD,Patientname,Investigation,Receipt_date,Receipt_time,rate) Values (?,?,?,?,?,?,?)"
Dim cmd As OleDbCommand = New OleDbCommand(SqlString, Con)
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("Receipt_No", txtreceiptno.Text.Trim())
cmd.Parameters.AddWithValue("OPD_MRD", txtopd.Text.Trim())
cmd.Parameters.AddWithValue("Patientname", txtname.Text.Trim())
cmd.Parameters.AddWithValue("Investigation", CStr(ListBox2.Items(l_index)).ToString())
cmd.Parameters.AddWithValue("Receipt_date", lbldate.Text)
cmd.Parameters.AddWithValue("Receipt_time", lbltime.Text)
cmd.Parameters.AddWithValue("rate", txtrate.Text.Trim())
'Con.Open()
cmd.ExecuteNonQuery()

Next
Con.Close()

【讨论】：