如何在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 [ ^ ]