标签: procedure

我有一个Sender: TObjectparamater 程序

procedure TForm1.FormCreate(Sender: TObject);

我怎样才能再次调用此程序？

此版本不起作用:

TForm1.FormCreate(Sender: TObject);

提前致谢.

我有一个如下的程序

DROP PROCEDURE IF EXISTS mp_search_result;
CREATE PROCEDURE mp_search_result()                                                   
BEGIN
      CREATE TEMPORARY TABLE temp_projids(projid int);

       SET @strSearchSQL = 'SELECT DISTINCT project_id
                             FROM tblProjects'; 

      PREPARE stmt FROM @strSearchSQL;
      INSERT INTO temp_projids(projid) values ();
      EXECUTE stmt;
      DEALLOCATE PREPARE stmt;       

END;

现在我想将上述查询返回的项目ID插入临时表中.

我很困惑在执行之前在哪里编写插入查询.

请注意,我的要求与我在上面发布的查询不同.

如果条件和连接形成,我使用很多@strSearchSQL.

我删除了这些以防止代码的复杂性.

我正在尝试编写一个程序来自动化制作tkinter窗口的过程,所以我试图使用open()函数打开一个txt文件(可能应该是.py不应该吗？)一个程序这使得窗口,我试图让它编写的代码是:

def a_procedure():
    window = Tk()
    #rest of code necessary to make a Tkinter window

但问题是,当我使用时

open()
textfile.write("def a_procedure()"/
"window = Tk()")

我在文本文件中得到的是:def a_procedure():window = TK()#rest of text

是否存在(a)使用open()或(b)编写多行的方法使用过程编写过程的更好方法

ADA河内的递归塔计划.

到目前为止,我认为我的大部分内容已经失效,我的问题在于我的解决功能.我想我的算法很好,但我不知道如何实现它进入的功能,所有的例子,我看到用这个使用内部本身的功能,如: 实例

我的错误是:

hanoi.adb:23:09: cannot use function "solve" in a procedure call
hanoi.adb:27:09: cannot use function "solve" in a procedure call
hanoi.adb:59:15: missing ")"

到目前为止,这是我的代码.

with ada.text_io, ada.command_line;
use ada.text_io, ada.command_line;


procedure hanoi is

Argument_Error : EXCEPTION;
max_disks, min_disks : integer := 3;
moves : integer := 0;


verbose_bool : boolean;

function solve (N: in integer; from, to, using: in character) return integer is
begin


if N = 1 then
    if verbose_bool = true then
    put("Move disk " & …

问题可能有点奇怪.但我正在寻找一种只有在用户发表评论时才允许对表进行更新的方法.更新普通表时,注释应保存在第二个审计表中.
我认为在oracle中没有办法在执行"update table set ..."时用户如何发表评论.

所以我创建了自己的过程,用户可以将语句和注释作为参数传递.触发器可以防止没有此过程的更新.

create or replace
    PROCEDURE Update_Table(stmt varchar2, comment varchar2) AS 
    BEGIN
        Insert into audit_table values(stmt, comment);
        Execute immediate stmt;
END Update_Table;

我对这个解决方案并不满意.所以也许有更简单的解决方案.

org.springframework.jdbc.BadSqlGrammarException: CallableStatementCallback; bad SQL grammar  
[{call pkg_name.procedure_name()}]; nested exception is java.sql.SQLException: ORA-06550: line 1,  column 7:
PLS-00306: wrong number or types of arguments in call to 'PROCEDURE_NAME'
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored

我有两个架构-OwnerSchema和AppSchema。我拥有从OwnerSchema到AppSchema的所有程序包的授予执行特权。当我尝试从AppSchema的后端执行任何过程时，便能够执行该过程。当我尝试从Java Spring JDBC执行相同的过程时，出现上述错误。我可以从Java的OwnerSchema执行此过程。

我可以使用AppSchema从Java Spring JDBC应用程序访问所有表。

我已使用以下触发器指向LogOn上的OwnerSchmea。

 CREATE OR REPLACE TRIGGER FINAL_APP_USER.AFTER_LOGON_TRG
    AFTER LOGON ON FINAL_APP_USER.SCHEMA
    BEGIN
      DBMS_APPLICATION_INFO.SET_MODULE(USER, 'Initialized');
    EXECUTE IMMEDIATE 'ALTER SESSION SET current_schema=TEST'; --enter owner
    END;
    /

这是程序调用

SimpleJdbcCall simpleJdbcCall = getSimpleJdbcCall()
                    .withCatalogName("pkg_name").withProcedureName(
                            "procedure_name").returningResultSet(
                            "C_Srf_1", new RowMapper<FinalCountForQuestions>() {
                                public FinalCountForQuestions mapRow(
                                        ResultSet rs, …

我是python的初学者,我被阻止了一系列我必须做的指示.我需要创建一个函数,它接受参数两个3个整数的元组.该函数将在2个第一个整数,然后是2个第二个整数和2个第三个整数之间执行xor.最后,它会将这些结果作为元组返回.

这是我之前在代码中使用的函数:

def xor (a,b):
    return (bool (a) and not(bool(b))) or (not(bool (a))) and bool (b)

如果它不准确或完全错误,请告诉我.谢谢!

我有一个oracle数据库,想要一种简单的方法来生成crud的存储过程(Create,Retrieve,Update,Delete).我一直在网上搜索,但找不到合适的工具.

我是pl/sql的新手.我正在尝试像这样的触发器(adr =删除行之后),但似乎我不能使用ALTER SEQUENCE.这是删除行之后递减的正确方法还是我应该使用过程？

CREATE OR REPLACE TRIGGER adr_trg
AFTER DELETE ON table
FOR EACH ROW
BEGIN
ALTER SEQUENCE table_seq INCREMENT BY -1;
END;

编辑:

我正在使用的序列:

CREATE SEQUENCE table_seq INCREMENT BY 1 START WITH 1;

触发我正在使用:

CREATE OR REPLACE TRIGGER bir_trg
   BEFORE INSERT ON table
   FOR EACH ROW
BEGIN
   IF :new.id IS NULL
   THEN
      :new.id := table_seq.nextval;
   END IF;
END bir_trg;

我有以下程序

CREATE OR REPLACE PROCEDURE p_create_text_file (
   loc IN VARCHAR2
   , file IN VARCHAR2
   , select_statement in varchar2
   , line_statement in varchar2
)
IS
    fid UTL_FILE.FILE_TYPE := UTL_FILE.FOPEN (loc, file, 'W');
    line VARCHAR2(2000);
BEGIN
    FOR rec IN (
        /*replace this select*/
        select
        parameter
        , value
        from nls_database_parameters
        where parameter in ('NLS_RDBMS_VERSION', 'NLS_CHARACTERSET')
        /*end of replace*/
    )
    LOOP
        line := rec.parameter || ';' || rec.value;
        UTL_FILE.PUT_LINE (fid, line);
    END LOOP;
    UTL_FILE.FCLOSE (fid);
EXCEPTION
    WHEN OTHERS THEN UTL_FILE.FCLOSE (fid);
END;
/

我需要用"something"替换select语句,以便它可以在IN参数SELECT_STATEMENT中传递. …