安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

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

2017-11-15 16:00:00
tmtony8
原创
1558

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

如下面字符串"苹果;西瓜;香蕉;哈密瓜;菠萝;奇异果;樱桃",?#30784;埃弧?#25226;逐个水果截取出来添加到表中。


详细函数:

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


效果图:

分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存?#21152;茫?b>7.75MB
PHP 执行时间:0.16
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假