TO pizixiao:
至于存储过程的引用,你可以使用TADOQuery(在SQL中加入 EXEC TEST即可,因为没有
参数,所以你的调用会更简单),也可以使用TadoStoredProc,以下是我程序中的一个例子
(使用的是TADOQuery):
procedure ADOQueryOpen(var vQuery:TADOQuery;vBeginDate,vEndDate:TDate);
begin
try
Screen.Cursor:=crSQLWait;
try
with vQuery do
begin
Close;
Parameters.ParamByName('vBeginDate').Value:=vBeginDate;
Parameters.ParamByName('vEndDate').Value:=vEndDate;
Prepared:=true;
Open;
Prepared:=false;
end;
except
on E: Exception do
Application.MessageBox(PChar('打开数据表出错!'+#10#13+e.Message),'提示',
MB_DEFBUTTON2+MB_ICONQUESTION);
end;
finally
Screen.Cursor:=crDefault;
end;
end;