|
定义了variant类型的二维数组,然后用sqlretrieve填上数据,而且sqlretrieve也返回了正确的行数
但用vartype识别时,总是识别为empty类型,这是为什么
例如
dim resultarray (1 to 2, 1 to 3) as variant '两列,三行
....
retcode=sqlretrieve(connection:=connection,destination:=resultarray,columnnames:=0,rownumbers:=0,maxrows:=3,maxColumns:=2,fetchFirst:=0)
retvar=vartype(resultarray(1,1))
select case retvar
case 0
retstr="(empty)"
case 1
retstr="(null)"
case 2
retstr="(integer)"
case 3
retstr="(long)"
case 4
retstr="(single)"
case 5
retstr="(double)"
case 6
retstr="(currency)"
case 7
retstr="(date)"
case 8
retstr="(string)"
end select
sqaconsolewrite retstr
retstr都是(empty),这是什么原因呢 |
|