Q&A

  • Query 컴포넌트 동적생성~도움좀 부탁(급해요.....)
* 사용환경 : 델파이4 / Windows 98

* 에러 메시지 : 'Could not find object'

* 구문

function Get_BrInfo_V01(aa_cd:String; var aa, bb:String):Boolean;

var

Qr_Trs : TQuery;

begin

Qr_Trs := nil;

Result := False;

Try

Try

Qr_Trs := TQuery.Create(nil);

Qr_Trs.DatabaseName := 'AIS';

Qr_Trs.Name := 'QR_TRS';

Qr_Trs.Sql.Add ('SELECT aa, bb');

Qr_Trs.Sql.Add ('WHERE BR_CD = :IN_BRCD');

Qr_Trs.Params.CreateParam(ftString, 'IN_aa', ptInput);

Qr_Trs.ParamByName('IN_BRCD').AsString := aa_cd;

Qr_Trs.Open;

if Qr_Trs.IsEmpty then

begin

Qr_Trs.Close;

MessageDlg('코드정보 오류!'+#13#13+

'코드정보로 등록된 부서가 존재하지 않습니다!',

mtError, [mbOK], 0);

exit;

end;

aa := Qr_Trs.FieldByName('aa').AsString;

bb := Qr_Trs.FieldByName('bb').AsString;

Qr_Trs.Close;

Result := True;

except

on E:Exception do

begin

MessageDlg('코드정보 체크중 오류!'+#13#13+

e.Message, mtError, [mbOK], 0);

Exit;

end;

end;

finally

Qr_Trs.Free;

end;

end;



이렇게 하고 실행시 오류가 발생합니다!( 'Could not find object' )

델파이 고수님들의 한수지도 부탁드립니다.

1  COMMENTS
  • Profile
    박장용 2001.07.21 19:56
    오류메세지자체는 DB Table을 찾지 못하는 것 같습니다..

    일단..SQL문에 table명을 기술해 보시고 안되면 알려 주세요...



    얀 wrote:

    > * 사용환경 : 델파이4 / Windows 98

    > * 에러 메시지 : 'Could not find object'

    > * 구문

    > function Get_BrInfo_V01(aa_cd:String; var aa, bb:String):Boolean;

    > var

    > Qr_Trs : TQuery;

    > begin

    > Qr_Trs := nil;

    > Result := False;

    > Try

    > Try

    > Qr_Trs := TQuery.Create(nil);

    > Qr_Trs.DatabaseName := 'AIS';

    > Qr_Trs.Name := 'QR_TRS';

    > Qr_Trs.Sql.Add ('SELECT aa, bb');

    > Qr_Trs.Sql.Add ('WHERE BR_CD = :IN_BRCD');

    > Qr_Trs.Params.CreateParam(ftString, 'IN_aa', ptInput);

    > Qr_Trs.ParamByName('IN_BRCD').AsString := aa_cd;

    > Qr_Trs.Open;

    > if Qr_Trs.IsEmpty then

    > begin

    > Qr_Trs.Close;

    > MessageDlg('코드정보 오류!'+#13#13+

    > '코드정보로 등록된 부서가 존재하지 않습니다!',

    > mtError, [mbOK], 0);

    > exit;

    > end;

    > aa := Qr_Trs.FieldByName('aa').AsString;

    > bb := Qr_Trs.FieldByName('bb').AsString;

    > Qr_Trs.Close;

    > Result := True;

    > except

    > on E:Exception do

    > begin

    > MessageDlg('코드정보 체크중 오류!'+#13#13+

    > e.Message, mtError, [mbOK], 0);

    > Exit;

    > end;

    > end;

    > finally

    > Qr_Trs.Free;

    > end;

    > end;

    >

    > 이렇게 하고 실행시 오류가 발생합니다!( 'Could not find object' )

    > 델파이 고수님들의 한수지도 부탁드립니다.