| 查看: 391 | 回复: 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)可以写在这里吗?如何修改?谢谢!!! |
» 猜你喜欢
一志愿太原理工安全工程300分,求调剂
已经有5人回复
调剂求院校招收
已经有4人回复
求化学调剂
已经有4人回复
085600,材料与化工321分求调剂
已经有7人回复
一志愿武汉理工,总分321,英一数二,求老师收留。
已经有6人回复
考研调剂
已经有6人回复
0856求调剂
已经有12人回复
0703化学
已经有9人回复
0703化学求调剂
已经有10人回复
317求调剂
已经有6人回复














回复此楼