ADO获取数据的函数(二)

下表说明对BOF和EOF属性的不同组合所允许的Move方法。

允许使用Move方法但不能保证该方法可成功定位记录，只表明调用指定的Move方法不会产生错误。

下表显示当调用多个Move方法但未能成功定位记录时，BOF和EOF属性设置所发生的情况。

--获取数据的另一种方法

调用准备：

Dim strSql

Dim arr

strSql="selectcolumn1,column2,* From tablewhere ......"

arr=GetData(strSql)

‘MsgBox UBound(arr,2)

MsgBox arr(0,0)

‘***************************************************************

传入sql从数据库获取结果，数据以二维数组返回。

Function GetData(sql)

Dim rst,rsa

Set conn=CreateObject("adodb.connection")

conn.open="Provider=SQLOLEDB.1;Password=111111;Persist Security Info=True;User ID=sa;Initial Catalog=NorthWind;Data Source=...""

Set rst=conn.Execute(sql)

rsa=rst.getrows()

Set rst=Nothing

GetData=rsa

End Function