VB.NET如何解决DataGrid显示问题
这篇文章将为大家详细讲解有关VB.NET如何解决DataGrid显示问题,小编觉得挺实用的,因此分享给大家做个参考,希望大家阅读完这篇文章后可以有所收获。
专注于为中小企业提供成都做网站、网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业古冶免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上1000+企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
一、程序功能
当上传图片大小超过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.aspx
Imports 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 As HttpPostedFile = 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 As String = postedfile.ContentType '只接受.gif格式的图片 Dim filesplit() As String = Split(strImgType, "/") strImgType = filesplit(filesplit.Length - 1) If strImgType <> "gif" Then Label1.Text = "图片格式不对" Exit Sub End If '储存要上传的文件的整个路径 filesplit = Split(postedfile.FileName, "\") '取得上传文件的文件名 Dim filename As String = filesplit(filesplit.Length - 1) '将上传的图片保存到服务器当前目录的headimg文件夹中 postedfile.SaveAs(Server.MapPath("headimg") & "\" & filename) '定义一个变量储存服务器上当前上传图片的路径 Dim imgpath As String = "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
关于“VB.NET如何解决DataGrid显示问题”这篇文章就分享到这里了,希望以上内容可以对大家有一定的帮助,使各位可以学到更多知识,如果觉得文章不错,请把它分享出去让更多的人看到。
网页题目:VB.NET如何解决DataGrid显示问题
标题来源:http://pwwzsj.com/article/jcepsi.html