VB中怎样保存数据（保存在VB数据库里）？

方法一：在数据库中建笑返一个表，把当前最后余茄的碰毁饥输入值保存在该表里，，每次执行程序都从数据库里读取，

方法二：在程序中建一个文本文件或xml文件，每次都写入文件中，下次从文件中读取

方法三：把输入值存入注册表的某个位置，下次从注册表里读取！

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

Private Sub Command1_Click() '储存

Open App.Path &"\1.txt" For Append As #1

Print #1, Replace(Text1, " ", ""穗猛) &" " &Replace(Text2, " ", "")

Close #1

End Sub

Private Sub Command2_Click()'显示

Dim a As String

Open App.Path &"\1.txt" For Input As #1

Do Until EOF(1)

Line Input #1, a

t = Split(a, " ")

If UBound(t) = 1 Then

If t(0) = Text1 Then

Text2 = t(1)

Exit Do

End If

End If

Loop

Close #1

End Sub

'请猜旦桥迟旅参考。

---