vb.net 如何存儲(chǔ)用戶(hù)數(shù)據(jù)？

這個(gè)你可以用 api操作ini文件來(lái)實(shí)現(xiàn)。ini是windows系統(tǒng)的配置文件。

站在用戶(hù)的角度思考問(wèn)題，與客戶(hù)深入溝通，找到張灣網(wǎng)站設(shè)計(jì)與張灣網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶(hù)體驗(yàn)好的作品，建站類(lèi)型包括：網(wǎng)站建設(shè)、網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名注冊(cè)、網(wǎng)絡(luò)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋張灣地區(qū)。

'首先聲明這兩個(gè)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保存數(shù)據(jù)

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

寫(xiě)入數(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ǔ)過(guò)程的返回值

Dim?cmd?As?New?SqlCommand()

cmd.CommandType?=?CommandType.StoredProcedure

cmd.CommandText?=?"proc?name"

'參數(shù)名可以任意，但最好與存儲(chǔ)過(guò)程的return一致

'默認(rèn)值隨便寫(xiě)

Dim?ret?As?New?SqlParameter("ret",?0)

'返回值類(lèi)型才有下面一句

ret.Direction?=?ParameterDirection.ReturnValue

cmd.Parameters.Add(ret)

'其他的參數(shù)和一般的sql語(yǔ)句沒(méi)區(qū)別

'...

cmd.ExecuteNonQuery()

'得到了ret

VB.NET怎么位運(yùn)算?

注意只能對(duì)整型執(zhí)行按位運(yùn)算。浮點(diǎn)值必須轉(zhuǎn)換為整型后，才能執(zhí)行按位運(yùn)算。按位運(yùn)算采用二進(jìn)制（以 2 為基）形式計(jì)算兩個(gè)整數(shù)值。它們比較對(duì)應(yīng)位置上的位，然后基于比較的結(jié)果賦值。下面的示例演示了 And 運(yùn)算符。復(fù)制Dim x As Integerx = 3 And 5 前面的示例將 x 的值設(shè)置為 1。發(fā)生這種情況的原因如下：這些值以二進(jìn)制形式處理：二進(jìn)制格式的 3 為 011二進(jìn)制格式的 5 為 101And 運(yùn)算符比較這些二進(jìn)制表示方式，一次比較一個(gè)二進(jìn)制位置（位）。如果給定位置的兩個(gè)位都為 1，則將 1 放在結(jié)果中的該位置。如果任何一個(gè)位是 0，則將 0 放在結(jié)果中的該位置。在前面的示例中，按如下所示計(jì)算結(jié)果：011（二進(jìn)制格式的 3）101（二進(jìn)制格式的 5）001（二進(jìn)制格式的計(jì)算結(jié)果）計(jì)算結(jié)果以十進(jìn)制形式處理。值 001 是 1 的二進(jìn)制表示形式，因此 x = 1。除了在任何一個(gè)比較位是 1 或兩個(gè)比較位都是 1 的情況下將 1 賦予結(jié)果位以外，按位 Or 運(yùn)算與此類(lèi)似。Xor 在比較的位正好只有一個(gè)是 1（而不是兩者都是 1）時(shí)將 1 賦給結(jié)果位。Not 采用單個(gè)操作數(shù)并反轉(zhuǎn)所有位（包括符號(hào)位），然后將該值賦予結(jié)果。這意味著，對(duì)于有符號(hào)正數(shù)，Not 始終返回負(fù)值，而對(duì)于負(fù)數(shù)，Not 始終返回正值或零。AndAlso 和OrElse 運(yùn)算符不支持按位運(yùn)算。 追問(wèn)： 好復(fù)雜啊...還是不會(huì),還有整數(shù)怎么轉(zhuǎn)換為二進(jìn)制數(shù)? 回答： 為什么一定要用位運(yùn)算呢，你那個(gè)乘法只能通過(guò)左移操作符“ ”來(lái)進(jìn)行，而左移一次代表乘以2，要是乘以一個(gè)小數(shù)，就必須先化成2的n次方，不夠再用加減法調(diào)整，很麻煩啊，沒(méi)必要用位運(yùn)算啊。。。 追問(wèn)： 因?yàn)槲乙M(jìn)行大量的運(yùn)算,但速度要快,所有用位運(yùn)算...我也不想啊.. 回答： 那就不該用VB 啊，c/c++在執(zhí)行效率上是沒(méi)話(huà)說(shuō)的。 追問(wèn)： 問(wèn)題就是不會(huì)嘛... 回答： 那你上csdn上發(fā)帖效果應(yīng)該不錯(cuò) 追問(wèn)： CSDN發(fā)了,我發(fā)在高性能運(yùn)算,沒(méi)人... 回答： 耐心一些，或者你應(yīng)該發(fā)到VB.NET論壇那里。。。 追問(wèn)： 額..只能這樣了... 提問(wèn)者 的感言： 太復(fù)雜了..算了 2010-11-08

vb.net 怎樣使計(jì)算結(jié)果只保留四位小數(shù)？

用這個(gè)函數(shù)把

Math.Round 方法 (Decimal, Int32)

將小數(shù)值舍入到指定精度。

命名空間： System

程序集： mscorlib（在 mscorlib.dll 中）

語(yǔ)法

Visual Basic（用法）

Dim d As Decimal

Dim decimals As Integer

Dim returnValue As Decimal

returnValue = Math.Round(d, decimals)

參數(shù)

d

類(lèi)型：System.Decimal

要舍入的小數(shù)。

decimals

類(lèi)型：System.Int32

返回值中的小數(shù)位數(shù)（精度）。

返回值

類(lèi)型：System.Decimal

精度等于 decimals，最接近 d 的數(shù)字。

Math.Round(3.4666666, 4) 結(jié)果是 3.4667.

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

Private Sub Command1_Click()

'寫(xiě)文件示例

Dim strFileName As String '文件名

Dim lngHandle As Long '句柄

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

strFileName = App.Path "\a.txt"

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

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

lngHandle = FreeFile() '取得句柄

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

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

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

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

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

Open strFileName For Output As lngHandle '打開(kāi)文件

Print #lngHandle, strWrite '寫(xiě)入文本

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ù)表示以何種方式打開(kāi)文件，Input是讀取，Output是覆蓋寫(xiě)入，Append是追加寫(xiě)入

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)閉打開(kāi)的文件

End Sub

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

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

分享標(biāo)題：存儲(chǔ)vb.net計(jì)算結(jié)果 vb存儲(chǔ)數(shù)據(jù)
當(dāng)前路徑：http://jinyejixie.com/article10/hpdgdo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供Google、品牌網(wǎng)站制作、云服務(wù)器、手機(jī)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)公司、外貿(mào)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)