Delphi 2006에서 런타임에 ADO 매개 변수를 사용하려면 어떻게해야합니까?

Question

나는 이것으로 책상에 머리를 대고 있었다. 그래서 같이, 2 열이있는 간단한 테이블이 있습니다

CREATE TABLE [dbo].[MiscInitializers](
[PKey] [int] IDENTITY(1,1) NOT NULL, 
[Value] [text] NULL, 
CONSTRAINT [PK_MiscInitializers] PRIMARY KEY CLUSTERED 
(
[PKey] ASC 
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] 
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] 

나는이 같은 절차를 행을 업데이트하려고 :

function TdmSQL.SetInitializer(Value: string; var Key: string): boolean; 
const 
    UpdateCmd = 
    'update MiscInitializers set Value = :theValue where PKey = :theKey'; 
    InsertCmd = 'insert into MiscInitializers (Value) values (:Param1)'; 
var 
    tmp: integer; 
    rsTmp: TADODataSet; 
    foo: TParameter; 
    sTmp: string; 
begin 
    Result := false; 
    adoGenericCommand.CommandText := ''; 
    adoGenericCommand.Parameters.Clear; 
    if Key <> '' then 
    begin 
    // attempt update 
    if not TryStrToInt(Key, tmp) then 
     exit; 
    adoGenericCommand.CommandText := UpdateCmd; 
    adoGenericCommand.Prepared := true; 
    adoGenericCommand.Parameters.Refresh; 
    // some debug stuff 
    sTmp := Format('Num Params: %d', [adoGenericCommand.Parameters.Count]); 
    ShowMessageBox(sTmp); 
    for tmp := 0 to adoGenericCommand.Parameters.Count - 1 do 
    begin 
     sTmp := Format('Param %d: Name %s', 
     [tmp, adoGenericCommand.Parameters.Items[tmp].Name]); 
     ShowMessageBox(sTmp); 
    end; 
    // end debug stuff 
    foo := adoGenericCommand.Parameters.ParamByName('theValue'); 
    foo.Value.AsString := Value; 
    foo := adoGenericCommand.Parameters.ParamByName('theKey'); 
    foo.Value := Key; 
    rsTmp.Recordset := adoGenericCommand.Execute; 
    Result := rsTmp.RecordCount = 1; 
    exit; 
    // etc 

내가 (그 디버그 메시지 박스 호출에) 일어나는 참조 update 명령이 2 개의 매개 변수를 가져 오지만 해당 이름은 theValue 및 theKey가 아닌 Param1 및 Param2입니다.

ParamByName 호출은 Param * N *이 아니라 실제로 원하는 이름으로 작동하도록 런타임에 매개 변수를 설정하는 방법이 있습니까?

Answer 1

'CommandText'를 지정한 후에 'Parameters'에 Refresh을 호출하지 마십시오. '새로 고침'을 호출하면 VCL이 매개 변수 정보 제공자에게 전달되며, 반환 된 정보에 매개 변수 이름이 없으면 VCL이 매개 변수 정보를 즉시 작성합니다.

Answer 2

당신은 매개 변수

const 
    UpdateCmd = 'update MiscInitializers set Value = :theValue where PKey = :theKey'; 
var 
    ds: TADODataSet; 
    I: Integer; 
begin 
    ds := TADODataSet.Create(nil); 
    try 
     ds.CommandText := UpdateCmd; 
     ds.Parameters.ParseSQL(ds.CommandText, True); 
     for I := 0 to ds.Parameters.Count - 1 do 
      ShowMessage(ds.Parameters.Items[I].name); 
    finally 
     ds.Free; 
    end; 
end;