【Access示例】--按符号分割追加数据-宏鹏
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


【Access示例】--按符号分割追加数据

发表时间:2019/8/7 8:47:19 评论(0) 浏览(4554)  评论 | 加入收藏 | 复制
   
摘 要:【Access示例】--按符号分割追加数据
正 文:

学员问题描述:

把“TMP_样品库”追加到“TMP_样品检测明细”,“TMP_样品检测明细”参数编号用“TMP_样品库”里的检测参数;分割分别追加,检测数量固定1次。 


实现功能的代码如下


Private Sub Command0_Click()
    On Error Resume Next
    Dim A() As String
    Dim i As Integer
    Dim rst           As ADODB.Recordset
    Dim rstTmp        As ADODB.Recordset
    
    Set rst = New ADODB.Recordset
    Set rstTmp = New ADODB.Recordset
    
    rst.Open "TMP_样品库", CurrentProject.Connection, 2, 3
    rstTmp.Open "TMP_样品检测明细", CurrentProject.Connection, 2, 3
    
    Do Until rst.EOF
        A = Split(rst![检测参数], ";")
        For i = LBound(A) To UBound(A) - 1
            rstTmp.AddNew
            rstTmp![样品编号] = rst![样品编号]
            rstTmp![参数编号] = A(i)
            rstTmp![检测数量] = 1
        Next i
        rst.MoveNext
    Loop
    rstTmp.Update
    rst.Close
    rstTmp.Close
    Set rst = Nothing
    Set rstTmp = Nothing
    MsgBox "数据追加成功!"
    DoCmd.OpenTable "TMP_样品检测明细"
End Sub


点击下载示例:


点击下载此附件




Access软件网交流QQ群(群号:198465573)
 
 相关文章
[下载]分割窗体  【trynew  2008/9/12】
【转】分割条窗体-2009年新例子  【快棋手  2010/2/2】
Excel带有分割符号数据的提取示例  【收藏示例  2011/10/31】
标准模块_窗体分割条  【纵云梯  2012/2/12】
【access源码示例】按乘号提取数字\带有分割符号数据的提取示例...  【红尘如烟  2012/6/13】
常见问答
技术分类
相关资源
文章搜索
关于作者

宏鹏

文章分类

文章存档

友情链接