如何在vb.net上传图片并保存在数据库(sql server)中并从sql server检索到vb.net

问题描述:

请回复帮助我

你的感谢mian sahib jan

please response to help me
your thank ful mian sahib jan

' Step 1: Upload your photo

Dim ms As MemoryStream = Nothing

Using fs As FileStream = New FileStream("path to your picture", FileMode.Open, FileAccess.Read)
    Dim bytes(fs.Length) As Byte
    fs.Read(bytes, 0, fs.Length)
    ms = New MemoryStream(bytes)
End Using

Dim conn = New SqlCeConnection("your connection string")

Dim cmd = New SqlCeCommand("your query",conn)
cmd.Parameters.Add(New SqlCeParameter("your photo parameter", ms.ToArray))
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()

cmd.Dispose()
ms.Dispose()

' Step 2: Download your photo

Dim da = New SqlCeDataAdapter("your sql query", conn)
Dim ds = New DataSet
conn.Open()
da.Fill(ds, "your picture column")
conn.Close()

ms = New MemoryStream(CType(ds.Tables(0).Rows(0)(0), Byte()))
PictureBox1.Image = New Bitmap(ms)


尝试这个:

http://csharpdotnetfreak.blogspot。 com / 2009/07 / fileupload-control-save-images-database.html [ ^ ]