在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就不方便移动了,有没有办法解决?