Access字符串數據拆分追加到錶

2017-11-15 16:00:00
tmtony8
原創
2207

把一箇長的字符串按固定的規則截取齣多箇子字符串。

如下麵字符串"蘋果;西瓜;香蕉;哈密瓜;菠蘿;奇異果;櫻桃",按“;”把逐箇水果截取齣來添加到錶中。


詳細函數:

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


效果圖:

分享