怎样从数据库中取出图片保存在本地

[lionelwy]

数据库中有一列类型为image，怎样把他保存在本地，

[LionWangCity]

先将图片读到二进制流中，
再保存。
Dim strFileName As String

'-- Load File From Sql Server
Dim Cn As SqlConnection
Dim cmdSel As SqlCommand
Dim da As New SqlDataAdapter
Dim ds As New DataSet
Dim fs As New IO.FileStream(strFileName, IO.FileMode.Create)
Dim bt() As Byte

Cn = New SqlConnection("Server=.;DataBase=CTRL_GAME;User ID=sa;PWD=")
Cn.Open()
cmdSel = New SqlCommand
cmdSel.Connection = Cn
cmdSel.CommandText = "Select Top 1SaveFile From Game_Save order by [id] desc"
da.SelectCommand = cmdSel

da.Fill(ds)
fs.Write(ds.Tables(0).Rows(0)(0), 0, ds.Tables(0).Rows(0)(0).length)
fs.Close()