论坛 › 『 提问交流 』 › 数据库指针读取报错

jhkdqaa 发表于 2011-3-25 10:18:16

数据库指针读取报错

$RS = ObjCreate("ADODB.Recordset");创建记录集对象
$RS.ActiveConnection = $Conn;设置记录集的激活链接属性来自$Conn
$RS.Open("select * from tb_provideprice where gid like '2%"&$gid&"'");执行Sql语句
While Not $RS.eof And Not $RS.bof;当记录指针处于第一条记录和最后一条记录之间时，执行while循环
        If @error = 1 Then ExitLoop
        For $i = 0 To $RS.Fields.Count - 1
                GUICtrlCreateListViewItem('"'& $gid & '|' & $RS.Fields($i).provideid & '|' & $RS.Fields($i).taxprice, $listview&'"') ;$RS.Fields($i).Name为字段名
        Next
        $RS.movenext;将记录指针从当前的位置向下移一行
WEnd
$RS.Close;关闭记录集对象
结果就报错啦
GUICtrlCreateListViewItem('"'& $gid & '|' & $RS.Fields($i).provideid & '|' & $RS.Fields($i).taxprice, $listview&'"')
GUICtrlCreateListViewItem('"'& $gid & '|' & $RS.Fields($i).provideid ^ ERROR
求教育{:face (319):}

jhkdqaa 发表于 2011-3-25 10:21:05

沙发自己做 坐 等待版主教导{:1_412:}

jhkdqaa 发表于 2011-3-25 11:18:25

$RS = ObjCreate("ADODB.Recordset");创建记录集对象
                        $RS.ActiveConnection = $Conn;设置记录集的激活链接属性来自$Conn
                        $RS.Open("select * from tb_provideprice where gid like '2%"&$gid&"'");执行Sql语句
                        While Not $RS.eof And Not $RS.bof;当记录指针处于第一条记录和最后一条记录之间时，执行while循环
                                If @error = 1 Then ExitLoop
                                        GUICtrlCreateListViewItem('"'& $RS.Fields(1).value & '|' & $RS.Fields(0).value & '|' & $RS.Fields(2).value , $listview&'"')
                                $RS.movenext;将记录指针从当前的位置向下移一行
                        WEnd
                        $RS.Close;关闭记录集对象
这样就对了

查看完整版本: 数据库指针读取报错