adostore.Close;
  adostore.Params.ParamByName('Start_Date').AsDateTime := StrToDateTime(StartDate.Text);
  adostore.Params.ParamByName('End_Date').AsDateTime := StrToDateTime(EndDate.Text);
  adostore.Open;

解决方案 »

  1.   

    ADOQuery.Close;
    ADOQuery.SQL.Text:='exec 存储过程 参数1,参数2';
    ADOQuery.Open;(如果无返回值请用ExecSQL)
      

  2.   

    CreateTabADO.Close;
      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;
      

  3.   

    begin
      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;