如何使用记录和存储过程创建包？甲骨文

Question

我没用过oracle（只有t-sql）

我需要创建一个必须有记录的包，并在两个存储过程中使用该记录

/*我没用过包 我不知道如何调用（调用或执行包） 我需要在第三个系统中调用它来更新或插入一个人） */

CREATE OR REPLACE PACKAGE PKG_CRM_INSERTUPDATE_PERSONAS IS

/*
this must to  create a stored procedure for insert and update  a table
*/
declare
  TYPE typePersona IS RECORD (
    varNombre: VARCHAR2(200);
    varApellidoPaterno : VARCHAR2(200);
    varApellidoMaterno : VARCHAR2(200);
    varRFC : VARCHAR2(200);
    varIfe : VARCHAR2(200);
    varFechaNacimiento : DATE;
    varNumeroHijos : NUMBER;
    varIdSituacion : NUMBER;
    varIdActividad : NUMBER;
    varIdPais : NUMBER;
    varIdGenero : VARCHAR2(200);
    varIdEstadoCivil : NUMBER;
    varIdLocalidad : NUMBER;
    varIdPersona : NUMBER;
    varCURP : VARCHAR2(200);
    varIdTipoPersona : VARCHAR2(200);
    varCalle : VARCHAR2(200);
    varNumeroExterior : VARCHAR2(200);
    varNumeroPiso : VARCHAR2(200);
    varNumeroDepartamento : VARCHAR2(200);
    )

END;

Answer 1

如果您只需要在表中插入/更新记录，您可能不需要定义记录，但您可以找到更简单的方法。

但是，关于包的创建和使用，你的头部声明有一些错误，刚刚修复：

CREATE OR REPLACE PACKAGE PKG_CRM_INSERTUPDATE_PERSONAS IS

  TYPE typePersona IS RECORD (
    varNombre VARCHAR2(200),
    varApellidoPaterno  VARCHAR2(200),
    varApellidoMaterno  VARCHAR2(200),
    varRFC  VARCHAR2(200),
    varIfe  VARCHAR2(200),
    varFechaNacimiento  DATE,
    varNumeroHijos  NUMBER,
    varIdSituacion  NUMBER,
    varIdActividad  NUMBER,
    varIdPais  NUMBER,
    varIdGenero  VARCHAR2(200),
    varIdEstadoCivil  NUMBER,
    varIdLocalidad  NUMBER,
    varIdPersona  NUMBER,
    varCURP  VARCHAR2(200),
    varIdTipoPersona  VARCHAR2(200),
    varCalle  VARCHAR2(200),
    varNumeroExterior  VARCHAR2(200),
    varNumeroPiso  VARCHAR2(200),
    varNumeroDepartamento  VARCHAR2(200)
    );

    procedure someProcIn(pIn IN typePersona);
    procedure someProcInOut(pInOut IN OUT typePersona);

END;

但是，如果没有主体，包头不会做任何事情，您可以在主体中编写程序；例如：

CREATE OR REPLACE PACKAGE body PKG_CRM_INSERTUPDATE_PERSONAS IS

    procedure someProcIn(pIn IN typePersona) is
    begin
        dbms_output.put_line(pIn.varNombre);
    end;

    procedure someProcInOut(pInOut IN OUT typePersona) is
    begin
        pInOut.varNombre := 'varNombre value';
    end;

END;

一旦你的包被创建，你可以这样调用它的过程和函数（你调用一个包中包含的过程或函数，而不是包本身）：

declare
    myVar  PKG_CRM_INSERTUPDATE_PERSONAS.typePersona;
begin    
    --
    PKG_CRM_INSERTUPDATE_PERSONAS.someProcInOut(myVar);
    --
    PKG_CRM_INSERTUPDATE_PERSONAS.someProcIn(myVar); 
end;