|
楼主 |
发表于 2014-8-18 16:04:51
|
显示全部楼层
#include <Array.au3>
#include <Excel.au3>
#include <SQLite.au3>;autoit自带(经测试没有这个也可以运行)
#AutoIt3Wrapper_UseX64=n;如果系统是64位的需要添加这段代码(经测试64没有这个代码也可以执行)
Local $role
$Connection ="DRIVER={MICROSOFT ODBC FOR ORACLE};Server=orcl;User Id=lcl;Password=lcl";Server里面填写链接的那个数据库,User Id为用户名 Password为密码
$adoCon=ObjCreate("ADODB.Connection");建立ADO对象
$adoCon.open($Connection);开启链接
$adoRs=ObjCreate("ADODB.Recordset");建立数据集对象,进行数据查询
$adoRs.ActiveConnection=$adoCon ;绑定连接
$adoRs.open("select * from STUDENT")
While Not $adoRs.eof And Not $adoRs.bof ;代表这你查询出了多少条数据(这个是固定的不可更改 )(查询出多少条while就循环多少次)
If @error=1 Then ExitLoop;如果出现问题
For $i=0 To $adoRs.fields.count-1 ; 代表这你查询结果的列数
;For $i=0 To 1
$role=$role&$adoRs.fields($i).value&"|" ;$i代表着那一列的数据
Next
$adoRs.movenext
WEnd ;上述的2个循环就可以控制数据的输出 while控制的条数不能更改 但是for控制的列可以修改 (即可以控郑每行显示的列数,但不能控制整体显示的条数)
$adoRs.close;关闭数据集对象
$adoCon.close;关闭链接
$role=StringLeft($role,StringLen($role)-1)
MsgBox(0,"",$role) |
|