程序调用存储过程出错

2017-05-20 08:29:23 1.6k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Oracle存储过程中调用日志存储过程在写存储过程中一般需要书写过程运行日志，但是工作这么长时间自己从没认真研究过调用日志存储过程的问题。现因项目整合需要做日志监控，才发现日志的重要性：create or replace procedure bo_dw.sp_sys_log ( oi_task_id in out integer , iv_task_name in varch... 阅读详情

这个是程序

//string ls_xh

string ls_isbn

string ls_sm

string ls_zz

string ls_jg

string ls_lbbh

string ls_cbs

string ls_cbrq

string li_sl

//ls_xh=sle_1.text

//	if  ls_xh='' or isnull(ls_xh)  then

//		MessageBox('系统提示','请正确的输入序号')

//		return

//	end if	

ls_isbn=sle_2.text

	if  ls_isbn='' or isnull(ls_isbn)  then

		MessageBox('系统提示','请正确的输入isbn')

		return

	end if	

ls_sm=sle_3.text

	if  ls_sm='' or isnull(ls_sm)  then

		MessageBox('系统提示','请正确的输入书名')

		return

	end if	

ls_zz=sle_4.text

	if  ls_zz='' or isnull(ls_zz)  then

		MessageBox('系统提示','请正确的输入作者')

		return

	end if	

ls_jg=sle_5.text

	if  ls_jg='' or isnull(ls_jg)  then

		MessageBox('系统提示','请正确的输入价格')

		return

	end if	

ls_lbbh=sle_6.text

	if  ls_lbbh='' or isnull(ls_lbbh)  then

		MessageBox('系统提示','请正确的输入类别编号')

		return

	end if	

ls_cbs=sle_7.text

	if  ls_cbs='' or isnull(ls_cbs)  then

		MessageBox('系统提示','请正确的输入出版社')

		return

	end if	

ls_cbrq=sle_8.text

	if  ls_cbrq='' or isnull(ls_cbrq)  then

		MessageBox('系统提示','请正确的输入出版日期')

		return

	end if	

li_sl=sle_9.text

	if  li_sl='' or isnull(li_sl)  or li_sl='0'then

		MessageBox('系统提示','请正确的输入数量')

		return

	end if	

	dec ld_jg

	ld_jg=dec(sle_5.text)

	dec ld_sl

	ld_sl=dec(sle_9.text)

	

DECLARE  abc_proc1  PROCEDURE FOR p_bm_book_info @t_isbn=:sle_2.text,@t_sm=:sle_3.text,@t_zz=:sle_4.text,@t_jg=:ld_jg,@t_lbbh=:sle_6.text,@t_cbs=:sle_7.text,@t_cbrq=:sle_8.text,@t_sl=:ld_sl; 

EXECUTE  abc_proc1;    

MessageBox('系统提示',SQLCA.SQLCODE)

if SQLCA.SQLCODE =0 THEN

	commit;

MESSAGEBOX("提示","保存成功")

else 

	rollback;

	MESSAGEBOX("错误","保存失败,错误代码为 "+ sqlca.sqlerrtext+"'")

	return 

end if

close abc_proc1;

这个是存储过程
USE [pnyy]
GO
/****** Object: StoredProcedure [dbo].[p_bm_book_info] Script Date: 05/20/2017 07:42:11 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER Procedure [dbo].[p_bm_book_info]

@t_isbn varchar(30),
@t_sm varchar(100),
@t_zz varchar(50),
@t_jg decimal(18, 2),
@t_lbbh varchar(2),
@t_cbs varchar(100),
@t_cbrq varchar(10),
@t_sl int
as
declare @rowcount varchar(100)
begin
insert into bm_book_info(isbn,sm,zz,jg,lbbh,cbs,cbrq,sl) values (@t_isbn,@t_sm,@t_zz,@t_jg,@t_lbbh,@t_cbs,@t_cbrq,@t_sl)
select @rowcount=count(sm) from bm_book_info where sm=@t_sm

end
if @rowcount = 1
return 1
else
return @@error

但是从程序中调用是会提示transaction not connected，sql.sqlcode为-1
请问是什么问题？

...全文