Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

请教怎样用代码样复制表?

Yong.H  发表于:2009-11-02 10:03:48  
复制

请问怎样用代码复制表?谢谢!

 

点击下载此附件

 

Top
钱玉炜 发表于:2009-11-02 13:01:10
通过select into 语句来实现,也就是生成表查询,通过利用生成表查询,得到一个和原表一样结构一样数据的表,具体可以查看select into语句的帮助

andymark 发表于:2009-11-02 13:04:08

'用TransferDatabase 复制可以保证跟原表的格式一致

Private Sub Command0_Click()
DoCmd.TransferDatabase acImport, "Microsoft Access", CurrentDb.Name, acTable, "表1", "表3"

 

End Sub



樟树 发表于:2009-11-02 15:39:08

DoCmd.CopyObject , "表2", acTable, "表1"

“表2”为新表,“表1”为原表



Yong.H 发表于:2009-11-02 15:48:20

谢谢! 2、3楼的朋友, 1楼的方法可能说得具体一点吗?

我想再问一下, 如果要复制到另一个文件, 路径应该怎样写?



andymark 发表于:2009-11-02 16:11:44

复到别的数据库

 

DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\db10.mdb", acTable, "表1", "表3"



Yong.H 发表于:2009-11-02 17:24:24

DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\db10.mdb", acTable, "表1", "表3"

 

我这样写不行, 路径错误



andymark 发表于:2009-11-02 17:58:24

CurrentProject.Path & "\db10.mdb"   --这里里当前路径的db10.mdb

 

你修改成具体的文件路径呀



樟树 发表于:2009-11-02 19:26:00

DoCmd.CopyObject , "表2", acTable, "表1"

在第一个逗号前面写上目标数据库完整路径,可参考7楼



Yong.H 发表于:2009-11-03 08:19:02
谢谢各位!! 让我测试了再来加分.

总记录:9篇  页次:1/1 9 1 :