如何实现存储过程的调用?

[runquickly]

我想用ADOStoredProc组件对sql server2000的数据库进行调用,不知道如何使用?能否给我个具体的例子,我的存储过程是根据日期,查询两个表,然后把符合的记录返回出来,
存储过程如下
create procedure sp_查询客房住宿总费用
@date1 smalldatetime,@date2 smalldatetime
as
select sum(费用) as 费用 from tabl1 where table1.date between @date1 and @date2

[dong_2001]

1。先建立存储过程，带上两个参数。
2。在delphi中调用存储过程同时传递参数。

[Goldteerfei]

Var AdoS : TADOStoredProc ;
AdoS := TADOStoredProc.Create(owner);
AdoS.Connection := Adoconnection1;

Ados.ProcedureName := '存储过程名称';
AdoS.Parameters.CreateParameter('参数1名称',FtDateTime,pdInput,20,Dt1.Date);
AdoS.Parameters.CreateParameter('参数2名称',FtDateTime,pdInput,20,Dt2.Date);
Ados.ExecProc ;

DataSource1.DataSet := AdoS;