VB如何使用ADO修改ACCESS数据

Question

在textbox里面填入数字后，点击Command1按钮可以使数据库对应的原数据减去填在textbox里面的数字

Answer 1

试编写代码如下：

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.0;Data 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

运行截图：

Answer 2

用update语句，具体文件发来帮你处理