cfs43210 发表于 2012-3-16 03:13:50

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

本帖最后由 cfs43210 于 2012-3-19 19:31 编辑

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 发表于 2012-3-16 11:12:04

请进来帮帮忙，谢谢！

cfs43210 发表于 2012-3-16 11:25:25


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 发表于 2012-3-16 14:06:49

回复 3# cfs43210

看你的代码可能FileWrite没成功，所以无法显示.
你应该上可实行的代码，这样很多人愿意帮你.
页: [1]
查看完整版本: 请问循环读取时怎么会没有图片显示？【已解决】