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

kent_73

风中漫步 发表于 2017-1-16 14:27
Tb_查询_temp_admin存在吗？

存在的。
完整的代码
Dim Cmd As New ADODB.Command
Dim param As ADODB.Parameter


''fuser是用户名的变量
ftbname = "Tb_查询_temp_" & fuser


Set Cmd = New ADODB.Command
Set param = Cmd.CreateParameter("@ftablename", adChar, adParamInput, 255, ftbname)
Cmd.Parameters.Append param


''''''删除临时表
rs.Open "SELECT name FROM sysobjects WHERE name = '" & ftbname & "'", cnn, 1, 1
If rs.EOF = False Then cnn.Execute = "DROP TABLE " & ftbname
If rs.State = 1 Then rs.Close
Cmd.CommandType = adCmdStoredProc
Cmd.ActiveConnection = cnn
Cmd.CommandText = "Dt_查询_temp"  ''''存储过程
Set rs = Cmd.Execute

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

风中漫步

If rs.EOF = False Then cnn.Execute = "DROP TABLE " & ftbname，注掉这句试试

风中漫步

存储过程是在做什么？

kent_73

风中漫步 发表于 2017-1-16 14:58
If rs.EOF = False Then cnn.Execute = "DROP TABLE " & ftbname，注掉这句试试

需要通过存储过程创建表的，注释了会有问题的吧

风中漫步

kent_73 发表于 2017-1-16 14:59
需要通过存储过程创建表的，注释了会有问题的吧

什么问题？

kent_73

风中漫步 发表于 2017-1-16 15:16
什么问题？

重复创建表

存储过程大致意思
创建临时表
得到结果并把结果写到创建的临时表中

由于数据量大，必须用存储过程来计算后放到临时表中

风中漫步

Tb_查询_temp，这个表存在吗

kent_73

风中漫步 发表于 2017-1-16 15:36
Tb_查询_temp，这个表存在吗

存在的

整段代码，我是执行到
CurrentProject.Connection.Execute "insert INTO [" & CurrentProject.Path & "\新建 Microsoft Office Access 应用程序.mdb].[Tb_查询_temp] select * FROM " & ftbname & ""
出现错误

sql表
access表

风中漫步

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

kent_73

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

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