* 사용환경 : 델파이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' )
델파이 고수님들의 한수지도 부탁드립니다.
일단..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' )
> 델파이 고수님들의 한수지도 부탁드립니다.