Q&A

  • select 문으로 추출한 데이타 label로 출력하기
안녕하세요.

아래와 같이



SQL.Text := 'select stornm from mmsa110m where storcd = :storcd

and areacd = :areacd';

ParamByName('storcd').AsString := txtJumcd.Text;

ParamByName('areacd').AsString := areacd;

ExecSQL;



select 문으로 추출한 데이타를 label.caption으로 뿌려줄려고 합니다.

어떻게 해야하나요?

3  COMMENTS
  • Profile
    뿌요 2001.02.09 18:30
    Widh query do

    begin

    Active := false;

    SQL.Clear;

    SQL.add(' select stornm from mmsa110m where storcd = :storcd ')

    SQL.add(' and areacd = :areacd ')

    ParamByName('storcd').AsString := txtJumcd.Text;

    ParamByName('areacd').AsString := areacd;

    Active := true;

    Label1.Caption := FieldByName('stornm').AsString;

    end;



    추출된 결과는 하나여야 합니다.



    김정균 wrote:

    > 안녕하세요.

    > 아래와 같이

    >

    > SQL.Text := 'select stornm from mmsa110m where storcd = :storcd

    > and areacd = :areacd';

    > ParamByName('storcd').AsString := txtJumcd.Text;

    > ParamByName('areacd').AsString := areacd;

    > ExecSQL;

    >

    > select 문으로 추출한 데이타를 label.caption으로 뿌려줄려고 합니다.

    > 어떻게 해야하나요?

  • Profile
    deukmo 2001.02.09 05:05
    SQL.Text := 'select top 1 stornm from mmsa110m where storcd = :storcd'

    + ' and areacd = :areacd';

    ParamByName('storcd').AsString := txtJumcd.Text;

    ParamByName('areacd').AsString := areacd;

    ExecSQL;



    lblLabel.Caption := FieldByName('stornm').AsString;



    아마 되겠죠? ^^;;;

    top 1 은 값이 혹시 2개 이상인가 해서요..

    1개 이상이면 정다운 에러메세지 보게될겁니다. ㅡ.ㅡ;;;;;









    김정균 wrote:

    > 안녕하세요.

    > 아래와 같이

    >

    > SQL.Text := 'select stornm from mmsa110m where storcd = :storcd

    > and areacd = :areacd';

    > ParamByName('storcd').AsString := txtJumcd.Text;

    > ParamByName('areacd').AsString := areacd;

    > ExecSQL;

    >

    > select 문으로 추출한 데이타를 label.caption으로 뿌려줄려고 합니다.

    > 어떻게 해야하나요?

  • Profile
    제덕모 2001.02.09 06:53
    다시보니 여기선 1개 이상이라도 상관없군요..

    ^________^;;;;;;;;





    deukmo wrote:

    > SQL.Text := 'select top 1 stornm from mmsa110m where storcd = :storcd'

    > + ' and areacd = :areacd';

    > ParamByName('storcd').AsString := txtJumcd.Text;

    > ParamByName('areacd').AsString := areacd;

    > ExecSQL;

    >

    > lblLabel.Caption := FieldByName('stornm').AsString;

    >

    > 아마 되겠죠? ^^;;;

    > top 1 은 값이 혹시 2개 이상인가 해서요..

    > 1개 이상이면 정다운 에러메세지 보게될겁니다. ㅡ.ㅡ;;;;;

    >

    >

    >

    >

    > 김정균 wrote:

    > > 안녕하세요.

    > > 아래와 같이

    > >

    > > SQL.Text := 'select stornm from mmsa110m where storcd = :storcd

    > > and areacd = :areacd';

    > > ParamByName('storcd').AsString := txtJumcd.Text;

    > > ParamByName('areacd').AsString := areacd;

    > > ExecSQL;

    > >

    > > select 문으로 추출한 데이타를 label.caption으로 뿌려줄려고 합니다.

    > > 어떻게 해야하나요?