使用VBA将Access查询追加到SQL Server表中

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")

conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
conn.Open

Dim db As Object
Set db = CurrentDb

Dim rs As Object
Set rs = db.OpenRecordset("查询名称或SQL语句")

' 可以根据需要遍历记录集，获取查询结果
While Not rs.EOF
    ' 获取记录集中的字段值
    Dim fieldValue As String
    fieldValue = rs("字段名").Value
    
    ' 执行其他操作，例如插入到SQL Server表中
    ' ...
    
    rs.MoveNext
Wend

' 关闭记录集和数据库连接
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing