求一份上传图片到sqlserver的和显示到浏览器的完整代码，要求是VB的，我不会C#啊，十分

Question

Inserting Images to SqlServer in ASP .NET
http://aspalliance.com/das/insertimage.aspxRetrieving Images from SqlServer in ASP .NET
http://aspalliance.com/das/readimage.aspx

Answer 1

图示：
1. PhotoDisplay.jpg 正确添加后图片显示
2. DataBase.jpg     数据库的设计
功能：
上传图片、文件等用二进制上传到数据库中，并在一个页面中读取图片暂时显示，然后在另外一个页面上指定显示。（显示多个不同的图片，以及点击放大观看）优点：
1、对于一些比较保密的文件以及图片进行保密。
2、就是对图片和文件的管理更为方便有效。不足：
过于占用数据库空间使用说明：
1.首先在SQL-Server2000的数据库里面建一个dbImage的数据库，建一个新表ImageStore用来存放图片的有关数据，其中的字段如下：
ID            int      4    primary key 自动增加
imgTypeStore  varchar  50
imgDataStore  image    16
2.在IIS里面建一个虚拟目录，映射到该工程文件夹，直接双击打开csProj.sln就可以了。
3.把添加的页面设为起始页进行编译就可以进行添加了，然后输入浏览的页面地址就可以看到你上传的图片了。
需要注意的是：
a.需要把添加页面的
<form id="AddImage" method="post" runat="server" Enctype="multipart/form-data">设为“multipart/form-data”
b.第二个就是对数据库的连接，最好对数据库位置指定IP，不过看你自己的习惯了！制做人：yirenboy
联系方式：[email protected]
csdn的ID号：yirenboy

Answer 2

看看下面是图片的存取代码：
以MS自带的数据库Northwnd为例,其中有个表是Categories,有四个四段,其中有一个是Image类型的Picture字段.我们首先添加一张bmp图片到最后一行的Picture中,然后在读出来显示到Image控件中.添加一个SqlDataAdapter1,用向导设置联接数据库为Northwnd,SQL语句为SELECT [Category ID], [Category Name], Description, Picture FROM Categories.生成一个数据集为dataset1. 然后添加两个按钮分别表示写图片到数据库和读数据库,还有一个Image控件用于显示图片.添加以下代码Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        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

Answer 3

我以前就是从VB.net开始写的程序，下面是我半年前写的程序，你一看就知道了。http://asp3.6to23.com/webin/article/index.asp?classid=2&Nclassid=4

Answer 4

http://211.148.135.87/cdma/download/csProj.zip

Answer 5

yirenboy (一人)做的完整的上传，显示图片代码：
http://expert.csdn.net/Expert/topic/1179/1179456.xml?temp=.666012

Answer 6

有没有VB写的代码？
上面几位的代码确实好用，但是C#的，我看起来很累啊。

Answer 7

'byte[] imgDataTemp = new byte[imgDataLen];         //临时存放图片二进制数组
        'imgDatastream.Read(imgDataTemp,0,imgDataLen);      //图片二进制放入临时数组这两句写成VB代码应该是怎么样的？