Delphi TADOStoredProc [2] Parameters 介绍

{该文首发于博客园 滔Roy，无须授权即可转载，请自觉保留头部申明}

Delphi TADOStoredProc [2] Parameters 介绍

1、常用参数：

• Clear   //清空
• Refresh  //初始化参数
• ParamByName   //传递参数值
• CreateParameter  //创建参数值
• ParamValues[]  
• AddParameter
• FindParam
• Command
• Items[]
• Count

2、主要使用参数介绍

2.1 ParamByName

原型：

?

1 2 3 4 5 6 7 8 9 10 11 12 13

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, [Value], GetComponent); end;

使用示例：

?

1 2	Parameters.ParamByName('@aa1').Value:=1;   //传递数值 Parameters.ParamByName('@aa1').Value:='你好';   //传递文本

2.2 CreateParameter  

原型：

?

1 2 3 4 5 6 7 8 9 10 11

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;

主要参数介绍：

　TDataType = TFieldType:

• ftUnknown,
• ftString,
• ftSmallint,
• ftInteger,
• ftWord,
• ftBoolean,
• ftFloat,
• ftCurrency,
• ftBCD,
• ftDate,
• ftTime,
• ftDateTime,
• ftBytes,
• ftVarBytes,
• ftAutoInc,
• ftBlob,
• ftMemo,
• ftGraphic,
• ftFmtMemo,
• ftParadoxOle,
• ftDBaseOle,
• ftTypedBinary,
• ftCursor,
• ftFixedChar,
• ftWideString,
• ftLargeint,
• ftADT,
• ftArray,
• ftReference,
• ftDataSet,
• ftOraBlob,
• ftOraClob,
• ftVariant,
• ftInterface,
• ftIDispatch,
• ftGuid,
• ftTimeStamp,
• ftFMTBcd

TParameterDirection:

• pdUnknown,
• pdInput,
• pdOutput,
• pdInputOutput,
• pdReturnValue

Delphi 使用示例：

?

1 2 3 4 5 6 7 8 9

with ADOStoredProc1 do begin     Close;     ProcedureName:='存储过程';      //存储过程名称     Parameters.Clear;   //清空参数 ，然后下面开始创建参数     Parameters.CreateParameter('@a1',ftInteger,pdInput,20,1);     Parameters.CreateParameter('@a2',ftString,pdInput,50,'你好');     Open;   //返回结果集   end;

　　

其他内容，有时间会补充 -- 2020.09.16

 

创建时间：2020.09.16　　更新时间：