帮我看看这段简单的代码有什么问题

[happyRose]

从数据库IMAGE字段读出图片并保存到本地 代码如下
Dim strSql As String
Dim db As New Dkh2System.Db
Dim dr As System.Data.IDataReader
Dim ByteImage() As Byte
strSql = "select content from GRAPHFILE "
dr = db.DataReader(strSql)
While dr.Read()
ByteImage = (dr("content"))
End While
dr.Close()
db.Close()

'将图像的字节数组放入内存流
Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream(ByteImage)
ms.Read(ByteImage, 0, ByteImage.Length)
ms.Position = 0
Dim image As System.Drawing.Image = image.FromStream(ms)
image.Save("C:\\gggg.svg")
到Dim image As System.Drawing.Image = image.FromStream(ms) 这句话的时候报错误了，大家帮看看

[luanwey]

错误是什么？

[Allen2064]

不了解vb语言。

[happyRose]

不行，帮忙给一个将图片保存到本地的代码

[happyRose]

错误是参数类型不匹配

[wangwei155]

数据库链接都没打开吧

[huo789]

Public Shared Function FromStream(ByVal stream As System.IO.Stream) As System.Drawing.Image

下面改为：
Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream(ByteImage)
ms.Read(ByteImage, 0, ByteImage.Length)
ms.Position = 0
Dim stream As System.IO.Stream
ms.WriteTo(stream)

Dim image As System.Drawing.Image = image.FromStream(stream)
image.Save("C:\\gggg.svg")


试试

[erwanfan]

加一个强制转换试试：
Dim image As System.Drawing.Image = image.FromStream(CType(ms, Stream))

[happyRose]

我顶我顶