vb.net保存數據

都是用SQL語句完成的

成都創新互聯是一家專注于網站建設、網站設計與策劃設計,杏花嶺網站建設哪家好?成都創新互聯做網站,專注于網站建設10多年,網設計領域的專業建站公司;建站業務涵蓋:杏花嶺等地區。杏花嶺做網站價格咨詢:18980820575

寫入數據庫

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如何將程序的數據保存？

VB6.0

寫入：

Open "D:\123.txt" For Output As #1 '打開XXX路徑的XXX文件（雙引號里表示文件位置和文件名）

Print #1, Text1.Text '寫入Text1的Text內容

Close #1 '關閉

讀取：

Open "D:\123.txt" For Input As #1 '打開打開XXX路徑的XXX文件（雙引號里表示文件位置和文件名）

Do While Not EOF(1)

Line Input #1, s

Text1.Text = s

Loop 'Do...Loop表示循環讀取文件的內容，并讓Text1.Text=內容

Close #1 '關閉

VB.net中讀寫文件主要使用System.IO命名空間。

① 使用?File.ReadAllText 讀取

Dim s As String = System.IO.File.ReadAllText("C:\a.txt")

② 使用 StreamReader 讀取，注意編碼格式和寫入的編碼保持一致。

Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)

Dim s As String = sr.ReadToEnd()

sr.Close()

VB.NET 本地保存數據

VB可以用任何格式保存文件數據不僅僅是注冊表\XML\INI

甚至于未知的格式。我教你命令：

open "C:\setup.safe" for output as #1

print #1,"object"

close #1

其中setup.safe就是一個文件，后綴為.safe，當然可以改成.dat包括其他任何后綴.

object就是你要寫入setup.safe的內容.

vb.net 如何存儲用戶數據？

這個你可以用 api操作ini文件來實現。ini是windows系統的配置文件。

'首先聲明這兩個api

Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

vb.net儲存文本數據方法

Private Sub Command1_Click()

'寫文件示例

Dim strFileName As String '文件名

Dim lngHandle As Long '句柄

Dim strWrite As String '要寫入的文本內容

strFileName = App.Path "\a.txt"

''''''''App.Path "\a.txt"相對路徑

''"c:\w.txt"絕對路徑

lngHandle = FreeFile() '取得句柄

'準備要寫入的內容

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

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

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

''''''print#1,text1.text ''''''如果print換成write則寫進txt中后自動加雙引號

Open strFileName For Output As lngHandle '打開文件

Print #lngHandle, strWrite '寫入文本

Close lngHandle '關閉文件

End Sub

Private Sub Command2_Click()

'讀文件示例

Dim strFileName As String '文件名

Dim lngHandle As Long '文件句柄

Dim strAll As String '所讀取的文本文件的所有內容

Dim strLine As String '在循環中存放每行的內容

strFileName = App.Path "\a.txt"

'獲得文件的句柄

lngHandle = FreeFile()

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

Open strFileName For Input As lngHandle

'循環直到文件尾

Do While Not EOF(lngHandle)

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

Line Input #lngHandle, strLine

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

strAllstrAll = strAll strLine vbCrLf

Loop

'顯示得到的全部分內容

MsgBox strAll

End Sub

Private Sub Command1_Click()

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

Print #1, Text1.Text '這里可以是數據本身也可以是目標控件的屬性

Close #1 '關閉打開的文件

End Sub

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

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

vb.net編寫程序時如何存儲設置參數？

比較專業的做法是在項目中添加微軟的Application Settings類，詳細幫助文檔：

使用極其簡單，假設在settings1.settings設置一個項目，名稱：IP，類型：String，范圍：用戶，值：192.168.1.1

調用：Dim sIP As String = setting.IP

獲取缺省值：Dim sIP As String = Settings1.Default.IP

保存： setting.IP = "192.168.1.30" : setting.Save()

分享題目：vb.net如何保存參數 vb怎么儲存數據
文章網址：http://vcdvsql.cn/article4/hpgdoe.html

成都網站建設公司_創新互聯，為您提供外貿建站、用戶體驗、關鍵詞優化、定制開發、商城網站、動態網站

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