Access字符串数据拆分追加到表

2017-11-15 16:00:00
黄善超
原创
146

把一个长的字符串按固定的规则截取出多个子字符串。

如下面字符串"苹果;西瓜;香蕉;哈密瓜;菠萝;奇异果;樱桃",按“;”把逐个水果截取出来添加到表中。


详细函数:

Public Sub subStringInsert()
    Dim strf As String
    Dim arr() As String
    strf = "苹果;西瓜;香蕉;哈密瓜;菠萝;奇异果;樱桃"
    arr() = Split(strf, ";") ' split函数以;分解字符串
    For i = 0 To UBound(arr())  '循环找出数组
    CurrentDb.Execute "insert into tbl1(水果) values('" & arr(i) & "')" '追加到表
    Next
    
End Sub


效果图:

分享