vb.net保存數據

都是用SQL語句完成的

清水網站建設公司成都創新互聯公司,清水網站設計制作，有大型網站制作公司豐富經驗。已為清水成百上千家提供企業網站建設服務。企業網站搭建\成都外貿網站制作要多少錢，請找那個售后服務好的清水做網站的公司定做！

寫入數據庫

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儲存文本數據方法

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 如何存儲用戶數據？

這個你可以用 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編程中用戶的數據應該怎么保存?

在游戲退出時將得分、玩家名、關數、級別這些數值保存到一個

數據文件

，下次運行時再讀取這些數據就可以恢復上次游戲的狀態。

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()