Question

vb 数组 数据库

一个数组共512个元素，如何将他们存到一个数据库表里。一个字段放一个元素太麻烦，而且好像acess表最多只能有252个字段。能放在一个字段里吗？如何实现。
msgbox join(arr,",")
是什么意思，格式是什么，麻烦高人再解释一下。

Answer 1

join(arr,",")
是将Arr数据,用","连接起来
举例:
A(1)="AAA"
A(2)="BBB"
A(3)="CCC"
Join(A,",") 得到的结果是: "AAA,BBB,CCC"
Join(A,"#$%") 得到的结果是: "AAA#$%BBB#$%CCC"
这样,你就可以以文本型数据,存放到数据库中了
这样做,只是你在以后读取了内容后,要做相应的处理,另外,这个分界符","一定要是在你512个数据中,没有出现过的符号,可以是一个字符串,但这个字符串一定要在512个元素中没有出现过,不然,读取会出问题

这时,你可以用Split函数
比如,你要读第5个元素,可以用
S=读取到的这个字段的内容
No5= Split(S,",")(4) '下标是从0开始,所以第5个元素在4上
如果你的元素不是字符型的话,用相应的转换函数进行转换一下

Answer 2

dim arr(511)
for i = 0 to 511
arr(i)=i
next i
msgbox join(arr,",")

join函数,把变体数组以逗号为分隔符连接

Answer 3

如果放在512条记录中：
FOR I=0 TO 511
RS.ADDNEW
RS("下标")=I
RS("内容")=A(I) 'A(I)是你的512个数组
RS.UPDATE
NEXT I

如果放在1条记录中：
RS.ADDNEW
FOR I=0 TO 511
RS("内容")=RS("内容") & A(I) & ","
NEXT I
RS.UPDATE

RS("内容")字段的数据类型根据要求设为备注或字符
RS("下标")字段的数据类型为整形