T
ttaa
Unregistered / Unconfirmed
GUEST, unregistred user!
我还没有写过存储过程,想学一下,很简单的都不懂。抱歉。
slq server 2000里的表:planfile
model prodno qty
.. 991000 ..
.. .. ..
.. 991087 ..
.. .. ..
.. 992000 ..
.. .. ..
.. 992054 ..
.. .. ..
.. 993000 ..
.. .. ..
.. 993076 ..
我要找出各组(9910,9920,9930)的最大值。学习用存储过程来做。
在sql中我写的存储过程:
if exists(select name from sysobjects where name='prodnomax'
and type='p')
drop procedure prodnomax
go
create procedure prodnomax @ph char(4) as
select max(prodno) from planfile where left(prodno,4)=@ph
在delphi中ADOConnection1已连上了苏据库。ADOStoredProc1也连好了ADOConnection1。
以下我的语句:
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOStoredProc1.Parameters.ParamByName('@ph').Value :='9920';
ADOStoredProc1.Prepared;
adostoredproc1.ExecProc;
{
showmessage(ADOStoredProc1.Parameters.ParamByName('@ph').astring);
showmessage(ADOStoredProc1.fieldbyname('@ph').astring);
showmessage(adostoredproc1.Fields[0].Value);
}
end;
{}里的语句都会产生错误。怎样得到992054这个值?
slq server 2000里的表:planfile
model prodno qty
.. 991000 ..
.. .. ..
.. 991087 ..
.. .. ..
.. 992000 ..
.. .. ..
.. 992054 ..
.. .. ..
.. 993000 ..
.. .. ..
.. 993076 ..
我要找出各组(9910,9920,9930)的最大值。学习用存储过程来做。
在sql中我写的存储过程:
if exists(select name from sysobjects where name='prodnomax'
and type='p')
drop procedure prodnomax
go
create procedure prodnomax @ph char(4) as
select max(prodno) from planfile where left(prodno,4)=@ph
在delphi中ADOConnection1已连上了苏据库。ADOStoredProc1也连好了ADOConnection1。
以下我的语句:
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOStoredProc1.Parameters.ParamByName('@ph').Value :='9920';
ADOStoredProc1.Prepared;
adostoredproc1.ExecProc;
{
showmessage(ADOStoredProc1.Parameters.ParamByName('@ph').astring);
showmessage(ADOStoredProc1.fieldbyname('@ph').astring);
showmessage(adostoredproc1.Fields[0].Value);
}
end;
{}里的语句都会产生错误。怎样得到992054这个值?