老师,您好:
我用如下code导出了检测申请表,但是在merge的时候,出现报错:Microsoft Jet 数据库引擎找不到输入表或查询 '检测申请'。 确定它是否存在,以及它的名称的拼写是否正确。
我通过杂项->高速合并功能,手动合并时,也是找不到表。
请问,该如何解决,谢谢!
'导出
Dim dt1 As New Date(2021,8,4,0,0,0)
Dim dt2 As New Date(2021,8,4,23,59,59)
Dim ex1 As New Exporter
ex1.SourceTableName = "检测申请"
ex1.Filter = "申请日期 >= '" & dt1 & "' And 申请日期 <= '" & dt2 & "'"
ex1.FilePath = "D:\数据库\Merge\检测申请.mdb"
If FileSys.FileExists(ex1.FilePath) Then
FileSys.DeleteFile(ex1.FilePath)
End If
ex1.Export()
‘merge
Dim mg As New Merger
mg.SourcePath = "D:\数据库\Merge\检测申请.mdb"
mg.SourceTableName = "检测申请"
mg.DataTableName = "检测申请"
mg.Merge()