如何实现 ？

[Tursun]

库里的表已经打开。rsA。
如何把所有字段B里 等于 2 的 C 、D 字段内容赋给数组S(i,j)

-------------------------------------------------------
A B C D E F
-------------------------------------------------------
1 1 a a x x
2 1 a a x x
3 2 d g x x
4 1 a a x x
5 2 e arw x x
6 1 a a x x
7 1 a a x x
8 2 a a x x
9 1 wea efa x x
10 1 a a x x
11 2 ffa ahr x x
12 1 a a x x
13 1 a a x x
.....

[yoki]

sql = "select C,D from 表名 where B=2"
rs.open sql,conn
i=0
while not rs.eof
a(i,0) = rs.field("C")
a(i,1) = rs.field("D")
i=i+1
rs.movenext
loop
rs.close

[Tursun]

sql = "select C,D from 表名 where B=2"
rs.open sql,conn
i=0
while not rs.eof
a(i,0) = rs.field("C") ' 这里好像错了，应该是 rs.Fields
a(i,1) = rs.field("D") ' 这里好像错了，应该是 rs.Fields
i=i+1
rs.movenext
loop
rs.close

不过还是要给你分的。

谢谢了

[victorycyz]

说说你的最终的目的。因为你用数组往往只是为了处理数据时过渡一下。其实我觉得处理记录集一般都不用数组的。

[Dublue]

办法很多，比如可以建个视图：
create view v1 as select C,D from 表名 where B=2
然后在vb里用记录集打开此视图，用循环赋值给数组

[zz124]

sql = "select * from 表名 where B=2"
rs.open sql,conn
i = 0
j = 0
while not rs.eof
a(i,j) = rs.field("B")
if (j<第二维下标-1） then
j=j+1
else
j= 0
i=i+1
end if
rs.movenext
loop
rs.close

[Tursun]

-------------------------------------------
办法很多，比如可以建个视图：
create view v1 as select C,D from 表名 where B=2
然后在vb里用记录集打开此视图，用循环赋值给数组
----------------------------------------------

我对视图不理解。不会用
create view v1 as select C,D from 表名 where B=2
这条语句是在SQL里写 还是 在VB的源程序写 ？

我也很想学学怎么用视图 ， 谢谢