lin6163 发表于 2013-11-20 17:25:00

sql server 操作查询

本帖最后由 lin6163 于 2013-11-21 08:37 编辑

#NoTrayIcon
$SqlServer = "192.168.0.5"               ;地址
$SqlUID = "sa"         ;用户
$SqlPWD = "123"       ;密码
$SqlDataBase = "bxldy"   ;数据库

$Conn = ObjCreate("ADODB.Connection");首先要建立ADODB.Connection类
$Conn.open("DRIVER={SQL Server};SERVER=" & $SqlServer & ";UID=" & $SqlUID & ";PWD=" & $SqlPWD & ";");使用open方法连接数据库
If @error Then Exit;如果程序没有退出,说明成功连接上了数据库
$Conn.Execute("wx2004mem")
$Conn.open("SELECT scom FROM dbo.tstat")
MsgBox(0, "已经找到信息了!", "找到的信息内容为:"&$Conn.Fields (1).value)                           
$Conn.Close;操作结束后,关闭数据库连接这样为什么会出错
请求动作失败(请求于对象)

mpf5566 发表于 2013-11-20 18:55:17

#include<mysql.au3>
#include<excel.au3>
$dic=ObjCreate("scripting.dictionary")
$oexcel=ObjCreate("excel.application")
$oexcel.visible=True
$sUsername="XX"
$sPassword="xxxxxx"
$sDatabase="ixxxxxx"
$sServer="192.168.xxxxx"
$sDriver="{MySQL ODBC 3.51 Driver}"
$oconnectionobj= _MySQLConnect($sUsername, $sPassword, $sDatabase, $sServer, $sDriver)
MsgBox(0,"",$oconnectionobj)
$1=_CountTables($oConnectionObj)   ;测试下数据库是否正常连接
MsgBox(0,"",$1);测试结果读出数据库包含正确的tables数说明已正常连接

mpf5566 发表于 2013-11-20 18:55:29

希望有帮助

mpf5566 发表于 2013-11-20 18:56:00

只看MQL部分 请忽略 excel调用的内容

joyran 发表于 2013-11-20 20:11:55

学习了...{:face (301):}

lin6163 发表于 2013-11-21 08:33:57

不行
返回0

anypac 发表于 2013-11-21 23:42:39

$Conn.open("DRIVER={SQL Server};SERVER=" & $SqlServer & ";UID=" & $SqlUID & ";PWD=" & $SqlPWD & ";");使用open方法连接数据库

这句好像少了数据库吧~~就地址帐号和密码~~~~

tubaba 发表于 2013-11-23 13:49:32

回复 1# lin6163


   请使用ObjCreate("ADODB.Recordset")Func _ReadTableDb($Conn, $sql);读取数据
                Local $RS, $iStep = 10000
                $RS = ObjCreate("ADODB.Recordset");创建记录集对象
                $RS.ActiveConnection = $Conn;设置记录集的激活链接属性来自$Conn
                If @error Then Return False
                $RS.Open($sql);执行Sql语句
                If @error Then
                        Return False
                EndIf
                Dim $Select_Db = [];定义一个数组来接收查询到的数据
                Dim $Count = 1;定义一个变量用来记录查询到的数据行数
                While Not $RS.eof And Not $RS.bof;当记录指针处于第一条记录和最后一条记录之间时,执行while循环
                        If @error = 1 Then ExitLoop
                        If $Select_Db = 0 Then;当数组二维$Select_Db为0时,重定义数组的第二维大小等于记录集查询到的字段数
                                ReDim $Select_Db[$RS.Fields.Count + 1];$RS.Fields.Count为记录集查询到的字段数
                                For $i = 0 To $RS.Fields.Count - 1
                                        $Select_Db[$i + 1] = $RS.Fields($i).Name;$RS.Fields($i).Name为字段名,把字段名存入数组
                                Next
                        EndIf
                        If UBound($Select_Db, 1) <= $Select_Db + 1 Then ReDim $Select_Db[$RS.Fields.Count + 1] ;每次都redim会很慢
;~                 ReDim $Select_Db[$Count + 1][$RS.Fields.Count + 1];数组第一维大小加1,用于存放数据
                        $Select_Db = $Count;$Select_Db存放查询到的数据行数
                        For $i = 0 To $RS.Fields.Count - 1
                                $Select_Db[$Count][$i + 1] = $RS.Fields($i).Value;$RS.Fields($i).Value字段数据
                        Next
                        $Count += 1;行数加1
                        $RS.movenext;将记录指针从当前的位置向下移一行
                WEnd
                $RS.Close;关闭记录集对象
                ReDim $Select_Db[$Select_Db + 1]
                Return $Select_Db
        EndIf
EndFunc   ;==>_ReadTableDb

yanghust 发表于 2013-11-24 18:47:24

可以一步一步的调试。

skusunny 发表于 2013-11-27 11:56:16

学习了...

yanghust 发表于 2013-12-8 11:38:46

一步一步的调试,找出是哪个函数没有用对

yanghust 发表于 2013-12-8 11:44:35

一步一步的调试,找出是哪个函数没有用对

ak47gglllk 发表于 2013-12-26 16:14:44

学习了。非常感谢

wuweixian 发表于 2014-1-9 17:32:30

{:face (332):}

rogerabc 发表于 2014-1-10 14:31:16

看看 有关SQL的操作
页: [1]
查看完整版本: sql server 操作查询