Oracle与Access表之间的导入导出实现

问题是:如何在FORM的程序中导入导出Oracle和Access表。

问题的答案:

准备工作:

1.安装OCA。运行Developer的安装盘，选择自定义安装，选择Oracle Open Client Adapter for ODBC安装。

2.在数据源(ODBC)中添加DSN。控制面板->管理工具->数据源(ODBC)，选择“用户DSN”，添加要操作的Access文件。在“高级”选项中，填写“登录名”和“密码”(非常重要，程序中会用到)。

以下实例用于说明:

假设Oracle和Access中有一个学生表，具有相同的字段(姓名char(10)，年龄号(2))。在准备2中，数据源名称是test，登录名和密码都是user。

以下过程从Oracle导出到Access:

下面是加引号的片段:
过程Oracle _ to _ access是
connection _ idexec _ SQL . conntype；
action_cursor EXEC_SQL。CursType
忽略PLS _ INTEGER
t _ name student . name % type；
t _ age student . age % type；
cursor temp_cursor是select * from student
BEGIN
connection _ id:= EXEC _ SQL。OPEN _ CONNECTION(' user/user @ odbc:test ')；
action_cursor := EXEC_SQL。OPEN _ CURSOR(connection _ id)；
EXEC_SQL。PARSE(connection_id，action_cursor，' delete * from student ')；
ignore := EXEC_SQL。EXECUTE(connection_id，action _ cursor)；
EXEC_SQL。CLOSE_CURSOR(连接_id，动作_光标)；
open temp _游标；
export _ count:= 0；
action_cursor := EXEC_SQL。OPEN _ CURSOR(connection _ id)；
EXEC_SQL。PARSE(connection_id，action_cursor，'插入到学生(姓名，年龄)值(:1，:2)')；
loop
将temp_cursor提取到t_name，t _ age
当temp _ cursor % notfound时退出；
EXEC_SQL。BIND_VARIABLE(connection_id，action_cursor，':1 '，t _ name)；
EXEC_SQL。BIND_VARIABLE(connection_id，action_cursor，':2 '，t _ age)；
ignore := EXEC_SQL。EXECUTE(connection_id，action _ cursor)；
结束循环；
关闭temp _ cursor
EXEC_SQL。PARSE(connection_id，action_cursor，' commit ')；
ignore := EXEC_SQL。EXECUTE(connection_id，action _ cursor)；
EXEC_SQL。CLOSE_CURSOR(连接_id，动作_光标)；
EXEC_SQL。CLOSE_CONNECTION(连接标识)；
EXEC _ SQL时出现异常
。PACKAGE _ ERROR THEN
IF EXEC _ SQL。LAST_ERROR_CODE(连接id)！= 0 THEN
message('数据导出到ACCESS失败:' | | to _ char(exec _ SQL . last _ error _ code(connection _ id))| ':' | | exec _ SQL . last _ error _ MESG(connection _ id))；
END IF；
IF EXEC_SQL。IS _ CONNECTED(connection _ id)THEN
IF EXEC _ SQL。IS_OPEN(connection_id，action_cursor)然后
EXEC_SQL。CLOSE_CURSOR(连接_id，动作_光标)；
END IF；
EXEC_SQL。CLOSE_CONNECTION(连接标识)；
END IF；
END；
以下过程从Access导出到Oracle:
过程Access _ to _ Oracle is
connection _ idexec _ SQL . conntype；
action_cursor EXEC_SQL。CursType
忽略PLS _ INTEGER
t _ name student . name % type；
t _ age student . age % type；
BEGIN
connection _ id:= EXEC _ SQL。OPEN _ CONNECTION(' user/user @ odbc:test ')；
action_cursor := EXEC_SQL。OPEN _ CURSOR(connection _ id)；
从学生中删除；
EXEC_SQL。PARSE(connection_id，action_cursor，'从学生中选择姓名，年龄')；
ignore := EXEC_SQL。EXECUTE(connection_id，action _ cursor)；
exec _ SQL . define _ column(connection _ id，action_cursor，1，t_name，10)；
exec _ SQL . define _ column(connection _ id，action_cursor，2，t _ age)；
ignore := EXEC_SQL。EXECUTE(connection_id，action _ cursor)；
while(exec _ SQL . fetch _ rows(connection _ id，action_cursor)> 0)
loop
exec _ SQL . column _ value(connection _ id，action _ cursor，1，t _ name)；
exec _ SQL . column _ value(connection _ id，action_cursor，2，t _ age)；
insert into test(name，age)值(t_name，t _ age)；
结束循环；
提交；
EXEC_SQL。CLOSE_CURSOR(连接_id，动作_光标)；
EXEC_SQL。CLOSE_CONNECTION(连接标识)；
EXEC _ SQL时出现异常
。PACKAGE _ ERROR THEN
IF EXEC _ SQL。LAST_ERROR_CODE(连接id)！= 0 THEN
message('数据导入ORACLE失败:' | | to _ char(exec _ SQL . last _ error _ code(connection _ id))| ':' | | exec _ SQL . last _ error _ MESG(connection _ id))；
END IF；
IF EXEC_SQL。IS _ CONNECTED(connection _ id)THEN
IF EXEC _ SQL。IS_OPEN(connection_id，action_cursor)然后
EXEC_SQL。CLOSE_CURSOR(连接_id，动作_光标)；
END IF；
EXEC_SQL。CLOSE_CONNECTION(连接标识)；
END IF；
END；