询问将excel数据导入oracle的方法 寻求方法 ,最好带代码顺便问下如果要每过几秒钟就要批量导入新增量又有什么好的建议 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 PROCEDURE get_from_xls ISCONVID PLS_INTEGER;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; 自己写个ETL小程序定时读取EXCEL插入ORACLE。 希望讲的更明白些 本人刚接触oracle几天 ,原来一直弄 sqlserver 那你就用ado读excel的数据然后再写到oracle中 有没详细介绍组件开发的书籍? 怪问题,解决者另开帖送100分 NMFtp上传到远程服务器,分不够再加 求一SQL语句。高分求救 关于DBGrid的一个奇怪问题 可能是传奇客户端程序或是某一个更新的程序,已经搞定源码(汇编,DELPHI),想知道怎么搞的进来! 有关paradox的修复 请问这个语句该怎么写才是正确的。谢谢。马上结帐。 一个小问题 救命呀,偶对dbedit不熟悉,它的edittext和text属性怎么找不到?,偶用它感知一个主建,没作更改便保存,系统说,must have a value, why? 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