office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

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

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

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


詳細函數:

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


效果圖:

分享