adostore.Close;
adostore.Params.ParamByName('Start_Date').AsDateTime := StrToDateTime(StartDate.Text);
adostore.Params.ParamByName('End_Date').AsDateTime := StrToDateTime(EndDate.Text);
adostore.Open;
adostore.Params.ParamByName('Start_Date').AsDateTime := StrToDateTime(StartDate.Text);
adostore.Params.ParamByName('End_Date').AsDateTime := StrToDateTime(EndDate.Text);
adostore.Open;
ADOQuery.SQL.Text:='exec 存储过程 参数1,参数2';
ADOQuery.Open;(如果无返回值请用ExecSQL)
CreateTabADO.SQL.Clear;
CreateTabADO.SQL.Add('EXEC CheckExists :a,:b output'); //检查该名称是否存在
CreateTabADO.Parameters[0].Value :=Edit1.Text;
CreateTabADO.ExecSQL;
if CreateTabADO.Parameters[1].Value<>0 then //存在则不允许创建
begin
ShowMessage(Edit1.Text+'已经被定义');
Exit;
end;
with ADOStoredProc1 do
begin
Close;
ProcedureName:='spw_GetNo';
Parameters.Clear;
Parameters.AddParameter;
Parameters[0].DataType:=ftstring;
Parameters[0].Name:='@DATE';
Parameters[0].Direction:=pdinput;
Parameters[0].Value:=myADOTable.FieldByName('AF_DATE').Value;
Parameters.AddParameter;
Parameters[1].DataType:=ftinteger;
Parameters[1].Name:='@SqlRet';
Parameters[1].Direction:=pdoutput;
EXECPROC;
iSqlRet:=Parameters[1].Value;
end;