AutoIT: 对数据库的访问，数据提取操作

#include<array.au3>
$conn= ObjCreate("ADODB.Connection")
$RS= ObjCreate("ADODB.Recordset")
$conn.Open("driver={SQLServer};server=a\demo;uid=sa;pwd=bcd;database=Test")
$RS.ActiveConnection= $conn
$RS.open("SELECT* FROM GIS_CROP")

;以下代码可以获取数据库表的标题名
;$count = $RS.Fields.Count
;dim $array1[$count]
;For $i = 0 To ($count - 1)
; $array1[$i] = $RS.Fields($i).Name ;取得一行记录
;Next
dim$i = 0 
ConsoleWrite($RS.fields.count)
dim$array[10][4]
While(Not$RS.eof And Not $RS.bof)
　　$array[$i][0]= $RS.Fields(0).value
　　$array[$i][1]=  $RS.Fields(1).value
　　$array[$i][2]=  $RS.Fields(3).value
　　$i+= 1
　　$RS.movenext
WEnd
$RS.close
_ArrayDisplay($array)