如何从sql server数据库批量复制数据到本地ACCESS表

kent_73

求教，如何从sql server数据库批量复制数据到本地ACCESS表。用for循环，速度太慢了


'''''''把数据复制到本地临时表
Dim rs As New ADODB.Recordset
Set cnn = New ADODB.Connection
Set mydb = CurrentProject.Connection
cnn.Open "rovider=SQLOLEDB;Data Source=192.168.0.1;UID=saWD=******;initial catalog=SHUJUKU"
If rs.State = 1 Then rs.Close
sql = "SELECT 字段1,字段2,字段3 FROM mssql表 GROUP BY 字段1,字段2,字段3"
rs.Open sql, cnn, 1, 1
If rs.EOF = False Then
''''用for循环，速度太慢了
For i = 1 To rs.RecordCount
DoCmd.RunSQL "insert into access表(字段1,字段2,字段3) VALUES( '" & rs!字段1 & "' ,'" & rs!字段2 & "' ,'" & rs!字段3 & "')"
rs.MoveNext
Next
End If



帮我改下代码，谢谢了

tmtony

1.使用记录集 Rs.addnew 看看
2.如果 是一次性的，使用Sqlserver管理器的本身的直接导出到access

kent_73

数据是一次性的。
我是在执行代码的过程中，怎么调用Sqlserver管理器？

access新新新手

kent_73 发表于 2017-1-16 11:37
数据是一次性的。
我是在执行代码的过程中，怎么调用Sqlserver管理器？

一次性的可以用access链接SQL Server的表，

然后复制access的链接表为本地表

不需要代码

kent_73

access新新新手 发表于 2017-1-16 12:15
一次性的可以用access链接SQL Server的表，

然后复制access的链接表为本地表

这个是临时表数据，为了避免多人同时使用，sql server上的临时表名是动态的，无法链接表。

access新新新手

kent_73 发表于 2017-1-16 12:48
这个是临时表数据，为了避免多人同时使用，sql server上的临时表名是动态的，无法链接表。

    CurrentProject.Connection.Execute "insert INTO [" & CurrentProject.Path & "\数据库b.mdb].[数据库b表] select * FROM 数据库a表"

kent_73

access新新新手 发表于 2017-1-16 13:15
CurrentProject.Connection.Execute "insert INTO [" & CurrentProject.Path & "\数据库b.mdb].[数 ...

'''ftbname是动态表名
CurrentProject.Connection.Execute "insert INTO [" & CurrentProject.Path & "\新建 Microsoft Office Access 应用程序.mdb].[Tb_查询_temp] select * FROM " & ftbname & ""

执行后出现如图的错误

风中漫步

动态表名是怎么个动态法呢？

kent_73

风中漫步 发表于 2017-1-16 14:02
动态表名是怎么个动态法呢？

变量=表名+用户名

风中漫步

Tb_查询_temp_admin存在吗？