Access字符串数据拆分追加到表
- 2017-11-15 16:00:00
- 黄善超 原创
- 576
把一个长的字符串按固定的规则截取出多个子字符串。
如下面字符串"苹果;西瓜;香蕉;哈密瓜;菠萝;奇异果;樱桃",按“;”把逐个水果截取出来添加到表中。
详细函数:
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
效果图:
文章分类
联系我们
联系人: | 王先生 |
---|---|
电话: | 13928102596 |
Email: | 18449932@qq.com |
QQ: | 18449932 |
微信: | 13928102596 |
微博: | officecn01 |