
程序代码:
Public Con As ADODB.Connection '连接数据库
Public Res As ADODB.Recordset '数据库的表
Private Sub 按钮_Click()
Set Con = New ADODB.Connection
Con.Open "provider=Microsoft.ACE.OLEDB.12.0;Data Source=" 数据库路径\数据库"
SQL = "update 要更新的表 set 字段1='要更新的内容' where 字段2='内容2'"
Con.Execute SQL
Con.Close
Set Con = Nothing
End Sub
[
本帖最后由 mpy2003 于 2013-4-24 13:24 编辑 ]