Delphi TADOStoredProc [2] Parameters 介绍

姚税允 發表於 2020-9-16 15:14:00

{该文首发于博客园 滔Roy，无须授权即可转载，请自觉保留头部申明}
Delphi TADOStoredProc Parameters 介绍
1、常用参数：
<ul>
<li>Clear   //清空</li>
<li>Refresh  //初始化参数</li>
<li>ParamByName   //传递参数值</li>
<li>CreateParameter  //创建参数值</li>
<li>ParamValues[]  </li>
<li>AddParameter</li>
<li>FindParam</li>
<li>Command</li>
<li>Items[]</li>
<li>Count</li>
</ul>
2、主要使用参数介绍
2.1 ParamByName
原型：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">function TParameters.ParamByName(const Value: WideString): TParameter;
function GetComponent: TComponent;
begin
Result := GetCommand;
if Assigned(Result) and (Result.Owner is TCustomADODataSet) then
Result := Command.Owner;
end;

begin
Result := FindParam(Value);
if Result = nil then
DatabaseErrorFmt(SParameterNotFound, , GetComponent);
end;</pre>
</div>
使用示例：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">Parameters.ParamByName('@aa1').Value:=1; //传递数值
Parameters.ParamByName('@aa1').Value:='你好'; //传递文本　</pre>
</div>
2.2 CreateParameter  
原型：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">function TParameters.CreateParameter(const Name: WideString;
DataType: TDataType; Direction: TParameterDirection; Size: Integer;
Value: OleVariant): TParameter;
begin
Result := AddParameter;
Result.FParameter := Create_Parameter(Name, DataType, Direction, Size);
{ Don't try to assign value when it is an EmptyParam (used when optional) }
if not ((TVarData(Value).VType = varError) and
(TVarData(EmptyParam).VError = $80020004)) then
Result.FParameter.Value := Value;
end;　　</pre>
</div>
主要参数介绍：
　TDataType = TFieldType:
<ul>
<li>ftUnknown, </li>
<li>ftString, </li>
<li>ftSmallint,</li>
<li> ftInteger, </li>
<li>ftWord,</li>
<li> ftBoolean, </li>
<li>ftFloat,</li>
<li> ftCurrency,</li>
<li> ftBCD,</li>
<li> ftDate,</li>
<li> ftTime, </li>
<li>ftDateTime,</li>
<li> ftBytes, </li>
<li>ftVarBytes, </li>
<li>ftAutoInc, </li>
<li>ftBlob, </li>
<li>ftMemo, </li>
<li>ftGraphic,</li>
<li> ftFmtMemo,</li>
<li> ftParadoxOle, </li>
<li>ftDBaseOle, </li>
<li>ftTypedBinary, </li>
<li>ftCursor, </li>
<li>ftFixedChar, </li>
<li>ftWideString,</li>
<li> ftLargeint, </li>
<li>ftADT, </li>
<li>ftArray, </li>
<li>ftReference, </li>
<li>ftDataSet, </li>
<li>ftOraBlob, </li>
<li>ftOraClob,</li>
<li> ftVariant, </li>
<li>ftInterface, </li>
<li>ftIDispatch, </li>
<li>ftGuid, </li>
<li>ftTimeStamp,</li>
<li> ftFMTBcd</li>
</ul>
TParameterDirection:
<ul>
<li>pdUnknown, </li>
<li>pdInput, </li>
<li>pdOutput, </li>
<li>pdInputOutput,</li>
<li> pdReturnValue</li>
</ul>
Delphi 使用示例：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">with ADOStoredProc1 do
begin
Close;
ProcedureName:='存储过程'; //存储过程名称
Parameters.Clear; //清空参数，然后下面开始创建参数
Parameters.CreateParameter('@a1',ftInteger,pdInput,20,1);
Parameters.CreateParameter('@a2',ftString,pdInput,50,'你好');
Open; //返回结果集
end;
</pre>
</div>
　　
其他内容，有时间会补充 -- 2020.09.16
 
创建时间：2020.09.16　　更新时间：
 

</div>
<div id="MySignature" role="contentinfo">
博客园滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！ 
来源：https://www.cnblogs.com/guorongtao/p/13679265.html

頁: [1]

琼殿技术论坛's Archiver

Delphi TADOStoredProc [2] Parameters 介绍