Hola, es mi primera pregunta en el foro, trabajo con Oracle Database XE y Visual basic 2005 Express, he llamado procedimientos almacenado que devuelven conjuntos resultado con cursores(sys_refcursor) y funciona bien, pero al llamar a procedimientos almacenados que insertan registros, me genera problemas.
Muestro mi procedimiento ALmacenado y mi código de VB EXpress.
create or replace
PROCEDURE "SP_ADD_CLIENTES" (
p_nombre_razon_social VARCHAR2,
P_NUM_IDENTIDAD VARCHAR2,
p_clase_codumento VARCHAR2,
p_nacionalidad VARCHAR2,
p_pais_residencia VARCHAR2,
p_provincia_residencia VARCHAR2,
p_canton_residencia VARCHAR2,
P_LOCALIDAD VARCHAR2,
p_referencia VARCHAR2,
p_stado_civil VARCHAR2,
p_nacido_el VARCHAR2,
p_ocupacion VARCHAR2
)as
BEGIN
insert into notariademo1.CLIENTES
values(
clientes_seq.NEXTVAL,
p_nombre_razon_social,
P_NUM_IDENTIDAD ,
p_clase_codumento,
p_nacionalidad,
p_pais_residencia ,
p_provincia_residencia ,
p_canton_residencia ,
P_LOCALIDAD ,
p_referencia,
p_stado_civil,
p_nacido_el
,p_ocupacion);
commit;
END SP_ADD_CLIENTES;
VB EXpress 2005
OracleCmd.Connection = AtlasDocsProcesos.OracleConexion
OracleCmd.CommandText = "SP_ADD_CLIENTES"
OracleCmd.CommandType = CommandType.StoredProcedure
OracleCmd.Parameters.Add(New OracleClient.OracleParameter("P_NOMBRE_RAZON_SOCIA L", OracleClient.OracleType.VarChar, 120)).Value = "PRADERA MARCIA" OracleCmd.Parameters.Add(New OracleClient.OracleParameter("P_NUM_IDENTIDAD", OracleClient.OracleType.VarChar, 15)).Value = "13069581777"
OracleCmd.Parameters.Add(New OracleClient.OracleParameter("P_CLASE_CODUMENTO", OracleClient.OracleType.VarChar, 30)).Value = "CEDULA" OracleCmd.Parameters.Add(New OracleClient.OracleParameter("P_NACIONALIDAD", OracleClient.OracleType.VarChar, 30)).Value = "ECUATORIANA" OracleCmd.Parameters.Add(New OracleClient.OracleParameter("P_PAIS_RESIDENCIA", OracleClient.OracleType.VarChar, 30)).Value = "ECUADOR"
OracleCmd.Parameters.Add(New OracleClient.OracleParameter("P_PROV_RESIDENCIA", OracleClient.OracleType.VarChar, 30)).Value = "MANABI" OracleCmd.Parameters.Add(New OracleClient.OracleParameter("P_CANTON_RESIDENCIA" , OracleClient.OracleType.VarChar, 30)).Value = "BOLIVAR" OracleCmd.Parameters.Add(New OracleClient.OracleParameter("P_LOCALIDAD", OracleClient.OracleType.VarChar, 30)).Value = "CALCETA"
OracleCmd.Parameters.Add(New OracleClient.OracleParameter("P_REFERENCIA", OracleClient.OracleType.VarChar, 120)).Value = "SN" OracleCmd.Parameters.Add(New OracleClient.OracleParameter("P_STADO_CIVIL", OracleClient.OracleType.VarChar, 2)).Value = "S" OracleCmd.Parameters.Add(New OracleClient.OracleParameter("P_NACIDO_EL", OracleClient.OracleType.VarChar, 10)).Value = "12/05/2004"
OracleCmd.Parameters.Add(New OracleClient.OracleParameter("P_OCUPACION", OracleClient.OracleType.VarChar, 30)).Value = "OCUPACION"
System.Data.OracleClient.OracleException was unhandled
ErrorCode=-2146232008
Message="ORA-06550: línea 1, columna 7:
PLS-00306: número o tipos de argumentos erróneos al llamar a 'SP_ADD_CLIENTES'
ORA-06550: línea 1, columna 7:
PL/SQL: Statement ignored
"
Source="System.Data.OracleClient"
StackTrace:
at System.Data.OracleClient.OracleConnection.CheckErr or(OciErrorHandle errorHandle, Int32 rc)
at System.Data.OracleClient.OracleCommand.Execute(Oci StatementHandle statementHandle, CommandBehavior behavior, Boolean needRowid, OciRowidDescriptor& rowidDescriptor, ArrayList& resultParameterOrdinals)
at System.Data.OracleClient.OracleCommand.ExecuteNonQ ueryInternal(Boolean needRowid, OciRowidDescriptor& rowidDescriptor)
at System.Data.OracleClient.OracleCommand.ExecuteNonQ uery()
at AppDocAtlas.FrmChild.AddClientes(String P_Procedimiento, OracleCommand OracleCmd, String NOMBRE_RAZON_SOCIAL, String NUM_IDENTIDAD, String CLASE_DOCUMENTO, String NACIONALIDAD, String PAIS_RESIDENCIA, String PROV_RESIDENCIA, String CANTON_RESIDENCIA, String LOCALIDAD, String REFERENCIA, String STADO_CIVIL, String NACIDO_EL, String OCUPACION) in C:\Documents and Settings\Administrador\Mis documentos\Roberto\Atlas\Desarrollo de Aplicaciones\Atlas Doc 1_0\AppDocAtlas\AppDocAtlas\FrmChild.vb:line 54
at AppDocAtlas.FrmChild.BtnGrabar_Click(Object sender, EventArgs e) in C:\Documents and Settings\Administrador\Mis documentos\Roberto\Atlas\Desarrollo de Aplicaciones\Atlas Doc 1_0\AppDocAtlas\AppDocAtlas\FrmChild.vb:line 61
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventAr gs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.O nMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.W ndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallba ck(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.UnsafeNativeMethods.DispatchM essageW(MSG& msg)
at System.Windows.Forms.Application.ComponentManager. System.Windows.Forms.UnsafeNativeMethods.IMsoCompo nentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
at System.Windows.Forms.Application.ThreadContext.Run MessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.Run MessageLoop(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.Run(ApplicationCo ntext context)
at Microsoft.VisualBasic.ApplicationServices.WindowsF ormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsF ormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsF ormsApplicationBase.Run(String[] commandLine)
at AppDocAtlas.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
at System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
at Microsoft.VisualStudio.HostingProcess.HostProc.Run UsersAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context( Object state)
at System.Threading.ExecutionContext.Run(ExecutionCon text executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()
Ayuda, no encuentro la causa del error.
Roberto.
