怎样在Delphi中调用sql中的自定义存储过程(0分)

X

xyqjb

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟在sql2000中自定义一个存储过程,有两个输入输入参数,4个输出参数,不知在
delphi中怎样调用,请详解(最好举例说明)


 
听听大家怎么讲。
 
query中:
sqlstr:=exec proc 存储过程名称 参数1,参数2。。。。
 
with Qurey1 do
begin
Close;
SQL.Text :='EXEC SP_YourStoreProcedureName parameter1,
parameter2,parameter3 out,parameter4 output';
Open;
end;
 
delphi中有stored procedure,我用的是oracle,可以直接使用,
不知道sql2000是否可以直接使用。
 
有存储过程控件,或Query中直接用SQL语句
 
var
Adosp_Temp:TADOStoredProc;
begin
Adosp_Temp:=TADOStoredProc.Create(nil);
try
with Adosp_Temp do
begin
Connection:=PAdoName;
ProcedureName := 'Sp_GStaticsAppPro;1';
Parameters[0] := Parameters.CreateParameter('@Number',ftString,pdInput,20,PNumberStr);
Parameters[1] := Parameters.CreateParameter('@StaticsNumber',ftString,pdInput,20,PStaticsNumberStr);
Parameters[2] := Parameters.CreateParameter('@StaticsTime',ftString,pdInput,12,PStaticsTimeStr);
Parameters[3] := Parameters.CreateParameter('@StaticsItem',ftString,pdInput,50,PStaticsItemStr);
Parameters[4] := Parameters.CreateParameter('@StaticsTimeStart',ftString,pdInput,12,PStaticsTimeStartStr);
Parameters[5] := Parameters.CreateParameter('@StaticsTimeEnd',ftString,pdInput,12,PStaticsTimeEndStr);
Parameters[6] := Parameters.CreateParameter('@YearReg',ftString,pdInput,5,PYearRegStr);
Parameters[7] := Parameters.CreateParameter('@StaticsCondition',ftString,pdInput,5,PStaticsConditionStr);
Parameters[8] := Parameters.CreateParameter('@StaticsSty',ftString,pdInput,2,PStaticsStyStr);
Sleep(200);
ExecProc;
Result:=true;
end;
finally
Adosp_Temp.Free;
end;
end;
 
顶部