vb.net 實例下載

利用VB.NET向服務器上傳文件

創(chuàng)新互聯(lián)長期為千余家客戶提供的網(wǎng)站建設服務，團隊從業(yè)經驗10年，關注不同地域、不同群體，并針對不同對象提供差異化的產品和服務；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為東蘭企業(yè)提供專業(yè)的網(wǎng)站設計、成都網(wǎng)站制作，東蘭網(wǎng)站改版等技術服務。擁有10年豐富建站經驗和眾多成功案例,為您定制開發(fā)。

文件上傳技術是一個很實用的技術，有著很廣泛的應用，在ASP.NET自身的前一個版本ASP里實現(xiàn)這個功能，就必須使用第三方的組件或者自己開發(fā)組件了，現(xiàn)在，用ASP.NET實現(xiàn)起來就簡單得多了，不需要使用任何組件就可以實現(xiàn)上傳的功能了。

為了方便理解，可以把文件上傳分成兩種類型：單一文件上傳和多文件上傳。

單一文件上傳

首先單一文件上傳的方法，單一文件上傳就比較簡單了，

下面是實現(xiàn)單一文件上傳的完整代碼：

%@ 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文件，然后在該文件所在目錄下創(chuàng)建一個存放文件的新目錄Files，運行，先感受一下效果，然后再繼續(xù)看下面的講解

使用ASP.NET上傳文件，需要用到.NET框架的兩個類：HttpPostedFile和HtmlInputFile，這兩個類所在的命名空間分別是System.Web.HttpPostedFile和System.Web.UI.HtmlControls.HtmlInputFile，所以我們要在文件開頭先導入這兩個命名空間，

其中的PostedFile表示上傳到服務器的文件，它包含幾個常用的屬性：

ContentLength:文件大小；

FileName :上傳文件的詳細路徑及文件名；

ContentType :上傳文件的文件類型。

字符分割函數(shù)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

現(xiàn)在掌握了ASP.NET文件上傳技術了

求一個VB.net 增刪改查實例 ，哪位大神有空幫我寫一下或者有現(xiàn)成的給我一個，，我比較菜又比較急，在線等

Imports System.Data.OleDb

'Imports System.Data.OracleClient

Imports System.Data.SqlClient

'鏈接Oracle

'cn = New SqlConnection(""Data Source=TNS名稱;Persist Security Info=True;User ID=用戶名;Password=密碼;" ")

'Imports System.Data.OracleClient

'Dim oOracleConn As OracleConnection = New OracleConnection()

'oOracleConn.ConnectionString = ""Data Source=MyOracleDB; User Id=username; Password=passwd; Integrated Security=no; "

'oOracleConn.Open()

'鏈接SQL Server

'cn = New SqlConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=;")

'鏈接Access

'cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")

Public Class Fun_DataBase

Dim cn As OleDbConnection

Dim cm As OleDbCommand

Dim da As OleDbDataAdapter

Dim ds As DataSet

Dim db_path As String = "D:\Documents\Visual Studio 2013\Projects\VBnet1\VBnet1\Resources\Database1.mdb"

Function Fun_sql1(Str_sql As String, V_調用來源 As String) '按指定sql，反饋1個查詢值

Try

'Dim cn As New OleDbConnection("Data Source=.;Initial Catalog=Sales;Integrated Security=False;User ID=sa;Password=123456;")

'鏈接Access

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")

cn.Open() 'sql語句執(zhí)行前，必須打開連接

cm = New OleDbCommand(Str_sql, cn)

cm.ExecuteNonQuery()

Dim strValue As String = cm.ExecuteScalar.ToString

'MessageBox.Show(strValue)

Fun_sql1 = strValue

cn.Close()

Fun_sql1 = True

Catch ex As Exception

MessageBox.Show(V_調用來源 ":執(zhí)行sql語句失敗！" Str_sql)

Fun_sql1 = False

End Try

End Function

Function Fun_sqln(Str_sql As String, V_調用來源 As String) '按指定sql，反饋1行n列查詢值

Try

'鏈接Access

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")

cn.Open() 'sql語句執(zhí)行前，必須打開連接

Dim cmd As New OleDbCommand("select * from grade", cn)

'Dim dr As SqlDataReader

Dim dr As OleDbDataReader

dr = cmd.ExecuteReader()

Dim strDisplay As String = ""

While dr.Read()

Fun_sqln = dr(0).ToString "|"

End While

cn.Close()

Fun_sqln = True

Catch ex As Exception

MessageBox.Show(V_調用來源 ":執(zhí)行sql語句失??！" Str_sql)

Fun_sqln = False

End Try

'Dim s = Split(F.Fun_sqln("ef"), "|")

'Dim i As Integer

'i = UBound(s)

'For i = 0 To UBound(s)

' MessageBox.Show(s(i))

'Next

End Function

Public Function Fun_sql_exec(Str_sql As String, V_調用來源 As String) '執(zhí)行指定sql，反饋T|F

Try

'鏈接Access

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" db_path ";Persist Security Info=False")

cn.Open() 'sql語句執(zhí)行前，必須打開連接

cm = New OleDbCommand(Str_sql, cn)

cm.ExecuteNonQuery()

cn.Close()

Fun_sql_exec = True

Catch ex As Exception

MessageBox.Show(V_調用來源 ":執(zhí)行sql語句失??！" Str_sql)

Fun_sql_exec = False

End Try

End Function

VB.net實例

1 生成txt文件。

DimSaveFileDialog1AsNewSaveFileDialog()?'創(chuàng)建一個保存對話框

SaveFileDialog1.Filter?="txt?files?(*.txt)|*.txt"?'設置擴展名

IfSaveFileDialog1.ShowDialog()?=?System.Windows.Forms.DialogResult.OKThen?'如果確定保存

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename,?Textbox1.Text,False)?'保存文本,False表示不追加文本，直接覆蓋其內容

EndIf

原文鏈接：