BCB程序里建立数据库函数?

[castlooo]

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的一个用户

[castlooo]

我想在在程序里完成该函数的建立：
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;";

ado->CommandText =aSQL;
ado->Execute(); // 报错： 不正常的定义参数对象，提供了不一致或不完整的信息

[castlooo]

TADOCommand 不可以执行带可变参数的 东东？

[我不懂电脑]

最好在数据库建立存储过程

[i_love_pc]

貌似是":="符号引起的问题，在bcb里这个代表TParameters参数的意思，但是在oracle语句中却是ddl运算符。

[jxw1987628]

用存储过程吧，再说你已经基本写成了存储过程或者函数了，bcb里调用还是很方便的！

有些符号会被解析掉的，

存储过程执行起来效率高 ，推荐用TADOStoredProc

[52vc]

改成这样试试，是不是换行的问题!

    TADOCommand *ado = new TADOCommand(this);  
    adq->Connection = ADOConntion1;  
aSQL =  "CREATE OR REPLACE FUNCTION user1.is_number (parmin VARCHAR2) RETURN NUMBER \
                 \n IS \
                 \n val NUMBER;\
                 \n BEGIN \
                 \n val := TO_NUMBER (NVL (parmin, 'a')); \
                 \n RETURN 1; \
                 \n EXCEPTION \
                 \n WHEN OTHERS \
                 \n THEN \
                 \n RETURN 0; \
                 \n END;";
  
        ado->CommandText =aSQL;  
        ado->Execute(); // 报错： 不正常的定义参数对象，提供了不一致或不完整的信息 

[xjq2003]

??

[MEFULEU]

现在dbexplor中试一下，建表偶都是标准语句

strSQL="CREATE TABLE mytable ( fields1 VARCHAR(50) NULL,\
fields2 VARCHAR(50) NULL,\
fields3 VARCHAR(255) NULL,\
fields4 VARCHAR(50) NULL)";

[「已注销」]

我建表直接用Tadoquery