.netvbguan方例程 net5 vb

vb.net 实例下载

利用VB.NET向服务器上传文件

创新互联建站主要从事成都做网站、网站设计、外贸营销网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务崇义,十多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18980820575

文件上传技术是一个很实用的技术，有着很广泛的应用，在ASP.NET自身的前一个版本ASP里实现这个功能，就必须使用第三方的组件或者自己开发组件了，现在，用ASP.NET实现起来就简单得多了，不需要使用任何组件就可以实现上传的功能了。

为了方便理解，可以把文件上传分成两种类型：单一文件上传和多文件上传。

单一文件上传

首先单一文件上传的方法，单一文件上传就比较简单了，

下面是实现单一文件上传的完整代码：

%@ Import Namespace="System" %

%@ Import Namespace="System.Web.HttpPostedFile" %

%@ Import Namespace="System.Web.UI.HtmlControls.HtmlInputFile" %

script language="VB" runat="server"

Sub UpLoad(Src As Object, E As EventArgs)

If UploadFile.PostedFile.ContentLength=0 then

ShowUpLoadFile.innerText="上传失败或文件不存在！"

Else

''''获取文件名

dim Temp() as String=Split(UploadFile.PostedFile.FileName,"\")

dim FileName as String=Temp(Temp.Length-1)

''''保存文件

UploadFile.PostedFile.SaveAs(Server.MapPath(".") "\Files\" FileName)

''''显示上传结果

ShowUpLoadFile.InnerHtml="文件上传成功！br上传文件名：" FileName

End If

End Sub

/script

html

body

form runat="server" enctype="multipart/form-data"

input type="file" id="UploadFile" runat="server" size="50"br

asp:button runat="server" Text="立即上传" onClick="Upload" /

/form

hrbr

span id="ShowUpLoadFile" runat="server"/span

/body

/html

把上面的代码保存成.aspx文件，然后在该文件所在目录下创建一个存放文件的新目录Files，运行，先感受一下效果，然后再继续看下面的讲解

使用ASP.NET上传文件，需要用到.NET框架的两个类：HttpPostedFile和HtmlInputFile，这两个类所在的命名空间分别是System.Web.HttpPostedFile和System.Web.UI.HtmlControls.HtmlInputFile，所以我们要在文件开头先导入这两个命名空间，

其中的PostedFile表示上传到服务器的文件，它包含几个常用的属性：

ContentLength:文件大小；

FileName :上传文件的详细路径及文件名；

ContentType :上传文件的文件类型。

字符分割函数Split是用来取得文件名的，因为通过PostedFile.FileName获得的是详细的路径及文件名。

多文件上传

所谓的多文件上传就是同时上传多个文件，这个跟单一文件上传大多是相同的，不同的是多文件上传是把所有文件作为一个文件集合一起上传到服务器的，我们需要的是把这个文件集合分解成一个个单一的文件，剩下的处理方法就跟单一文件上传一样了。

首先要知道要最多同时上传多少个文件，然后就在form之间放多少个如下的HtmlInput控件：

input type="file" runat="server" size="50"

注意：这里的HtmlInput控件控件是不需要设置ID的

那如何在上传到服务器的文件集合中取出一个个的文件？看下面的代码：

dim i as integer

For i=0 to Request.Files.Count-1

‘使用Request.Files()来逐个获取上传的文件

dim myFile as HttpPostedFile=Request.Files(i)

''''这里的myFile就相当于上例中的PostedFile，可以用myFile.FileName获得文件名，etc

''''这里的处理代码就跟单一文件上传的一样了

Next

现在掌握了ASP.NET文件上传技术了

VB.NET程序

dim a as double

dim b as double

if (string.IsNullOrEmpty(txt1.Text) or string.IsNullOrEmpty(txt2.Text)) begin

messagebox.show("请输入数值");

return;

end

if double.TryParse(txt.Text, out a ) begin

else begin

Messagebox.show('文本框1包含非数字')

return;

end

if double.TryParse(txt2.Text, out b) begin

else

Messagebox.show('文本框2包含非数字')

return;

end

Label1.Text = 0.6*a + 0.4*b;

求一个用VB.net操作access数据库的例程

Imports System

Imports System.Drawing

Imports System.ComponentModel

Imports System.Windows.Forms

Imports System.Data.OleDb

Imports System.Data

Public Class Form1

Inherits Form

Private components As System.ComponentModel.Container = Nothing

Private WithEvents lastrec As Button

Private WithEvents nextrec As Button

Private WithEvents previousrec As Button

Private WithEvents firstrec As Button

Private t_books As TextBox

Private t_nl As TextBox

Private t_xb As TextBox

Private t_xm As TextBox

Private t_id As TextBox

Private l_books As Label

Private l_nl As Label

Private l_xb As Label

Private l_xm As Label

Private l_id As Label

Private label1 As Label

Private myDataSet As DataSet

Private WithEvents button1 As Button

Private WithEvents button2 As Button

Private WithEvents button3 As Button

Private WithEvents button4 As Button

Private myBind As BindingManagerBase

Public Sub New ( )

MyBase.New ( )

GetConnected ( )

InitializeComponent ( )

End Sub

'清除在程序中使用过的资源

Protected Overloads Overrides Sub Dispose (ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose ( )

End If

End If

MyBase.Dispose ( disposing )

End Sub

Public Sub GetConnected ( )

'创建一个数据连接

Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;

Data Source = db.mdb "

Dim myConn As OleDbConnection = New OleDbConnection ( )

myConn.ConnectionString = strCon

Dim strCom As String = " SELECT * FROM person "

'创建一个 DataSet

myDataSet = New DataSet ( )

myConn.Open ( )

'通过OleDbDataAdapter对象得到一个数据集

Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter

( strCom , myConn )

'把Dataset绑定books数据表

myCommand.Fill ( myDataSet , "person" )

'关闭此数据连接

myConn.Close ( )

End Sub

'插入数据记录操作代码

Private Sub button2_Click (ByVal sender As Object , _

ByVal e As System.EventArgs) Handles button2.Click

'判断所有字段是否添完，添完则执行，反之弹出提示

If ( t_id.Text "" And t_xm.Text ""

And t_xb.Text "" And t_nl.Text ""

And t_books.Text "" ) Then

Dim myConn1 As String = " Provider = Microsoft.Jet.OLEDB.4.0 ;

Data Source = db.mdb"

Dim myConn As OleDbConnection = New OleDbConnection ( myConn1 )

myConn.Open ( )

Dim strInsert As String = " INSERT INTO person ( id , xm , xb , nl

, zip ) VALUES ( " _

t_id.Text + " , '" _

t_xm.Text + "' , '" _

t_xb.Text + "' , " _

t_nl.Text + " , " _

t_books.Text + ")"

Dim inst As OleDbCommand = New OleDbCommand ( strInsert , myConn )

inst.ExecuteNonQuery ( )

myConn.Close ( )

myDataSet.Tables ( "person" ).Rows ( myBind.Position ).BeginEdit ( )

myDataSet.Tables ( "person" ).Rows ( myBind.Position ).EndEdit ( )

myDataSet.Tables ( "person" ).AcceptChanges ( )

Else

MessageBox.Show ( "必须填满所有字段值！" , "错误！" )

End If

End Sub

标题名称：.netvbguan方例程 net5 vb
网站网址：http://6mz.cn/article/dopehsc.html