【已解决】怎样执行变量字符中的语句？？

meteor0330

我设置了一个变量

$RS_Fields='$RS.Fields(0).value & "|" & $RS.Fields(1).value'

我现在想要在GUICtrlSetData中执行它怎么办？

$Item1= GUICtrlCreateListViewItem("|",$ListView1)
GUICtrlSetData($Item1,$RS_Fields)

我这样写完后，执行时，满ListView里都是$RS.Fields(0).value & "|" & $RS.Fields(1).value
并不是我从数据库里读到的数据，我应该怎么办呢？

不知我这样说清楚了没有！
拜托各位大神！！！

我想实现的功能如我3楼所说，
相关函数的源码如下：

Func DaKaiSQL()
        Local $conn, $RS
        Local $aArr[3]
        Local $ListViewBiaoTi
        $SQL_IP = GUICtrlRead($Input1) ;SQL服务器名
        $SQL_UID = GUICtrlRead($Input2);SQL服务器登录名
        $SQL_PW = GUICtrlRead($Input3) ;SQL服务器登录密码
        $SQL_Name = GUICtrlRead($Combo1) ;SQL数据库名
        $SQL_Table = GUICtrlRead($Combo2) ;SQL表名
        $conn = ObjCreate("ADODB.Connection")
        $conn.Open("driver={SQL Server};server=" & $SQL_IP & ";uid=" & $SQL_UID & ";pwd=" & $SQL_PW & ";database=" & $SQL_Name)
        $RS = ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $conn
        $RS.Open("select column_name,data_type,CHARACTER_MAXIMUM_LENGTH from INFORMATION_SCHEMA.COLUMNS where TABLE_NAME = '" & $SQL_Table & "'") ;关键SQL语句，获取表中所有字段的名称、类型和长度
        If @error = 0 Then ;判断数据库是否正常连接
                If ($RS.Fields(0).value) <> "" Then
                        Local $i = 0
                        While Not $RS.eof And Not $RS.bof
                                If @error = 1 Then ExitLoop
                                If $i > 0 Then ReDim $ArrZiduan[UBound($ArrZiduan) + 1][3] ;调整二维数组行数
                                For $j = 0 To 2
                                        $aArr[$j] = $RS.Fields($j).value ;读取单行值赋给一维数组
                                Next
                                $ArrZiduan[$i][0] = $aArr[0] ;将一维数组值赋给二维数组
                                $ArrZiduan[$i][1] = $aArr[1] ;将一维数组值赋给二维数组
                                $ArrZiduan[$i][2] = $aArr[2] ;将一维数组值赋给二维数组
                                $RS.movenext
                                $i = $i + 1
                        WEnd
                        ;_ArrayDisplay($ArrZiduan);显示数组数据
                        ;下面的循环用于设置ListView的标题
                        For $k = 0 To UBound($ArrZiduan) - 1
                                If $k = 0 Then
                                        $ListViewBiaoTi = $ArrZiduan[$k][0]
                                Else
                                        $ListViewBiaoTi = $ListViewBiaoTi & "|" & $ArrZiduan[$k][0]
                                EndIf
                        Next
                        GUICtrlSetState($ListView2, $GUI_HIDE) ;隐藏程序启动时创建的ListView2
                        $ListView1 = GUICtrlCreateListView($ListViewBiaoTi, 32, 168, 817, 481) ;创建ListView
                Else
                        GUICtrlSendMsg($ListView1, $LVM_DELETEALLITEMS, 0, 0) ;发送消息，清空listview1控件
                        _GUICtrlStatusBar_SetText($StatusBar1, "ERROR!!!!    数据库“" & $SQL_Name & "”上没有找到用户表，请检查。", 2)
                EndIf
        Else
                ;_GUICtrlStatusBar_SetText($StatusBar1, "ERROR!!!!数据库打开错误。", 2)
        EndIf
        $conn.Close
        $RS.close
EndFunc   ;==>DaKaiSQL

