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

发布网友 发布时间：2022-04-22 07:38

我来回答

共2个回答

热心网友 时间：2022-06-17 21:29

在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.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet 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 '释放

热心网友 时间：2022-06-17 21:30

拖个data
写道数据库不就完了么