Question

VB怎么将ADODB.Recordset取的表付到本地变量里

Dim rs As New ADODB.Recordset
rs.Open "select * from a ", cnxn, 1, 1
有张表a,是公共表,程序随时要查询a信息
但数据库是放在远程的SQL2000,如果网络一断,那么再进行rs查询操作会报错
我现在想,在程序登陆的时候,就把a读进本地VB的变量中
用什么变量临时保存a比较合适,比如"临时表变量"(除了用本地数据库的方法,如ACCESS)
最好有代码例子.

Answer 1

dim a()
dim i as long
dim j as long
使用MSHFLEXGRID控件将数据读到控件中后
i=mshflexgrid1.rows-1
j=mshflexgrid1.cols-1
redim a(i,j)
dim x as long
dim y as long
for x=0 to i
for y=0 to j
a(i,j)=mshflexgrid1.textmetrix(i,j)
next
next
可将数据读到数组中，但如果表中有日期格式数据，此方法不可用

Answer 2

a=rs.filed(0)