建立: 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;
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;
是不是就得再写几条设置参数的语句???如何写
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