Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/sql-server-2005/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Image 如何从SQL Server获取映像_Image_Sql Server 2005 - Fatal编程技术网

Image 如何从SQL Server获取映像

Image 如何从SQL Server获取映像,image,sql-server-2005,Image,Sql Server 2005,我有一个名为IMG的表,其中有ID和Content列保存图片 从那里怎么可能拍到照片 我在谷歌上搜索这个问题,得到的只是vb.net、c#和php-mysql 也许有人会说,获取图片(示例、复制/粘贴代码、程序)的最佳和最简单的方法是什么 谢谢大家! 试试这样(从d_r_w的答案): 请看电视 执行此操作的更多选项: 我找到了PHP,但使用了MySQL(您需要更改与服务器的连接): 经过大量阅读和工作,找到了解决方案 给你!工作100% Dim conn, sql, a, f

我有一个名为
IMG
的表,其中有
ID
Content
列保存图片

从那里怎么可能拍到照片

我在谷歌上搜索这个问题,得到的只是vb.net、c#和php-mysql

也许有人会说,获取图片(示例、复制/粘贴代码、程序)的最佳和最简单的方法是什么

谢谢大家!

试试这样(从d_r_w的答案):

请看电视

执行此操作的更多选项:

我找到了PHP,但使用了MySQL(您需要更改与服务器的连接):


经过大量阅读和工作,找到了解决方案

给你!工作100%

      Dim conn, sql, a, filename
      Dim dir 
      dir = "c:\images\" //saves files into this directory
      Dim fileObj
      Set fileObj = CreateObject("Scripting.FileSystemObject")
      Set conn = CreateObject("ADODB.Connection")
      Dim strStream
      Set strStream = CreateObject("ADODB.Stream")
      Dim rstRecordset
      Set rstRecordset = CreateObject("ADODB.Recordset")
      conn.Open "Provider=SQLOLEDB;Data Source=yourserver;Integrated Security = SSPI","username","password"
      rstRecordset.Open "Select xxx, yyy, zzz from table (nolock) where xxx = '' order by xxx desc", conn    ', adOpenKeyset, adLockOptimistic
      Set fso = CreateObject("Scripting.FileSystemObject")

      While Not rstRecordset.EOF  
     filename = rstRecordset.Fields(0) 
     er = 0

Do
    er = er+1
Loop While (fso.FileExists(dir & filename & "_" & er  & ".JPG"))  

    filename = dir & filename & "_" & er  & ".JPG"
    strStream.Type = 1
    strStream.Open
    strStream.Write rstRecordset.Fields(2).Value
    strStream.SaveToFile filename
    strStream.Close
        rstRecordset.MoveNext
    Wend

给你

您使用的是
linq
dataset
entityFramework
,还是纯查询语句?也许有一些解释?这是什么语言?我应该用我的服务器IP、用户名、密码替换
yourConnectionReference
吗?很抱歉,我没有注意到上面提到的任何编程语言,这个例子是C#,您实际使用的是哪种语言?我将首先尝试使用cursor,如果它不起作用,我将尝试使用PHP one:)谢谢!不起作用。有必要下载mssql连接的驱动程序,我已经阅读了这篇文章。一定有更简单的方法来获取图片:)这太复杂了。你做得很辛苦,伙计,用C#,+1可以更容易地完成。谢谢:)我对C不熟悉。在VB上找到了一个非常酷的脚本。只是做了一些更正,它成功了:)
<?php 
// image.php - by Hermawan Haryanto &lt;hermawan@dmonster.com&gt; 
// Example PHP Script, demonstrating Storing Image in Database 
// Detailed Information can be found at http://www.codewalkers.com 

// database connection 
$conn = mysql_connect("localhost", "user", "password") 
  OR DIE (mysql_error()); 
@mysql_select_db ("hermawan", $conn) OR DIE (mysql_error()); 
$sql    = "SELECT * FROM image WHERE image_id=".$_GET["iid"]; 
$result = mysql_query ($sql, $conn); 
if (mysql_num_rows ($result)&gt;0) { 
  $row = @mysql_fetch_array ($result); 
  $image_type = $row["image_type"]; 
  $image = $row["image"]; 
  Header ("Content-type: $image_type"); 
  print $image; 
} 
?>
      Dim conn, sql, a, filename
      Dim dir 
      dir = "c:\images\" //saves files into this directory
      Dim fileObj
      Set fileObj = CreateObject("Scripting.FileSystemObject")
      Set conn = CreateObject("ADODB.Connection")
      Dim strStream
      Set strStream = CreateObject("ADODB.Stream")
      Dim rstRecordset
      Set rstRecordset = CreateObject("ADODB.Recordset")
      conn.Open "Provider=SQLOLEDB;Data Source=yourserver;Integrated Security = SSPI","username","password"
      rstRecordset.Open "Select xxx, yyy, zzz from table (nolock) where xxx = '' order by xxx desc", conn    ', adOpenKeyset, adLockOptimistic
      Set fso = CreateObject("Scripting.FileSystemObject")

      While Not rstRecordset.EOF  
     filename = rstRecordset.Fields(0) 
     er = 0

Do
    er = er+1
Loop While (fso.FileExists(dir & filename & "_" & er  & ".JPG"))  

    filename = dir & filename & "_" & er  & ".JPG"
    strStream.Type = 1
    strStream.Open
    strStream.Write rstRecordset.Fields(2).Value
    strStream.SaveToFile filename
    strStream.Close
        rstRecordset.MoveNext
    Wend