VB如何把一个文本文件写入ACCESS?求助！！

来源：百度知道 编辑：UC知道 时间：2024/05/09 14:23:38
我已经建立了一个VB工程1，一个ACCESS的数据库里面建立了一个含有7个字段的表（只有字段名无内容），现在我想把一个文本文件通过VB直接写入ACCESS，这个文本文件的格式如下：
000001,62264524342287,女,王丽亚 ,wang li ya，011,MD5A
...
有一万条。用逗号分隔，如何将文本文件写入ACCESS的表中，并且文本文件的1234567字段分别写入ACCESS表中的1234567字段，另外一个要求是最后一个字段MD5A要分别写在两个字段，MD一个，5A一个。
如何做到？？

首先要读取文本到内存（这个会吧）

每一行都用split函数分解成各个字段，如
dim sLine as string
dim sItem() as string
dim a as string, b as string

sLine = "000001,62264524342287,女,王丽亚 ,wang li ya，011,MD5A"'读文本
sItem = split(sline,",")'意思就是用","做分隔符,把split拆分成字符串数组,此时
'sItem(0) = "000001"
'sItem(1) = "62264524342287"
'......
'sItem(6) = "MD5A"

a = left(sItem(6), 2) '此时a = "MD"
b = mid(sItem(6), 3) '此时b = "5A"

'然后用insert语句时,将sItem(0)到sItem(5), a, b逐个代入各个字段就可以了(连接Access会吧)