vb.net保存數(shù)據(jù)

都是用SQL語(yǔ)句完成的

柳河網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)公司！從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)公司等網(wǎng)站項(xiàng)目制作，到程序開發(fā)，運(yùn)營(yíng)維護(hù)。創(chuàng)新互聯(lián)公司于2013年成立到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來(lái)保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)公司。

寫入數(shù)據(jù)庫(kù)

strSQL="INTO TABLENAME （OPTION1,OPTIN2）VALUES(VALUE1,VALUE2)";

cmd.Connection = conn;

cmd.CommandText = strSQL;

cmd.Parameters.Add(paramrs[i]);

try

{

conn.Open();

}

catch(Exception ex)

{

throw ex;

}

finally

{

cmd.Parameters.Clear();

cmd.CommandText = null;

cmd.Dispose();

conn.Close();

}

讀取值

strSQL ="SELECT OPTION1，OPTION2 FROM TABLENAME";

cmd.CommandText = strSQL;

cmd.Connection = conn;

DataSet ds = new DataSet();

try

{

conn.Open();

SqlDataAdapter da = new SqlDataAdapter(cmd);

da.Fill(ds);

}

catch (Exception ex)

{

throw ex;

}

finally

{

cmd.Dispose();

conn.Close();

}

TextBox2.text = ds.Tables[0].rows[0][0].value.tostring();

vb.net儲(chǔ)存文本數(shù)據(jù)方法

Private Sub Command1_Click()

'寫文件示例

Dim strFileName As String '文件名

Dim lngHandle As Long '句柄

Dim strWrite As String '要寫入的文本內(nèi)容

strFileName = App.Path "\a.txt"

''''''''App.Path "\a.txt"相對(duì)路徑

''"c:\w.txt"絕對(duì)路徑

lngHandle = FreeFile() '取得句柄

'準(zhǔn)備要寫入的內(nèi)容

strWrite = Text1.Text '或者 strWrite = "這些文字將被寫入文件。"

'For后面的參數(shù)表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入

''''''append是每次在文件末尾寫入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫入

''''''print#1,text1.text ''''''如果print換成write則寫進(jìn)txt中后自動(dòng)加雙引號(hào)

Open strFileName For Output As lngHandle '打開文件

Print #lngHandle, strWrite '寫入文本

Close lngHandle '關(guān)閉文件

End Sub

Private Sub Command2_Click()

'讀文件示例

Dim strFileName As String '文件名

Dim lngHandle As Long '文件句柄

Dim strAll As String '所讀取的文本文件的所有內(nèi)容

Dim strLine As String '在循環(huán)中存放每行的內(nèi)容

strFileName = App.Path "\a.txt"

'獲得文件的句柄

lngHandle = FreeFile()

'For后面的參數(shù)表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入

Open strFileName For Input As lngHandle

'循環(huán)直到文件尾

Do While Not EOF(lngHandle)

'每次讀取一行存放在strLine變量中

Line Input #lngHandle, strLine

'每次讀取都把所讀到的內(nèi)容連接到strAll變量，由于Line Input去掉了換行符，所以這里補(bǔ)上

strAllstrAll = strAll strLine vbCrLf

Loop

'顯示得到的全部分內(nèi)容

MsgBox strAll

End Sub

Private Sub Command1_Click()

Open App.Path "\a.txt" For Output As #1

Print #1, Text1.Text '這里可以是數(shù)據(jù)本身也可以是目標(biāo)控件的屬性

Close #1 '關(guān)閉打開的文件

End Sub

'For后面的參數(shù)表示以何種方式打開文件，Input是讀取，Output是覆蓋寫入，Append是追加寫入

append是每次在文件末尾寫入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫入 print#1,text1.text 如果print換成write則寫進(jìn)txt中后自動(dòng)加雙引號(hào)，以上就是數(shù)據(jù)保存為VB.NET TXT文件的代碼。

VB.net怎樣保存文件

保存文件的步驟為：

關(guān)閉流，特別是寫入流

關(guān)閉并保存文件

示例代碼如下：

Imports?System.Windows.Forms

Imports?System.IO

Imports?System.Text

Sub?SaveFileDemo()

'打開文件。如果文件不存在則創(chuàng)建新的文件

Dim?myFile?As?New?IO.FileStream("d:\data.txt",?_

FileMode.OpenOrCreate,?_

FileAccess.Write)

'在文件末尾添加一行?

Dim?tw?As?New?StreamWriter(myFile)

myFile.Seek(0,?SeekOrigin.End)

tw.WriteLine("白刃格斗英雄連英模部隊(duì)方隊(duì)亮相閱兵")

'關(guān)閉流

tw.Close()

'關(guān)閉文件并保存文件

myFile.Close()

End?Sub