尝试将由定界符分隔的多个输入数据保存到数据库中的单个记录中
Trying to save multiple input data separated by a delimiter into singular records in database
我目前正在尝试为我的公司创建库存数据库。问题是一次输入一项数据效率低下。因此,我们买了一台扫描仪。扫描仪可以在其内存中保存多个项目,并且当传输到一个位置(文本框,Excel 单元格)时,所有数据都输入到一个由制表符分隔符分隔的单元格中。
有没有一种方法(split()
可能有功能),我基本上可以 "paste" 将扫描仪的所有内存放入表单上的单个文本框(这样文本框就有 "data1 data2 data3 data4" 然后保存它,以便我的 table 现在包含单独记录中的数据?
记录 1 - 数据 1
记录 2 - 数据 2
记录 3 - 数据 3
我刚刚开始学习 Access,所以语法理解通常是我比较吃力的地方。
将所有数据读入文本框后,您需要一个按钮来单击,OnClick 事件代码如下所示:
Dim astrInput() As String
Dim i As Integer
astrInput = Split(txtData, " ")
For i = 0 To UBound(astrInput)
CurrentDb.Execute "INSERT INTO myTable(DataColumn) VALUES ('" & astrInput(i) & "')"
Next i
我目前正在尝试为我的公司创建库存数据库。问题是一次输入一项数据效率低下。因此,我们买了一台扫描仪。扫描仪可以在其内存中保存多个项目,并且当传输到一个位置(文本框,Excel 单元格)时,所有数据都输入到一个由制表符分隔符分隔的单元格中。
有没有一种方法(split()
可能有功能),我基本上可以 "paste" 将扫描仪的所有内存放入表单上的单个文本框(这样文本框就有 "data1 data2 data3 data4" 然后保存它,以便我的 table 现在包含单独记录中的数据?
记录 1 - 数据 1
记录 2 - 数据 2
记录 3 - 数据 3
我刚刚开始学习 Access,所以语法理解通常是我比较吃力的地方。
将所有数据读入文本框后,您需要一个按钮来单击,OnClick 事件代码如下所示:
Dim astrInput() As String
Dim i As Integer
astrInput = Split(txtData, " ")
For i = 0 To UBound(astrInput)
CurrentDb.Execute "INSERT INTO myTable(DataColumn) VALUES ('" & astrInput(i) & "')"
Next i