office交流網--QQ交流群號

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

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

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

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

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

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


詳細函數:

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


效果圖:

分享
北京十一选五基本走势