Foxtable(狐表) → 用户栏目 → 专家坐堂 → 一个表能复制到另一个数据库中吗？


  共有3334人关注过本帖树形打印复制链接

主题：一个表能复制到另一个数据库中吗？
帅哥哟，离线，有人找我吗？
czy66ds
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1690 积分：16438 威望：0 精华：0 注册：2013/7/31 13:03:00 		一个表能复制到另一个数据库中吗？  发帖心情 Post By：2020/7/28 14:49:00 [显示全部帖子]

如题

 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1690 积分：16438 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2020/7/28 15:09:00 [显示全部帖子]

谢谢。在帮助中找不到相关内容，不知数据源写在哪里。
可以提供一段代码吗？
 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1690 积分：16438 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2020/7/28 21:20:00 [显示全部帖子]

回复蓝大师：

我在包含原表的项目中的命令窗口执行如下代码

Connections.Add("gsjcc","Provider=xxxxxxxxx")
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "select * f rom{阿迪销售记录表9}"
Dim dt As DataTable
dt = cmd.ExecuteReader    '目标临时表

For Each dr1 As DataRow In DataTables("阿迪销售记录表9").DataRows
    Dim dr As DataRow = dt.AddNew()
    For Each dc As DataCol In DataTables("阿迪销售记录表9").DataCols
        dr(dc.Name) = dr1(dc.name)
    Next
dr.Save
Next
结果报错：
当传递具有新行的 DataRow 集合时，Update 要求有效的 InsertCommand。

哪里出了问题？
 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1690 积分：16438 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2020/7/28 21:28:00 [显示全部帖子]

回复绿火柴：
谢谢你出手相助

我在项目的“执行SQL”中执行 select * gs20150605.dbo.阿迪销售记录表9 f rom 阿迪销售记录表9
结果报错
'gs20150605' 附近有语法错误。

涉及的两个数据库都在同一个服务器上，何故？
 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1690 积分：16438 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2020/7/28 21:59:00 [显示全部帖子]

向蓝大师报喜：
谢谢提醒，我犯了一个低级错误，生成临时表时未加（true）
现在代码正在顺利运行中。20分钟生成了2万5千行记录。
昨天我把原表导出为access文件，再用合并的办法，10万行记录，运行了五六个小时！郁闷！所以今天才请教你，另辟蹊径。十分感谢。
另外绿火柴的方法如果成功的话，是否能更快？为什么报错呢？
 回到顶部
帅哥哟，离线，有人找我吗？
czy66ds
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1690 积分：16438 威望：0 精华：0 注册：2013/7/31 13:03:00 		  发帖心情 Post By：2020/7/28 22:01:00 [显示全部帖子]

我明白了，少了into

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 5 次数据查询