VB如何用ADO向ACCESS数据库插入和修改记录?

1、Microsoft Access窗口中，选择文件菜单中的打开选项，打开一个已有的数据库。

2、数据库中有两张表格，如下图所示。

3、数据库中，表格学生信息是课程成绩的子表。

4、如果直接在子表中插入记录，会提示不能添加或修改。

5、其实，只需在主表中，插入相关的主键和记录。

6、接着，就可以在子表中插入相关记录了。

7、如果要在子表中插入字段，只需选择单击以添加选项。

8、新增字段后，输入字段名即可。

试编写代码如下：

Private Sub Command1_Click()

    Dim db As New ADODB.Connection

    Dim RS As New ADODB.Recordset

    Dim sql As String 'SQL字符串

    

    db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0Data source =D:\Projects\temp\data.mdb" '数据库连接

    db.Open '打开数据库

        

    sql = "UPDATE [user] SET Sl=Sl-" & Text1.Text & " WHERE Xm='张三'"

    

    RS.Open sql, db, 1, 3

    

    Set db = Nothing

    Set RS = Nothing

End Sub

运行截图：

---