QueryString을의에 Params과 데이터 유형을 가져

Question

는 이제 당신이 사용자 유형 및 SQL 쿼리

SELECT * FROM X WHERE X.A = :A and X.B = :B and X.C= :C 

이의 종류를 얻을 수있는 방법이 있나요 인은 TEdit이있는 델파이 인터페이스를 가지고 있다고 가정 해 봅시다 :, : B, : C Params? 나는 그럭저럭 Params의 이름을 얻을 수 있었다.

procedure TfrmA.Button1Click(Sender: TObject); 
var 
    queryInput, queryOutput , aux : string; 
    pozitie : Integer; 
    param : string; 
    Ch,Chx : Char; 
begin 
    queryInput := TEdit.Text; 
    queryOutput := StringReplace(queryInput,':','@',[rfReplaceAll, rfIgnoreCase]); 
    aux := Copy(queryOutput,AnsiPos('@',queryOutput),200); 
    while Length(aux) > 0 do begin 
    if AnsiPos('@',aux) = 0 then break; 
    for Ch in aux do 
    begin 
     if Ch = ' ' then begin 
     param := param + ' '; 
     break 
     end else param := param + Ch; 
    end; 
    ShowMessage(param); 
    test := Copy(test,2,200); 
    test := Copy(test,AnsiPos('@',test),200); 
    end; 
end; 

파람 문자열은 지금이 (가) 포함됩니다이 코드를 사용 : @A @B @C

내가 PARAMS의 데이터 유형을 찾을 수 있습니다 어쨌든 있나요?

Answer 1

Adodataset을 사용할 수 있으면 필요한 정보를 얻기 위해이 기능을 사용할 수 있습니다. 은 TypInfo를 사용합니다.

procedure TForm5.Button1Click(Sender: TObject); 
var 
i:Integer; 
begin 
    Ads.CommandText := 'Update Adressen set geboren=:birthdate where name=:n and ID=:i'; 
    Memo1.Lines.Clear; 
    for I := 0 to Ads.Parameters.Count - 1 do 
     begin 
     Memo1.Lines.Add(Ads.Parameters[i].Name + ' : ' + GetEnumName(TypeInfo(TDataType), Integer(Ads.Parameters[i].DataType)) + ' : '+ IntToStr(Ads.Parameters[i].Size)) 
     end; 
end; 

예제의 출력은 다음과 같습니다

birthdate : ftDateTime : 16 
n : ftWideString : 40 
i : ftInteger : 4