| 查看: 422 | 回复: 0 | ||
HoneyZhu铁杆木虫 (正式写手)
|
[求助]
VB 将 mdb文件中的指定 表 复制
|
|
通过查询，得到需要的 *.mdb 文件中的表名，现在要将这些指定名称的表复制到一个新的空白 *.mdb 文件中，目前已经经得到的表名存放在 listbox 中，在复制时出了问题，网络搜索未找到满意答案，希望大家能帮帮忙， Dim cn As New Connection, strSQL As String cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & str2 ''目标 mdb 对象, 新建的 mdb 文件 Dim i For i = 0 To List1.ListCount - 1 strSQL = "SELECT * INTO List1.list(i) FROM List1.list(i) IN '" & App.Path & "\db1.mdb'" ''源 mdb 对象 cn.Execute strSQL Next i cn.Close Set cn = Nothing strSQL = "SELECT * INTO List1.list(i) FROM List1.list(i) IN '" & App.Path & "\db1.mdb'" 运行时，就是这句出了问题， List1.list(i)可以写在这里吗？如何修改？谢谢！！！ |
回复此楼» 猜你喜欢
有时候，自然基金真的不能太认真 （我的申报经验）
已经有11人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有68人回复
-
时间戳又变了8-15
已经有23人回复
-
filecode=后面第一个是大写字母
已经有7人回复
-
filecode
已经有12人回复
-
小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊
已经有13人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有7人回复
-
关于Filecode分析方法
已经有13人回复
-
各位道友，我要去昆明玩几天，回来见。
已经有8人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有22人回复
