Question

Access访问另一个数据库的语句

在D:\1.mdb有个叫"表1"的表格，现在新建一个数据库，做了一张"汇总表"的表格，字段与表1完全相同。现在希望在新数据库的窗体里执行一段程序，读取1.mdb的表1，将里面所有数据追加到汇总表里面，请问这个语句怎么写，谢谢！
谢谢永恒的红烧肉，我看了你的空间，将上边的代码拷下来运行，测试通过！
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim CnStr As String, Sql As String
Dim aa
aa = "D:\数据库备份\"
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & aa & "备份.mdb"
conn.Open
Sql = "INSERT INTO [d:\db1.mdb].汇总数据表 ( id, 年, 月, 代码, 数值1,数值2 )"
Sql = Sql & "SELECT 数据表.id, 数据表.年, 数据表.月, 数据表.代码, 数据表.数值1, 数据表.数值2"
Sql = Sql & " FROM 数据表;"
Set rs = New ADODB.Recordset
rs.Open Sql, conn
我想补充请教一下：①上边的代码还可以怎么优化；
②我进行的是在db1里打开备份.mdb，为什么我还要写db1的路径程序才能通过。因为固定了路径的话，我这个db1就不方便移动了，有没有办法解决？

Answer 1

汗..我怎么觉得..这个问题..把数据库直接拷贝过去..更名为汇总表是效率最高的呢..

如果是一次性导入的问题,可以打开表ctrl+a,ctrl+c..ctrl+v

如果是1.mdb会持续更新的话不知道具体表里有没有唯一序号,或者加个字段作为是否已导入汇总表的标志.循环导

我现在有点不明白的是,lz的20个表是来自于什么地方?是在D盘下建立20个表,分别命名为1.mdb、2.mdb、...、20.mdb么?
如果是的话,完全可以编程,分别连接这些数据库,读取相应表的记录,写入汇总表中. 哦`还是刚才那问题,就是每个表里的数据是导到汇总表里就删除了,还是什么方式标识下?
ps:今天看了vba`觉得这可能用vba实现就好了..

我用网页版的百度HI,总打不开..
你可以增加一个打开对话框啊!在打开对话框里去指定源数据库路径!
还有就是怎么感觉你的insert语句..是不是有点问题啊..这是把1.mdb插入到备份表里?

Answer 2

桌面上应该是：

Set conn = CreateObject("ADODB.Connection")
或
Set conn = Wscript.CreateObject("ADODB.Connection")

Answer 3

你看一下链接表，和本地一样了