VB如何将程序的数据保存？VB6.0
写入：
Open "D:\123.txt" For Output As #1 '打开XXX路径vb.net保存数组数据的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表示循环读取文件的内容vb.net保存数组数据，并让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()
读取csv文件保存到数组 vb.net代码csv文件可以当做文本文件来处理！
主要处理代码如下：
Dim t As String, b() As stirng, s(10) As String, cj(10) As Single
t = "" '这里是你读取vb.net保存数组数据的CSV文件内容
【vb.net保存数组数据 vba 存入数组】b() = Split(t, vbCrLf)
For j = 0 To 9
s(j) = b(j) '这个就是每一行的数据vb.net保存数组数据了
c() = Split(s(j), ",")
cj(j) = Val(c(1)) '这个就是每一行的成绩数据了
Next
'然后进行排序和显示处理
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读取TXT文件数据保存为数组VB.NET编程读取txt文本文档中的数据，并把数据保存为数组，代码如下：
'写配件文件
Private Sub saveIni(ByVal filePath As String, ByVal str As String)
Dim sw As StreamWriter = New StreamWriter(filePath, True) 'true是指以追加的方式打开指定文件
sw.WriteLine(str)
sw.Flush()
sw.Close()
sw = Nothing
End Sub
'读配件文件
Private Function readIni(ByVal filePath As String)
Dim iniDt As New DataTable
iniDt.Columns.Add("text")
iniDt.Columns.Add("value")
Try
Dim sr As StreamReader = New StreamReader(filePath, System.Text.Encoding.Default)
Dim line As String = ""
While Not sr.EndOfStream
Dim str = sr.ReadLine()'读取当前行
iniDt.Rows.Add(New String() {
str(0),
str(1)
})
End While
sr.Close()
sr = Nothing
Catch ex As Exception
End Try
Return iniDt
End Function
vb.net 怎么把数据库数据一条记录存入数组啊 最好给出代码Dim da As New DataTable
Dim myda As OleDb.OleDbDataAdapter("SELECT * FROM 表“, oconnection)
myda.Fill(da)
姓名=da.Rows(0)(0) ‘张三
姓名=da.Rows(1)(0) ‘李四
姓名=da.Rows(2)(0) ‘王五
姓名=da.Rows(3)(0) ‘赵六
姓名=da.Rows(4)(0) ‘刘琦
推荐阅读
- 微信小程序每月都要审核吗，微信小程序每月都要审核吗是真的吗
- java代码从数据库取值，java怎么获取数据库表里面的内容
- c语言绑定函数 c语言怎么定义函数并调用
- go语言可以开发大型游戏，大型网游用什么语言开发的
- 赛车赛车小游戏游戏大全，赛车游戏合集
- jquery判断日期，jquery获取年月日
- PHP函数名写数据库 php数据库写入实例
- mongodb字段列表，mongodb字符集
- 固态硬盘安装程序怎么卸载，固态硬盘安装程序怎么卸载软件