学习VB.NET时，你可能会遇到VB.NET上传图片并在DataGrid中显示的问题，这里将介绍VB.NET DataGrid显示问题的解决方法，在这里拿出来和大家分享一下。

一、程序功能当上传图片大小超过8K或格式不符时禁止上传，上传通过之后，用VB.NET DataGrid显示上传的图片

二、建立数据库

在MSSQL的NorthWind数据库中新建一个users表。

三、窗体设计：

1、新建ASP.NET Web应用程序，命名为DataGrid3，保存路径为http://192.168.0.1/DataGrid3(注：我机子上的网站的IP是192.168.0.1的主目录是D:\web文件夹)然后点击确定。

2、在解决方案资源管理器窗口中，将WebForm1.aspx重命名为UpPicture.aspx,然后从工具箱中向窗体添加一个Label控件、一个BUtton按钮.然后从一个HTML工具箱中向窗体添加一个File field控件窗体界面。

3、在解决方案资源管理器窗口中右击项目，选择添加-新项-Web窗体，名称设为ViewPicture.aspx。然后在打开的窗体中添加一个DataGrid控件。

4、右击DataGrid控件，再点击下方的“属性生成器”，打开“DataGrid属性窗口”。在“DataGrid属性窗口”点击“列”，取消“在运行时自动创建列”前的对勾，向选定的列中添加一个绑定列，在页眉文本中输入“序号”，在数据字段中输入ID。再向选定的列中添加一个绑定列，在页眉文本中输入“头像”，在数据字段中输入headimg。然后点击确定。

四、VB.NET DataGrid代码设计：1、UpPicture.aspxImports System.Data.SqlClient

Public Class WebForm1

Inherits System.Web.UI.Page

'窗体代码省略

'上传图片

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim img As String

'定义postedfile文件是储存用户上载的文件

Dim postedfile AsHttpPostedFile=File1.PostedFile

'定义一个变量储存用户上载文件的大小

Dim intImgSize As Int32

'获取用户上传文件的大小,

intImgSize=postedfile.ContentLength

'如果要上传的文件不为空

If intImgSize<>0 Then

'如果大于8K, 则禁止上传

If intImgSize>8000 Then

Label1.Text="图片太大"

Exit Sub

End If

'定义一个变量储存用户上传图片的文件类型

Dim strImgType AsString=postedfile.ContentType

'只接受.gif格式的图片

Dim filesplit() AsString=Split(strImgType, "/")

strImgType=filesplit(filesplit.Length - 1)

If strImgType<>"gif" Then

Label1.Text="图片格式不对"

Exit Sub

End If

'储存要上传的文件的整个路径

filesplit=Split(postedfile.FileName, "\")

'取得上传文件的文件名

Dim filename AsString=filesplit(filesplit.Length - 1)

'将上传的图片保存到服务器当前目录的headimg文件夹中

postedfile.SaveAs(Server.MapPath("headimg") & "\" & filename)

'定义一个变量储存服务器上当前上传图片的路径

Dim imgpath AsString="headimg\"& filename

img=""

'将图片储存到数据库

Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")

scon.Open()

Dim scom As New SqlCommand("insert into users values (@img)", scon)

scom.Parameters.Add("@img", SqlDbType.VarChar).Value=img

Try

scom.ExecuteNonQuery()

Catch ex As Exception

End Try

scon.Close()

'转到查看图片窗口

Response.Redirect("ViewPicture.aspx")

End If

End Sub

End Class

2、ViewPicture.aspx代码：Imports System.Data.SqlClient

Public Class ViewPicture

Inherits System.Web.UI.Page

‘窗体代码省略

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")

Dim sda As New SqlDataAdapter("select * from users", scon)

Dim ds As New DataSet

Try

sda.Fill(ds)

Catch ex As Exception

End Try

DataGrid1.DataSource=ds

DataGrid1.DataBind()

End Sub

End Class

【责任编辑：姜程程 TEL：(010)68476606】

点赞 0