Dim oleconn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & System.Web.HttpContext.Current.Server.MapPath("#db.mdb"))
Dim str As String = "select * from tp order by id desc"
Dim adp As New OleDbDataAdapter(str, oleconn)
Dim ds As New DataSet
oleconn.Open()
adp.Fill(ds, "tp")
oleconn.Close()
Response.ContentType = "image/*"
Response.BinaryWrite(ds.Tables(0).Rows(0)("tp"))我确定里面ds.Tables(0).Rows(0)("tp")有ole对象数据图片!
请问一下,是怎么回事!
那里错了啊!
Dim str As String = "select * from tp order by id desc"
Dim adp As New OleDbDataAdapter(str, oleconn)
Dim ds As New DataSet
oleconn.Open()
adp.Fill(ds, "tp")
oleconn.Close()
Response.ContentType = "image/*"
Response.BinaryWrite(ds.Tables(0).Rows(0)("tp"))我确定里面ds.Tables(0).Rows(0)("tp")有ole对象数据图片!
请问一下,是怎么回事!
那里错了啊!
解决方案 »
- 拼接页面元素的时候怎么出现代码了。求解
- 怎样在.net中把连接到sql的数据库连接改变成连接access到数据库??
- 请教提交怎么实现 我实在是很菜!
- dllhost进程和aspnet_wp进程是什么关系
- 关于ASP.NET编译后,过一段时间就有慢下来的问题
- .net新人求助配置问题
- 为什么加了验证控件后会出现脚本错误
- 请问用ASP.NET生成静态页面.一般有几种方式.
- 先安装了.Net Framework,再安装水晶报表,却找不到ADO.Net(XML)的数据库连接类型!?
- 求助,关于WEB自定义控件中按钮的点击问题。
- 用datagrid删除记录时出错
- 求助:在ORACLE中,一个字符型字段的的值像1-001,1-001--1,1-001--2,2-002,2-002--1,……请问怎样进升序排序??
Response.ContentType = "image/*"
Response.BinaryWrite(CType(ds.Tables("tp").Rows(0)["tp"]),byte())
Response.End()改成这样试试
参考
http://singlepine.cnblogs.com/articles/288027.html
if(dr.Read())
{
Response.ContentType=(string)dr["imgContentType"];
Response.OutputStream.Write((byte[])dr["imgData"],0,(int)dr["imgSize"]);}
SqlDataAdapter1.Fill(DataSet11)
End Sub'从数据库读取图片暂时存储为monkey.bmp,然后加载到image控件里面.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadPicFromDb.Click
Try
Dim data As Byte() = DataSet11.Tables(0).Rows(7).Item(3)
Dim myfilestream As New System.IO.FileStream(Application.StartupPath & "\monkey.bmp", IO.FileMode.Create)
myfilestream.Write(data, 0, data.Length)
myfilestream.Close()
PictureBox1.Image = New Bitmap(Application.StartupPath & "\monkey.bmp")
Catch
End Try
End Sub
'把C:\6.bmp写入库中,你可以改为自己的图片.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InsertPicToDb.Click
Dim myfilestream As New System.IO.FileStream("c:\6.bmp", IO.FileMode.Open)
Dim data() As Byte
ReDim data(myfilestream.Length - 1)
myfilestream.Read(data, 0, myfilestream.Length)
myfilestream.Close()
DataSet11.Tables(0).Rows(7).Item(3) = data
SqlDataAdapter1.Update(DataSet11.GetChanges())
End Sub