CREATE PROCEDURE ProcGet_ENO
@tempENO varchar(8) output
AS
declare @headstr varchar,@endint int,@ENO varchar
set @headstr='ENO'
select @ENO=max(ENO) from ENOtable where (ENO between @headstr+'10001' and @headstr+'99999')
if @ENO is null set @ENO=@headstr+'100001'
else
set @endint=cast(substring(@ENO,4,5) as int)+1
set @tempENO=@headstr+str(@endint,5,0)
update ENOtable set ENO=@tempENO
GO//调用
ADODataModule.ADOSPC1_Human.Close;
ADODataModule.ADOSPC1_Human.ProcedureName:='ProcGet_ENO';
ADODataModule.ADOSPC1_Human.Parameters.Refresh;
ADODataModule.ADOSPC1_Human.ExecProc;
FlatEdit1.Text:=ADODataModule.ADOSPC1_Human.FieldValues['@tempENO'];
错误提示:
过程ProcGet_ENO需要参数,@tempENO,但为提示参数
@tempENO varchar(8) output
AS
declare @headstr varchar,@endint int,@ENO varchar
set @headstr='ENO'
select @ENO=max(ENO) from ENOtable where (ENO between @headstr+'10001' and @headstr+'99999')
if @ENO is null set @ENO=@headstr+'100001'
else
set @endint=cast(substring(@ENO,4,5) as int)+1
set @tempENO=@headstr+str(@endint,5,0)
update ENOtable set ENO=@tempENO
GO//调用
ADODataModule.ADOSPC1_Human.Close;
ADODataModule.ADOSPC1_Human.ProcedureName:='ProcGet_ENO';
ADODataModule.ADOSPC1_Human.Parameters.Refresh;
ADODataModule.ADOSPC1_Human.ExecProc;
FlatEdit1.Text:=ADODataModule.ADOSPC1_Human.FieldValues['@tempENO'];
错误提示:
过程ProcGet_ENO需要参数,@tempENO,但为提示参数
解决方案 »
- 网狐 棋牌游戏网络数据包加密解密算法
- 如何给类中的动态数组成员分配空间
- 如何将WordDocument1已打开的文档另存为网页?
- 面临下岗!救命!如何把注册表中所有项读到一个树状列表中???送分啊!
- ms sql server 重启后,用ADO连接数据库的程序老联不上。
- 來聊聊有沒有人遇到跟我一樣狀況...
- 高后大G,打听一下如何向注册表中添加类型为二进制值的键值。
- IdSmtp 用 smtp.netease.com 发送邮件的问题
- Delphi 中如何支持开发多语言平台应用程式?
- 如何判断自己的程序是用户启动的还是别的程序winexec,ShellExecute启动的?
- 关于query中添加的lookup字段的问题,我快喷血了,救我!
- 怎么在DELPHI中将一个文件该名?
ADODataModule.ADOSPC1_Human.ProcedureName:='ProcGet_ENO';这句话会将你的参数类型给去掉了,你可以在对象检查器中直接指定,也可以动态创建,