数据库及相关技术
BCB程序里建立数据库函数?
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区oracle数据库里可以执行的函数：
CREATE OR REPLACE FUNCTION csh.is_number(parmin VARCHAR2) RETURN NUMBER IS
val NUMBER;
BEGIN
val := TO_NUMBER(NVL(parmin, 'a'));
RETURN 1;
EXCEPTION
WHEN OTHERS THEN
RETURN 0;
END;
我想在在程序里完成该函数的建立：
TADOCommand *ado = new TADOCommand(this);
adq->Connection = ADOConntion1;
aSQL = "CREATE OR REPLACE FUNCTION user1.is_number (parmin VARCHAR2) RETURN NUMBER "
"IS "
"val NUMBER; "
"BEGIN "
"val := TO_NUMBER (NVL (parmin, 'a')); "
"RETURN 1; "
"EXCEPTION "
"WHEN OTHERS "
"THEN "
"RETURN 0; "
"END;";
TO_NUMBER (NVL (parmin, 'a')); RETURN 1; EXCEPTION WHEN OTHERS THEN RETURN 0; END; ";
ado->CommandText =aSQL;
ado->Execute(); // 报错： 不正常的定义参数对象，提供了不一致或不完整的信息
//user1 为 oracle的一个用户
CREATE OR REPLACE FUNCTION csh.is_number(parmin VARCHAR2) RETURN NUMBER IS
val NUMBER;
BEGIN
val := TO_NUMBER(NVL(parmin, 'a'));
RETURN 1;
EXCEPTION
WHEN OTHERS THEN
RETURN 0;
END;
我想在在程序里完成该函数的建立：
TADOCommand *ado = new TADOCommand(this);
adq->Connection = ADOConntion1;
aSQL = "CREATE OR REPLACE FUNCTION user1.is_number (parmin VARCHAR2) RETURN NUMBER "
"IS "
"val NUMBER; "
"BEGIN "
"val := TO_NUMBER (NVL (parmin, 'a')); "
"RETURN 1; "
"EXCEPTION "
"WHEN OTHERS "
"THEN "
"RETURN 0; "
"END;";
TO_NUMBER (NVL (parmin, 'a')); RETURN 1; EXCEPTION WHEN OTHERS THEN RETURN 0; END; ";
ado->CommandText =aSQL;
ado->Execute(); // 报错： 不正常的定义参数对象，提供了不一致或不完整的信息
//user1 为 oracle的一个用户
...全文
