请教可以用QUERY组件建立、操作存储过程吗？如何写？谢谢！！

Question

Query1.close;
Query1.SQL.Text:='exec  存储过程';
Query1.Open;

Answer 1

补充，如果是不返回数据，用Query.ExecSQL;

Answer 2

建立：
with Query1 do
begin
  ParamCheck:=False;
  With SQL Do
    begin
      Clear;
      Add('Create Procedure TitlesForPub');
      Add('@Prb_Name varchar(40)');
      Add('AS');
      Add('Begin');
      Add('Select Title');
      Add('From Publishers');
      Add('where pub_Name=@Pub_Name');
      Add('End');
    end;
    ExecSQL; 
    end;
end;      

Answer 3

ParamCheck:=False;改为ParamCheck:=true;
是不是就得再写几条设置参数的语句???如何写  
  

Answer 4

var
  StrTemp: WideString;
begin
  StrTemp := Format('Execute OW_Mod_Information  ''%s'',''%s'',''%s'',''%s'',%d',[sProjectID,sInformationID,sReceiveOperatorID,sResultInfo,1]);
  Flag:=AdoQueryExecSql(AdoQuery1,StrTemp,false);
end;function  ADOQueryExecSql(pQuery: TADOQuery; strSql: WideString; ShowFlag: Boolean): Integer;
begin
  with pQuery do
  try
    Result := 0;
    Close;
    Prepared := false;
    SQL.Clear;
    SQL.Add(strSql);
    Prepared;
    ExecSQL;
  except
    Result := -1;
  end;
end;如果有数据集返回，请用Open