繁體中文当前位置: 首页 > 图文教程 > 数据库 > Oracle > Oracle如何直接运行OS命令(下)
- Oracle
- 教你应对Oracle检索数据的一致性以及回滚数据
- 美国家庭影院频道成功实施Oracle套件
- Oracle学习教程
- 利用oracle外部表查看报警信息
- 合理设置临时表空间确保Oracle数据库正常运行
- Oracle数据库如何处理临时数据？
- ORACLE报警日志如何查看？
- Oracle教程：如误添加数据文件如何删
- Oracle10gR2上遇到了Mutex竞争的问题
- Oracle教程：讲述表与表见得连接
- Oracle教程：修改初始化参数
- Oracle教程：工具kfod的使用
- Oracle数据库是如何进制转换的
- 两种方法来组织Oracle数据库中的数据
- Oracle教程：如何将数据文件移到新区
- 三要素助你在Oracle中创建索引
- 如何将各种数据库连接起来？
- Oracle数据库导入外部数据如何实现
- Oracle数据库的输出方法调试
- Oracle教程：数据的复制
Oracle如何直接运行OS命令(下)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 100 ::
收藏到网摘: n/a
正在看的ORACLE教程是:Oracle如何直接运行OS命令(下)。 EXEC SQL WHENEVER SQLERROR CONTINUE；
sqlglm（msg_buffer， &buffer_size， &msg_length）；
printf（"Daemon error while connecting:\n"）；
printf（"%.*s\n"， msg_length， msg_buffer）；
printf（"Daemon quitting.\n"）；
exit（1）；
}
void
sql_error（）
{
char msg_buffer[512]；
int msg_length；
int buffer_size = 512；
EXEC SQL WHENEVER SQLERROR CONTINUE；
sqlglm（msg_buffer， &buffer_size， &msg_length）；
printf（"Daemon error while executing:\n"）；
printf（"%.*s\n"， msg_length， msg_buffer）；
printf（"Daemon continuing.\n"）；
}
main（）
{
EXEC SQL WHENEVER SQLERROR DO connect_error（）；
EXEC SQL CONNECT :uid；
printf（"Daemon connected.\n"）；
EXEC SQL WHENEVER SQLERROR DO sql_error（）；
printf（"Daemon waiting...\n"）；
while （1） {
EXEC SQL EXECUTE
BEGIN
/*接收deamon发来的字符*/
:status := DBMS_PIPE.RECEIVE_MESSAGE（'daemon'）；
IF :status = 0 THEN
/*取出字符*/
DBMS_PIPE.UNPACK_MESSAGE（:command）；
END IF；
END；
END-EXEC；
IF （status == 0）
{
command.arr[command.len] = '\0'；
/*如果是stop，该进程就退出*/
IF （!strcmp（（char *） command.arr， "STOP"））
{
printf（"Daemon exiting.\n"）；
break；
}
ELSE IF （!strcmp（（char *） command.arr， "SYSTEM"））
{
EXEC SQL EXECUTE
BEGIN
DBMS_PIPE.UNPACK_MESSAGE（:return_name）；
DBMS_PIPE.UNPACK_MESSAGE（:value）；
END；
END-EXEC；
value.arr[value.len] = '\0'；
printf（"Will execute system command '%s'\n"， value.arr）；
/*运行os命令*/
status = system（value.arr）；
EXEC SQL EXECUTE
BEGIN
DBMS_PIPE.PACK_MESSAGE（'done'）；
DBMS_PIPE.PACK_MESSAGE（:status）；
:status := DBMS_PIPE.SEND_MESSAGE（:return_name）；
END；
END-EXEC；
{
printf
（"Daemon error while responding to system command."）；
printf（" status: %d\n"， status）；
}
}
ELSE
{
printf
（"Daemon error: invalid command '%s' received.\n"， command.arr）；
}
}
ELSE
{
printf（"Daemon error while waiting for signal."）；
printf（" status = %d\n"， status）；
}
}
EXEC SQL COMMIT WORK RELEASE；
exit（0）；
}
以上代码起名为daemon.pc，用proc预编译:
proc iname=daemon.pc userid=用户名/密码@服务名 sqlcheck=semantics
得到daemon.c，在用c进行编译，注意在NT上要把orasql8.lib加上，否则编译通过，连接没法通过。
3、在服务器上运行daemon.exe
4、在sqlplus运行测试语句:
SQL> variable rv number
SQL> execute :rv := DAEMON.EXECUTE_SYSTEM（'ls -la'）；
PL/SQL 过程已成功完成。
SQL> execute :rv := DAEMON.EXECUTE_SYSTEM（'dir'）；
PL/SQL 过程已成功完成。
SQL>
DBMS_PIPE的用法见oracle的文档。
<
评论 (0) All
