请问循环读取时怎么会没有图片显示？【已解决】

cfs43210

While (Not $RS.eof And Not $RS.bof);循环读表
                                        For $i = 0 To $RS.Fields.Count - 1
                                                $RS.Fields($i).Value;显示表第一个数据
                                        Next
                                        
                                        
                                        $Form1 = GUICreate("Form1", 300, 160, -1, -1, BitOR($WS_SYSMENU, $WS_POPUP))
                                        GUISetBkColor(0xA6CAF0)
                                        GUISetState(@SW_SHOW)

                                        $Label1 = GUICtrlCreateLabel("地址：" & $RS.Fields(4).value, 130, 20, 150, 25)
                                        
                                        $file = FileOpen(@WorkingDir & "\temp.jpg", 2 + 16)
                                        If FileWrite($file, $RS.Fields(16).value) = 1 Then
                                                FileClose($file)
                                                $Pic1 = GUICtrlCreatePic(@WorkingDir & "\temp.jpg", 5, 5, 120, 150)
                                        EndIf
                                        
                                        $RS.movenext;跳出循环
                                        
                                WEnd;结束循环读表

                                $RS.close;关闭数据分表
                                $Conn.Close

cfs43210

请进来帮帮忙，谢谢！

cfs43210

  
While (Not $RS.eof And Not $RS.bof);循环读表
       For $i = 0 To $RS.Fields.Count - 1
           $RS.Fields($i).Value;显示表第一个数据
        Next
                                                                 
           $Form1 = GUICreate("Form1", 300, 160, -1, -1, BitOR($WS_SYSMENU, $WS_POPUP))
            GUISetBkColor(0xA6CAF0)
            GUISetState(@SW_SHOW)
            $Label1 = GUICtrlCreateLabel("地址：" & $RS.Fields(4).value, 130, 20, 150, 25)
            $file = FileOpen(@WorkingDir & "\temp.jpg", 2 + 16)
               If FileWrite($file, $RS.Fields(16).value) = 1 Then
                  FileClose($file)
                  $Pic1 = GUICtrlCreatePic(@WorkingDir & "\temp.jpg", 5, 5, 120, 150)
             EndIf
                                        
             $RS.movenext;跳出循环
                                        
         WEnd;结束循环读表

         $RS.close;关闭数据分表
         $Conn.Close
;现在问题是不循环读取SQL数据库时可以显示图片，循环读取就不能显示图片文本能读取到，请问是否读取二进制保存图片时不能用循环读取。希望有高手指点。谢谢~~~
wend

lixiaolong

回复 3# cfs43210

看你的代码可能FileWrite没成功，所以无法显示.  
你应该上可实行的代码，这样很多人愿意帮你.