数据库有1000列，列名为a1、a2、、、、、a1000，现在需要把数组a（1）、a（2）、、、、a（1000）的值添加到数据库中。求助！

1000列？？？
SQL语句长度怕是要超限了
StrSQL = "Insert into 数据库 values("
For i = 1 to 1000
    StrSQL = StrSQL & "'" & a(i) & "'," （如果字段数据类型既有非文本的，则另加判断)
Next i
StrSQL = Left(StrSQL,Len(StrSQL)-1) & ")"
执行上述语句

谢谢大神啊！

赋值问题已解决，十分感谢。顺便再问一下，1000列的表在视图窗口中不能打开，提示说“the results viewer cannot execute a query with more than 655 columns in the project list”,有解决的办法吗？用的是sql2005。

貌似没办法 数据库列数有限制的

谁设计的这种结构？

赋值的有用，先留个记号，下次接着来看。

看了此贴菜鸟又涨姿势了