vb用imp和exp来实现部分数据的导入导出

来源：互联网发布：多线程共享数据的方式编辑：程序博客网时间：2024/06/05 00:22

使用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