VB做完程序后怎么保存啊？

1、首先，用以下程序设置使VB保存和存储到数据库。

2、接着继续输入程序图片存入数据。

3、在数据库中读出图片。

4、最后通过以下程序的输入使得可以用临时文件保存。

5、最后继续添加如下程序编码，如此一来就可以完成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 '释放

---