如何从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



帮我改下代码，谢谢了

风中漫步

kent_73 发表于 2017-1-16 16:29
说是找不到sql server上的表Tb_查询_temp_admin。

现在是我的存储过程执行结束了，表示肯定存在的。

这也可能是游标设置问题，你修改一下游标类型试试看

kent_73

access新新新手 发表于 2017-1-17 12:01
慢慢调试，可以实现的，

这个可以把a数据表写入b数据库表的

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

这段代码是ACCESS表到ACCESS表吧。
我是从SQL SERVER表到ACCESS表。

access新新新手

kent_73 发表于 2017-1-17 08:20
是的，FOR循环太慢了。

但是这个又实现不了，求解啊

慢慢调试，可以实现的，

这个可以把a数据表写入b数据库表的

kent_73

access新新新手 发表于 2017-1-16 16:33
这种是最快的，用循环数据大了很慢的

是的，FOR循环太慢了。

但是这个又实现不了，求解啊

access新新新手

kent_73 发表于 2017-1-16 16:29
说是找不到sql server上的表Tb_查询_temp_admin。

现在是我的存储过程执行结束了，表示肯定存在的。

这种是最快的，用循环数据大了很慢的

kent_73

风中漫步 发表于 2017-1-16 16:22
CurrentProject.Connection.Execute "insert INTO [" & CurrentProject.Path & "\新建 Microsoft Office Ac ...

说是找不到sql server上的表Tb_查询_temp_admin。

现在是我的存储过程执行结束了，表示肯定存在的。

风中漫步

CurrentProject.Connection.Execute "insert INTO [" & CurrentProject.Path & "\新建 Microsoft Office Access 应用程序.mdb].[Tb_查询_temp] select * FROM " & ftbname
这样呢？

kent_73

风中漫步 发表于 2017-1-16 15:55
改成"insert INTO [" & CurrentProject.Path & "\新建 Microsoft Office Access 应用程序.mdb].[Tb_查询_te ...

提示insert into语句的语法错误。

风中漫步

改成"insert INTO [" & CurrentProject.Path & "\新建 Microsoft Office Access 应用程序.mdb].[Tb_查询_temp] from select * FROM " & ftbname & ""试试