我的存儲過程是將采購訂購轉為倉庫入庫單,其關鍵字為purcheseapp(采購單號),在DELPHI中根據關鍵字調用此存儲過程。但在運行存儲過程卻提示為ERROR 156:Incorrect syntax near keyword 'end',我反復檢查,找不出問題,請高手幫忙檢查,代碼如下:
CREATE PROCEDURE fPurch_store(@StringItem char)
as
set nocount on
declare @fStore_po varchar (20)
declare @fStore_item varchar (20)
declare @fStore_custome varchar (20)
declare @fStore_pudate datetime
declare @fStore_outdate datetime
declare @fStore_indate datetime
declare @fStore_pri varchar(30)
declare @fStore_name varchar(30)
declare @fStore_dec varchar(50)
declare @fStore_num float(8)
declare @fStore_total float(8)
declare @fStore_until varchar(8)
declare @fStore_store float(8)
declare @fStore_memo varchar(100)
-- select from purcheseapp where purchese=@StringItem
begin tran
declare crTstore cursor for
select
purchese_po,
purchese_item,
purchese_customer,
purchese_date,
purchese_date,
purchese_codeno,
purchese_name,
purchese_dec,
purchese_num,
purchese_total,
purchese_until,
purchese_total,
purchese_memo
from purcheseapp where purcheseapp=@stringItem
open crTstore
fetch next from crTstore into
@fStore_po,
@fStore_item ,
@fStore_custome,
@fStore_outdate,
@fStore_indate,
@fStore_pri ,
@fStore_name,
@fStore_dec,
@fStore_num,
@fStore_total,
@fStore_until,
@fStore_store,
@fStore_memo
begin
insert into purchese_store(
Store_po,
Store_item,
Store_custome,
Store_outdate,
Store_indate,
Store_pri,
Store_name,
Store_dec,
Store_name,
Store_total,
Store_until,
Store_store,
Store_memo)
values(
@fStore_po,
@fStore_item ,
@fStore_custome,
@fStore_outdate,
@fStore_indate,
@fStore_pri ,
@fStore_name,
@fStore_dec,
@fStore_until,
@fStore_store,
@fStore_memo
end
close crTstore
deallocate crTstore
if @@error<>0
begin
Rollback Tran
end
else
begin
Commit Tran
end
SET NOCOUNT OFF
GO
CREATE PROCEDURE fPurch_store(@StringItem char)
as
set nocount on
declare @fStore_po varchar (20)
declare @fStore_item varchar (20)
declare @fStore_custome varchar (20)
declare @fStore_pudate datetime
declare @fStore_outdate datetime
declare @fStore_indate datetime
declare @fStore_pri varchar(30)
declare @fStore_name varchar(30)
declare @fStore_dec varchar(50)
declare @fStore_num float(8)
declare @fStore_total float(8)
declare @fStore_until varchar(8)
declare @fStore_store float(8)
declare @fStore_memo varchar(100)
-- select from purcheseapp where purchese=@StringItem
begin tran
declare crTstore cursor for
select
purchese_po,
purchese_item,
purchese_customer,
purchese_date,
purchese_date,
purchese_codeno,
purchese_name,
purchese_dec,
purchese_num,
purchese_total,
purchese_until,
purchese_total,
purchese_memo
from purcheseapp where purcheseapp=@stringItem
open crTstore
fetch next from crTstore into
@fStore_po,
@fStore_item ,
@fStore_custome,
@fStore_outdate,
@fStore_indate,
@fStore_pri ,
@fStore_name,
@fStore_dec,
@fStore_num,
@fStore_total,
@fStore_until,
@fStore_store,
@fStore_memo
begin
insert into purchese_store(
Store_po,
Store_item,
Store_custome,
Store_outdate,
Store_indate,
Store_pri,
Store_name,
Store_dec,
Store_name,
Store_total,
Store_until,
Store_store,
Store_memo)
values(
@fStore_po,
@fStore_item ,
@fStore_custome,
@fStore_outdate,
@fStore_indate,
@fStore_pri ,
@fStore_name,
@fStore_dec,
@fStore_until,
@fStore_store,
@fStore_memo
end
close crTstore
deallocate crTstore
if @@error<>0
begin
Rollback Tran
end
else
begin
Commit Tran
end
SET NOCOUNT OFF
GO
解决方案 »
- 谁有idhttp用http协议上传下载例子啊 另外服务器需要设置啥?
- fastreport主从表关系设置
- DCOM的连接问题,请高手解答
- 关于换行的问题。
- 如何得到文件夹所在系统中的详细路径?很急?
- 如何将数字用文字代替
- 我用Delphi操作Access2000数据库,发现删除数据库中的大量记录后,数据库文件大小不怎么变化,打开access发现那些记录确实被删除了。请问
- 如何在memo中执行换行?有相关函数吗?
- 帮我看一下这段代码。怎么总是出错?
- 我学delphi已经好一段时间了,但水平不能说高手也不是初学者,请教各位高手,如何提高delphi的编程水平呢,需要读那些书籍呢?
- 怎么为edit设置快捷键?
- 一个关于ADOTABLE的问题请大家帮助一下
end
处少了")"
同时 你insert 的项大于values中的值
end
end看来来晚了:(
begin
Close;
ADOStoredProc2.Parameters.Clear;
ADOStoredProc2.Parameters.ParamByName('@StringItem').Value :=string(orderitem.Text);
ADOStoredProc2.execproc;
end;
ADOStoredProc2.Parameters.Clear;
ADOStoredProc2.Parameters.Add('......)参数的!