vb如何实现数据保存？ – 网络|

DimcnAsNewADODB.Connection’声明一个连接对象

DimrstAsNewADODB.Recordset’声明一个记录集对象

DimSqlStrAsString’声明一个字符串变量

cn.Open”Provider=Microsoft.Jet.OLEDB.4.0;DataSource=”&App.Path&”\db1.mdb;Mode=ReadWrite;PersistSecurityInfo=False;JetOLEDB:DatabasePassword=111″

‘上面是连接到数据库

SqlStr=”Select*From用户表”

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

rst.OpenSqlStr,cn,adOpenDynamic,adLockOptimistic,adCmdText’打开记录集

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

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

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

rst.Close’关闭记录集

Setrst=Nothing’释放

cn.Close’关闭连接

Setcn=Nothing’释放