vb.net参数保存 vb 保存数据

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保存数据

都是用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 本地保存数据

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储存文本数据方法

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 将参数传入 存储过程 的 问题?

//存储过程代码

CREATE PROCEDURE [AddNewInvoiceInfo] (@sUserID int,@sClaimMethod varchar(50),@sInvoiceNum varchar(50),@sInvoiceDate datetime,@sBuyCity varchar(50))AS

Insert Into SMB_InvoiceInfo (MemberID,ClaimMethod,InvoiceNum,InvoiceDate,InvoiceCity) Values (@sUserID,@sClaimMethod,@sInvoiceNum,@sInvoiceDate,@sBuyCity)

return @@IDENTITY

GO

//调用存储过程代码

Dim CN As New SqlConnection()

Dim InvoiceID As String

Try

CN.ConnectionString = DBConStr

CN.Open()

Dim CMD As SqlCommand

CMD = New SqlCommand(AddNewInvoiceInfo, CN)

CMD.CommandType = CommandType.StoredProcedure

CMD.Parameters.Add(New SqlParameter(@sUserID, SqlDbType.Int))

CMD.Parameters(@sUserID).Value = CInt(UserID.Text)

CMD.Parameters.Add(New SqlParameter(@sClaimMethod, SqlDbType.VarChar, 50))

CMD.Parameters(@sClaimMethod).Value = TransName.Text

CMD.Parameters.Add(New SqlParameter(@sInvoiceNum, SqlDbType.VarChar, 50))

CMD.Parameters(@sInvoiceNum).Value = InvoiceNum.Text

CMD.Parameters.Add(New SqlParameter(@sInvoiceDate, SqlDbType.DateTime))

CMD.Parameters(@sInvoiceDate).Value = InvoiceDate.SelectedDate.Date

CMD.Parameters.Add(New SqlParameter(@sBuyCity, SqlDbType.VarChar, 50))

CMD.Parameters(@sBuyCity).Value = BuyCity.Text

CMD.Parameters.Add(New SqlParameter(@sInvoiceID, SqlDbType.Int))

CMD.Parameters(@sInvoiceID).Direction = ParameterDirection.ReturnValue

CMD.ExecuteNonQuery()

InvoiceID = CMD.Parameters(@sInvoiceID).Value.ToString()

CMD.Dispose()

Catch ex As Exception

Response.Write(ex.ToString())

Finally

CN.Close()

End Try

VB.net怎样保存文件

保存文件的步骤为：

关闭流，特别是写入流

关闭并保存文件

示例代码如下：

Imports System.Windows.Forms

Imports System.IO

Imports System.Text

Sub SaveFileDemo()

'打开文件。如果文件不存在则创建新的文件

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("白刃格斗英雄连英模部队方队亮相阅兵")

'关闭流

tw.Close()

'关闭文件并保存文件

myFile.Close()

End Sub