Necesito ejecutar un procedimiento en oracle
Publicado por jacobd (4 intervenciones) el 28/05/2003 23:23:50
Hola
Mi problema es que no podido ejecutar un procedimiento almacenado, el llamado lo estoy haciendo de la siguiente forma:
L_sCodTInf = Txt_Codigo_TInforme.Text
L_sDesTInf = Txt_Descripcion.Text
L_sSql_Tinf = "AddNuevoTipoInforme( " & L_sCodTInf & ", " & L_sDesTInf & " );"
Set L_dActual = OpenDatabase(G_sRuta + "DB\DB1.mdb", False)
Set L_qLectura = L_dActual.CreateQueryDef("")
With L_qLectura
.Connect = G_sOdbcConector
.Execute L_sSql_Tinf
End With
el campo tipo_informe es de tipo CHAR de 10
el campo descrpcion es de tipo VARCHAR2 de 50
cuando lo ejecuto me da el error 3421 "error en conversion de tipos de datos"
el procedimiento almacenado es este:
CREATE OR REPLACE PROCEDURE AddNuevoTipoInforme
(p_TipoInforme Tipos_Informes.TIPO_INFORME%TYPE,p_Descripcion Tipos_Informes.DESCRIPCION%TYPE) AS
BEGIN
INSERT INTO Tipos_Informes (Tipo_Informe, Descripcion) VALUES (p_TipoInforme, p_Descripcion);
COMMIT;
END AddNuevoTipoInforme;
de antemano muchas gracias.
Mi problema es que no podido ejecutar un procedimiento almacenado, el llamado lo estoy haciendo de la siguiente forma:
L_sCodTInf = Txt_Codigo_TInforme.Text
L_sDesTInf = Txt_Descripcion.Text
L_sSql_Tinf = "AddNuevoTipoInforme( " & L_sCodTInf & ", " & L_sDesTInf & " );"
Set L_dActual = OpenDatabase(G_sRuta + "DB\DB1.mdb", False)
Set L_qLectura = L_dActual.CreateQueryDef("")
With L_qLectura
.Connect = G_sOdbcConector
.Execute L_sSql_Tinf
End With
el campo tipo_informe es de tipo CHAR de 10
el campo descrpcion es de tipo VARCHAR2 de 50
cuando lo ejecuto me da el error 3421 "error en conversion de tipos de datos"
el procedimiento almacenado es este:
CREATE OR REPLACE PROCEDURE AddNuevoTipoInforme
(p_TipoInforme Tipos_Informes.TIPO_INFORME%TYPE,p_Descripcion Tipos_Informes.DESCRIPCION%TYPE) AS
BEGIN
INSERT INTO Tipos_Informes (Tipo_Informe, Descripcion) VALUES (p_TipoInforme, p_Descripcion);
COMMIT;
END AddNuevoTipoInforme;
de antemano muchas gracias.
Valora esta pregunta


0