寻求方法 ,最好带代码顺便问下如果要每过几秒钟就要批量导入新增量又有什么好的建议
解决方案 »
- udp数据发送能力问题
- 请教如何实现这样的功能:系统等待外部程序的某个弹出对话框出现,如果对话框出现了,那么将触发一个模拟按键的动作。
- 如何用程序实现在DBGrid中用鼠标+shift键多选 ?
- 关于VFP的问题之一
- 怎么在Word里画表格?
- 我想自绘轨迹条(TrackBar),但是怎么才能得到滑块的Rect呢??高分酬谢!!
- 写了一个艰难的程序,多线程同步延迟导致线程无法正常退出
- 哪里有InstallShield Express Custom Edition for Dephi5下载??
- 如何在主程序运行之前先弹出一个登陆框????
- 某公司给我出的招聘试题
- Edit框的简单问题
- 为什么程序启动时,窗口显示后自动关闭,然后程序就退出了?
APPID PLS_INTEGER;
i number;
x number;
v_name VARCHAR2(100);
v_BRN varchar2(10);
v_NO varchar2(10);OUT_FILR TEXT_IO.FILE_TYPE;
BEGINsynchronize;
-- Appid := dde.app_begin('C:\Program Files\Microsoft Office\Office\excel.exe C:\ora_xls\creadit.xls',dde.app_mode_minimized);
Appid := dde.app_begin('E:\Program Files\Microsoft Office\Office11\excel.exe C:\oracle_excel\EMP_ALL.xls',dde.app_mode_minimized);dde.app_focus(appid);
convid := dde.initiate('EXCEL',/*:BLOCK2.SHEET_NAME*/'Sheet1' );x := 0;FOR I IN 2..100000 loopdde.request(convid,'R' || to_char(i) ||'C1',v_brn,dde.cf_text,100000);
dde.request(convid,'R' || to_char(i) ||'C2',v_no,dde.cf_text,100000);
dde.request(convid,'R' || to_char(i) ||'C3',v_name,dde.cf_text,100000);if substr(v_no,1,length(v_no)-2) is null then exit;end if;insert into EXCEL_TBL(
CODE ,
NAME )
VALUES(
substr(v_brn,1,length(v_brn)-2),
substr(v_no,1,length(v_no)-2));
x:= x + 1;
end loop;
COMMIT;
dde.terminate(convid);
dde.app_end(appid);
END;
本人刚接触oracle几天 ,原来一直弄 sqlserver