从VBA插入或更新SQL中的记录

Sub InsertRecord()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    
    ' 创建数据库连接
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    conn.Open
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 构造插入SQL语句
    strSQL = "INSERT INTO 表名 (字段1, 字段2, 字段3) VALUES ('值1', '值2', '值3')"
    
    ' 执行SQL语句
    conn.Execute strSQL
    
    ' 关闭连接
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
End Sub

Sub UpdateRecord()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    
    ' 创建数据库连接
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    conn.Open
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 构造更新SQL语句
    strSQL = "UPDATE 表名 SET 字段1 = '新值1', 字段2 = '新值2' WHERE 条件"
    
    ' 执行SQL语句
    conn.Execute strSQL
    
    ' 关闭连接
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
End Sub