使用imp/exp的理由 1. 保证BLOB字段的正确导入导出 2. 效率 3. 文件量最小 exp: i = FreeFile Open Left(drv.Drive, 2) & "/exp.bat" For Output Shared As #i Print #i, "exp SRL/SRL@SRL file=" & Left(drv.Drive, 2) & "/SLIDE_INFO.dmp tables=(SLIDE_INFO) query=/" & Chr(34) & " where dbno in" & whereDB & ")/" & Chr(34) Print #i, "exp SRL/SRL@SRL file=" & Left(drv.Drive, 2) & "/ROUGH_IMAGE.dmp tables=(ROUGH_IMAGE) query=/" & Chr(34) & " where dbno in" & whereDB & ")/" & Chr(34) Print #i, "exp SRL/SRL@SRL file=" & Left(drv.Drive, 2) & "/DETAIL_IMAGE.dmp tables=(DETAIL_IMAGE) query=/" & Chr(34) & " where dbno in" & whereDB & ")/" & Chr(34) Print #i, "exp SRL/SRL@SRL file=" & Left(drv.Drive, 2) & "/INTEGRATION.dmp tables=(INTEGRATION) query=/" & Chr(34) & " where integrate_id in (" & whereID & ")/" & Chr(34) Close #i Shell Left(drv.Drive, 2) & "/exp.bat", vbHide imp: Open strDrive & ":/imp.bat" For Output Shared As #i Print #i, "imp SRL/SRL@SRL file=" & strDrive & ":/SLIDE_INFO.dmp tables=(SLIDE_INFO) analyze=y rows=y indexes=y ignore=y" Print #i, "imp SRL/SRL@SRL file=" & strDrive & ":/ROUGH_IMAGE.dmp tables=(ROUGH_IMAGE) analyze=y rows=y indexes=y ignore=y" Print #i, "imp SRL/SRL@SRL file=" & strDrive & ":/DETAIL_IMAGE.dmp tables=(DETAIL_IMAGE) analyze=y rows=y indexes=y ignore=y" Print #i, "imp SRL/SRL@SRL file=" & strDrive & ":/INTEGRATION.dmp tables=(INTEGRATION) analyze=y rows=y indexes=y ignore=y" Close #i Shell strDrive & ":/imp.bat", vbNormalFocus