Q&A

  • query 문제 ....where ...??
combobox1을 이용해서 특정 필드값을 불러와서 선택한후에 그 선택한 값으로

combobox2에 리스트를 나타내려고 합니다.

밑에 소스가 틀린건 알겠는데요.

where 부분에서 조건을 줄때 도대체 어떻게 줘야하는지 잘 모르겠습니다.

이거때문에 7시간째 헤메고 있습니다. 시작한지 얼마 안돼서...ㅜㅡ 벌써 새벽닭이 우네요. 부디 이 초보한테 길을 보여주십시요.

감사합니다.



procedure TForm2.ComboBox1Change(Sender: TObject);

Var

I:Integer;

begin

combobox2.Enabled:=True;

showmessage(combobox1.text);

with ADOQuery2 do

begin

Active := False;

SQL.Clear;

SQL.Add('Select Mu_No from Churchyard_Info Where');

SQL.Add('Dangi_No ='+''''combobox1.text''''+')');

Active := True;

end;



for i := 0 to ADOquery2.RecordCount do

begin

combobox2.Items.Add(ADOquery2.fieldbyname('Mu_No').asstring);

ADOquery2.Next;

end;



end;

1  COMMENTS
  • Profile
    사발우성 2001.09.25 21:17
    용이 wrote:

    > combobox1을 이용해서 특정 필드값을 불러와서 선택한후에 그 선택한 값으로

    > combobox2에 리스트를 나타내려고 합니다.

    > 밑에 소스가 틀린건 알겠는데요.

    > where 부분에서 조건을 줄때 도대체 어떻게 줘야하는지 잘 모르겠습니다.

    > 이거때문에 7시간째 헤메고 있습니다. 시작한지 얼마 안돼서...ㅜㅡ 벌써 새벽닭이 우네요. 부디 이 초보한테 길을 보여주십시요.

    > 감사합니다.

    >

    > procedure TForm2.ComboBox1Change(Sender: TObject);

    > Var

    > I:Integer;

    > begin

    > combobox2.Enabled:=True;

    > showmessage(combobox1.text);

    > with ADOQuery2 do

    > begin

    > Active := False;

    > SQL.Clear;

    > SQL.Add('Select Mu_No from Churchyard_Info Where');

    > SQL.Add('Dangi_No = '''+combobox1.text+'''');//이부분을 이렇게 수정하심됨당.. 그럼 즐프엽 ^^

    > Active := True;

    > end;

    >

    > for i := 0 to ADOquery2.RecordCount do

    > begin

    > combobox2.Items.Add(ADOquery2.fieldbyname('Mu_No').asstring);

    > ADOquery2.Next;

    > end;

    >

    > end;