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

1.使用文件来记录,下次运行时读取.2.使用数据库,可以考虑单机数据库或网络数据库 3.如果数据量小,使用注册表.

或者可以通过程序来保存：

set fs=createobject("scripting.filesystemobject")'创建文件 *** 作对象

if fs.fileexists("C:\a.txt") then'如果C盘A.txt存在，那么读取其内容

set txt=fs.opentextfile("C:\a.txt",forreading,true)

set txtn=txt.readall

else'

set txtf=fs.createtextfile("c:\a.txt",true)'创建C盘下的a.txt

do'无限循环

wscript.sleep 1000'延时一秒

txtf.write a.text'写入文本框中内容

loop'循环结束

end if'判断结束

在VB菜单：工程->引用 里面找 Microsoft ActiveX Data Object 2.8 Library,并勾选上

Dim cn As New ADODB.Connection'声明一个连接对象

Dim rst As New ADODB.Recordset'声明一个记录集对象

Dim SqlStr As String'声明一个字符串变量

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\db1.mdbMode=ReadWritePersist Security Info=FalseJet OLEDB:Database Password=111"

'上面是连接到数据库

SqlStr = "Select * From 用户表"

rst.CursorLocation = adUseClient'设置游标位置

rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集

rst.Fields("用户名称").Value = Text1.Text'修改记录集中第一条记录"用户名称"字段的数值

rst.Fields("用户口令").Value = Text2.Text'修改记录集中第一条记录"用户口令"字段的数值

rst.UpdateBatch '提交，就是写到硬盘的数据库文件

rst.Close '关闭记录集

Set rst = Nothing '释放

cn.Close '关闭连接

Set cn = Nothing '释放

---