大虾来帮忙啊！这回有附件了！急，急，急

einstein_su · 发表于 2006-5-26 13:35

大虾来帮忙啊！意思是，我有一个COMM的文件夹，里面有MDB文件：2006-5-18.MDB 2006-5-19.MDB 2006-5-20.MDB 2006-5-21.MDB 四个文件，并且要用WINRAR打开，把里面的SALELIBA，文件导入到，1.MDB文件中的表 SALELIBA 里面。我若想在窗体上设置，如1.MDB窗体1上进行导入到1.MDB中的SALELIBA里面然后再进行操作。最后将导入的资料清空。各位大虾帮帮忙啊！！！！（请看资料）

wLaF69O8.rar (151.96 KB, 下载次数: 8)

zhqang · 发表于 2006-5-27 08:35

那四个mdb文件格式不对，打不开。

einstein_su · 发表于 2006-5-29 09:24

是WINRAR文件大虾们帮下忙啊！

einstein_su · 发表于 2006-6-1 10:47

帮帮忙啊，大虾们！

james.wan · 发表于 2006-6-1 19:09

确实存在2楼所说的问题,请楼主更改附件后再上传.

einstein_su · 发表于 2006-6-2 15:52

好了！

einstein_su · 发表于 2006-6-2 17:27

6楼是我重新整理的文件，大虾们帮忙啊，等了好几天了！！！！！

einstein_su · 发表于 2006-6-8 11:54

帮帮忙啊！

james.wan · 发表于 2006-6-17 11:16

试试：

Private Sub Command6_Click()
On Error Resume Next
Dim qdf As QueryDef
d = CurrentProject.Path & "\comm"
With Application.FileSearch
.LookIn = d
.FileType = msoFileTypeDatabases
.Execute
For i = 1 To .FoundFiles.Count
DoCmd.TransferDatabase acImport, "Microsoft Access", .FoundFiles(i), acTable, "SaleLibA", "SaleLibA"
Next i
For i = 1 To CurrentDb.TableDefs.Count
If InStr(1, CurrentDb.TableDefs(i).Name, "SaleLibA") > 0 Then
s = s & "select * from " & CurrentDb.TableDefs(i).Name & " union all "
End If
Next i
End With

SQL = Left(s, Len(s) - 10)
Set qdf = CurrentDb.CreateQueryDef("me", SQL)

End Sub

		自动登录	找回密码
密码			免费注册