Delphi XE2 : null 값이있는 필드를 전달하는 방법은 무엇입니까?

Question

저는 Delphi 5에서 Delphi XE2로 응용 프로그램을 변환하고 BDE를 사용하여 상황을 보았습니다. 그는 다음과 외래 키가있는 필드의 패스 널 (null)을 허용하지 않습니다 델파이 XE2에서

는 방법이 현재 델파이 5에서 작업 : BDE와 델파이 XE2에서 발생

ParamByName('id').datatype: = ftInteger; 

오류 : 에서

같은 오류와 함께 다음과 같은 방법으로 테스트 테이블 YY에서 외래 키 'XX'에 대한 기본 키 값 :

ParamByName('id').datatype: = ftInteger; 
ParamByName('id').value: = NULL; 

ParamByName('id').DataType: = ftstring; 
ParamByName('id').clear; 

ParamByName('id').DataType: = ftstring; 
ParamByName('id').Bound: = true; 

ParamByName('id').Value: = null; 

ParamByName('id').IsNull; 

어떻게 전달 null 값을 가진 필드?

UPDATE :

데이터베이스 :

CREATE TABLE TEST_1 (
    ID_1 INTEGER NOT NULL, 
    ID_TEST_2 INTEGER NULL, 
    DESC_1 VARCHAR(10) NULL, 
    PRIMARY KEY (ID_1) 
); 

CREATE TABLE TEST_2 (
    ID_2 INTEGER NOT NULL, 
    DESC_2 VARCHAR(10) NULL, 
    PRIMARY KEY (ID_2) 
); 

ALTER TABLE TEST_1 ADD FOREIGN KEY FK_TEST(ID_TEST_2) REFERENCES TEST_2(ID_2); 

델파이 XE2 :

Close; 
SQL.Clear; 
SQL.Add('insert into test_1 (id_1, id_test_2, desc_1) values (:id_1, :id_test_2, :desc_1)'); 
ParamByName('ID_1').AsInteger := 1; 
ParamByName('ID_TEST_2').DataType := ftInteger; 
ParamByName('ID_TEST_2').Clear; 
ParamByName('ID_TEST_2').Bound := True; 
ParamByName('DESC_1').AsString := 'DESCRIPTION TEST'; 
ExecSQL; 

결과 : 키 위반.

Answer 1

NULL을 매개 변수 값으로 전달하려면 TParameter.Clear을 사용하십시오.

ParamByName('id').Clear; 

제쳐두고 : 당신은 정말로 지금까지 BDE를 제거해야했습니다. 현재 10 년 이상 사용이 중단되었으며 현대 버전의 Windows에서는 구성 및 사용이 어렵고 언제든지 예고없이 Delphi 배포에서 사라질 수 있습니다. (나는 개인적으로 아직이 일이 일어나지 않았다는 것에 놀랍니다.) 또한 현재 사용할 수있는 교차 플랫폼 대상을 지원하지 않습니다. 확실하게 10 년은 그것을 대체 할 수있을만큼 충분히 길다.

Answer 2

NULL을 전달할 때 Clear()을 호출 할 때도 Bound=True을 수동으로 설정해야하며 매개 변수를 처음 사용하는 경우는 보통 DataType도 수동으로 설정해야합니다. 나는 다음과 같은 코드를 사용하는 경향이있다.

Param := ParamByName('id'); 
if (shound assign a value) then 
begin 
    Param.AsInteger := ...; 
end else 
begin 
    Param.DataType := ftInteger; 
    Param.Clear; 
    Param.Bound := True; 
end;