Func DuSQL20()
        Local $conn, $RS, $Cb1
        Local $FenGeFu = ""
        ;计算“|”的数量
        For $k = 0 To UBound($ArrZiduan) - 2
                $FenGeFu = $FenGeFu & "|"
        Next
        ;得到$RS.Fields(0).value语句
        Local $RS_Fields_value = ""
        For $m = 0 To UBound($ArrZiduan) - 1
                If $m = 0 Then
                        $RS_Fields_value = "$RS.Fields(" & $m & ").value"
                Else
                        $RS_Fields_value = $RS_Fields_value & ' & "|" & $RS.Fields(' & $m & ').value'
                EndIf
        Next

        GUICtrlSendMsg($ListView1, $LVM_DELETEALLITEMS, 0, 0) ;发送消息，清空listview1控件
        $SQL_IP = GUICtrlRead($Input1) ;SQL服务器名
        $SQL_UID = GUICtrlRead($Input2);SQL服务器登录名
        $SQL_PW = GUICtrlRead($Input3) ;SQL服务器登录密码
        $SQL_Name = GUICtrlRead($Combo1) ;SQL数据库名
        $SQL_Table = GUICtrlRead($Combo2) ;SQL表名
        $conn = ObjCreate("ADODB.Connection")
        $conn.Open("driver={SQL Server};server=" & $SQL_IP & ";uid=" & $SQL_UID & ";pwd=" & $SQL_PW & ";database=" & $SQL_Name)
        $RS = ObjCreate("ADODB.Recordset")
        $RS.ActiveConnection = $conn
        $RS.Open("select TOP 20 * from " & $SQL_Table);读取前20个值
        If @error = 0 Then ;判断数据库是否正常连接
                While Not $RS.eof And Not $RS.bof
                        If @error = 1 Then ExitLoop
                        $Item1 = GUICtrlCreateListViewItem($FenGeFu, $ListView1)
                        GUICtrlSetData($Item1, $RS_Fields_value)
                        $RS.movenext
                WEnd
        Else
                _GUICtrlStatusBar_SetText($StatusBar1, "ERROR!!!!    数据库打开错误。", 2)
        EndIf
        $conn.Close
        $RS.close
EndFunc   ;==>DuSQL20

现在就是GUICtrlSetData($Item1, $RS_Fields_value)这句有问题！
我应该怎么办呢？

user3000

回复 1# meteor0330

搜索下关键字"数据库",好好看看别人是怎样操作数据库的.

你那变量只是普通的变量赋值,跟数据库查询还差了十万八千里呢!

meteor0330

二楼没有理解我的意思，我现在正在写一个通用的数据库查询程序。
        已经写到了用户输入sql数据库的服务器地址和登录名、密码后，程序自动读出服务器上的所有数据库，当用户选择了需要操作的数据库后，程序自动读出该库下的所有用户表，用户选择好表后，程序自动读出该表下的所有字段名及类型和长度，并根据字段名创建一个listview。
前面这些都能正常运行了，现在我要读出这个表中的数据并填入这个listview中时遇到了问题。因为每个库中的各个表的字段都会有多有少，所以那个$RS.Fields(0).value & "|" & $RS.Fields(1).value的语句也会有长有短。我就想着把它们放到一个字符变量中，然后再把这个变量中的字符当成语句来执行。
        现在这一步实现不了了。所以想请各位帮帮忙！

netegg

$RS_Fields=$RS.Fields(0).value & "|" & $RS.Fields(1).value
$Item1= GUICtrlCreateListViewItem($RS_Fields,$ListView1)

h20040606

去掉引号啊。为什么家引号呢？

chzj589

一句就可以了

$Item1= GUICtrlCreateListViewItem($RS.Fields(0).value & "|" &$RS.Fields(1).value,$ListView1)

meteor0330

回复 4# netegg

谢谢4楼的元老，不过我的问题还是没有解决，可能是我想弯了。
我把相关函数源码贴上了，我想实现的功能就如我3楼所说，请帮帮忙，不胜感激！！！

netegg

先countcolume，或者直接读出来，转成一个二维数组$array[0][$n(根据你当时读出的数据)]，_guilistview_addarray就行了

meteor0330

回复 8# netegg


谢谢！！！

那有没有一个方法能像我做的这样，把一部分语句先放到一个变量中，然后需要执行的时候再从此变量中调出来用？

我记得以前用ASP写网站的时候是可以这样的，不知道AU3能不能做到呢？

netegg

可以是可以

netegg

帮助里有关于autoit单步执行语句的方法

meteor0330

回复 10# netegg


    呃——！！

怎么做呢？

netegg

格式4: AutoIt3.exe [/ErrorStdOut] /AutoIt3ExecuteLine "脚本代码"
                执行一行代码.

meteor0330

回复 13# netegg

不好意思，刚才没看到你11楼的帖子！

刚看了看帮助文档的介绍，看来是我想得太天真了！！

还是按你8楼的方法先试一下了！

afan

格式4: AutoIt3.exe [/ErrorStdOut] /AutoIt3ExecuteLine "脚本代码"
                执行一行代码.
netegg 发表于 2014-11-28 13:31

    Execute(字符串)