VB如何保存数据库?

Question

本帖最后由 y103049881 于 2011-04-05 19:26:10 编辑

Answer 1

http://download.csdn.net/source/1644211
http://download.csdn.net/source/1498324

Answer 2

'在菜单：工程->引用 里面找 Microsoft ActiveX Data Object 2.8 Library
'在窗体的Form_Load事件里面写如下代码：
    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 用户表 where 用户名称 Like '" & Text1.Text & "%'"
    rst.CursorLocation = adUseClient
    rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid修改数据源Private Sub Command1_Click()
    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 '释放
End Sub

Answer 3

rst.movelast
rs.addnew
rs.field("aa")=text1
rs.field("bb")=text2
rs.update

Answer 4

用朋友说用ADO对象操作ACCESS，必须要加set cnn = new ADODB.Connection和set cnn = new ADODB.Recordset才能实例化，才能正常使用，到底该咋办？